From 69c6e315c98d99868530e196742fac905986d491 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 18 May 2006 15:43:25 +0000 Subject: [PATCH] Nits in the DynaLoader test: make it warning-clean, and avoid checking OS- and locale-specific messages p4raw-id: //depot/perl@28227 --- ext/DynaLoader/t/DynaLoader.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t index bc96fab..ad8dc45 100644 --- a/ext/DynaLoader/t/DynaLoader.t +++ b/ext/DynaLoader/t/DynaLoader.t @@ -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() -- 2.7.4