Add a test for possible segfault
According to Andreas Voegele in RT #74777, this crashes on his system. It
doesn't crash on mine.
Dave Rolsky
12 years ago
| 0 | use strict; | |
| 1 | use warnings; | |
| 2 | ||
| 3 | use Test::More; | |
| 4 | ||
| 5 | BEGIN { | |
| 6 | $ENV{PARAMS_VALIDATE_IMPLEMENTATION} = 'XS'; | |
| 7 | $ENV{PV_WARN_FAILED_IMPLEMENTATION} = 1; | |
| 8 | } | |
| 9 | ||
| 10 | use Params::Validate qw( validate SCALAR ); | |
| 11 | ||
| 12 | eval { foo( { a => 1 } ) }; | |
| 13 | ||
| 14 | ok(1, 'did not segfault'); | |
| 15 | ||
| 16 | done_testing(); | |
| 17 | ||
| 18 | sub foo { | |
| 19 | validate( | |
| 20 | @_, | |
| 21 | { | |
| 22 | a => { type => SCALAR, depends => ['%s%s%s'] }, | |
| 23 | } | |
| 24 | ); | |
| 25 | } |