diff options
Diffstat (limited to 'dist/XSLoader')
| -rw-r--r-- | dist/XSLoader/t/XSLoader.t | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/dist/XSLoader/t/XSLoader.t b/dist/XSLoader/t/XSLoader.t index 038986ed4b..211c4d8455 100644 --- a/dist/XSLoader/t/XSLoader.t +++ b/dist/XSLoader/t/XSLoader.t @@ -30,7 +30,7 @@ my %modules = ( 'Time::HiRes'=> q| ::can_ok( 'Time::HiRes' => 'usleep' ) |, # 5.7.3 ); -plan tests => keys(%modules) * 4 + 5; +plan tests => keys(%modules) * 3 + 5; # Try to load the module use_ok( 'XSLoader' ); @@ -65,11 +65,9 @@ for my $module (sort keys %modules) { SKIP: { skip "$module not available", 4 if $extensions !~ /\b$module\b/; - eval qq{ package $module; XSLoader::load('$module', "qunckkk"); }; - like( $@, "/^$module object version \\S+ does not match bootstrap parameter (?:qunckkk|0)/", + eval qq{ package $module; XSLoader::load('$module', "12345678"); }; + like( $@, "/^$module object version \\S+ does not match bootstrap parameter (?:12345678|0)/", "calling XSLoader::load() with a XS module and an incorrect version" ); - like( $warnings, "/^\$|^Version string 'qunckkk' contains invalid data; ignoring: 'qunckkk'/", - "in Perl 5.10, DynaLoader warns about the incorrect version string" ); eval qq{ package $module; XSLoader::load('$module'); }; is( $@, '', "XSLoader::load($module)"); |