This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Better handling for error-checking
authorS├ębastien Aperghis-Tramoni <sebastien@aperghis.net>
Mon, 22 May 2006 14:42:47 +0000 (14:42 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 22 May 2006 14:42:47 +0000 (14:42 +0000)
From: IRC/#p5p/Maddingue (Sebastien Aperghis-Tramoni)

p4raw-id: //depot/perl@28274

ext/DynaLoader/t/DynaLoader.t

index ad8dc45..841fa22 100644 (file)
@@ -9,6 +9,7 @@ BEGIN {
 
 use strict;
 use Config;
+use Errno qw(ENOENT);
 use Test::More;
 my %modules;
 
@@ -21,7 +22,7 @@ my %modules;
     'Time::HiRes'=> q| ::is( ref Time::HiRes->can('usleep'),'CODE' ) |,  # 5.7.3
 );
 
-plan tests => 27 + keys(%modules) * 2;
+plan tests => 28 + keys(%modules) * 2;
 
 
 # Try to load the module
@@ -65,9 +66,9 @@ 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/}, 
-        "calling DynaLoader::dl_load_file() with a package without binary object" );
+is( $@, '', "calling DynaLoader::dl_load_file() with a package without binary object" );
+is( 0+$!, ENOENT, "checking errno value" );
+like( DynaLoader::dl_error(), "/$!/", "checking error message returned by dl_error()" );
 
 # ... dl_findfile()
 my @files = ();