This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Nits in the DynaLoader test: make it warning-clean,
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 18 May 2006 15:43:25 +0000 (15:43 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 18 May 2006 15:43:25 +0000 (15:43 +0000)
and avoid checking OS- and locale-specific messages

p4raw-id: //depot/perl@28227

ext/DynaLoader/t/DynaLoader.t

index bc96fab..ad8dc45 100644 (file)
@@ -61,12 +61,12 @@ eval { DynaLoader::dl_load_file() };
 like( $@, q{/^Usage: DynaLoader::dl_load_file\(filename, flags=0\)/},
         "calling DynaLoader::dl_load_file() with no argument" );
 
-eval { DynaLoader::dl_load_file(undef) };
+eval { no warnings 'uninitialized'; DynaLoader::dl_load_file(undef) };
 is( $@, '', "calling DynaLoader::dl_load_file() with undefined argument" );     # is this expected ?
 
 eval { DynaLoader::dl_load_file("egg_bacon_sausage_and_spam") };
 is( $@, '', "calling DynaLoader::dl_load_file() with undefined argument" );
-like( DynaLoader::dl_error(), q{/^egg_bacon_sausage_and_spam: cannot open shared object file:/}, 
+like( DynaLoader::dl_error(), q{/egg_bacon_sausage_and_spam/}, 
         "calling DynaLoader::dl_load_file() with a package without binary object" );
 
 # ... dl_findfile()