diff options
| author | Brandon Black <blblack@gmail.com> | 2007-04-24 02:58:44 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-25 12:15:55 +0000 |
| commit | 05a4b9b1cf732bd593a66695e9160c88fe43217c (patch) | |
| tree | 61a3a6ef3e396bc736ed422a27ffa0f90ab3908f /ext/DynaLoader | |
| parent | 917f17002097ee577163787c18abe1a911b23f4e (diff) | |
| download | perl-05a4b9b1cf732bd593a66695e9160c88fe43217c.tar.gz | |
Re: [Andreas J. Koenig] C3 MRO breaks Params::Util and Graph
From: "Brandon Black" <blblack@gmail.com>
Message-ID: <84621a60704240558q7ff65863l803c6f9b9b8ca4a6@mail.gmail.com>
p4raw-id: //depot/perl@31073
Diffstat (limited to 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/t/DynaLoader.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t index 3d74bc795a..a698a8f19c 100644 --- a/ext/DynaLoader/t/DynaLoader.t +++ b/ext/DynaLoader/t/DynaLoader.t @@ -25,6 +25,7 @@ BEGIN { %modules = ( # ModuleName => q| code to check that it was loaded |, + 'List::Util' => q| ::is( ref List::Util->can('first'), 'CODE' ) |, # 5.7.2 'Cwd' => q| ::is( ref Cwd->can('fastcwd'),'CODE' ) |, # 5.7 ? 'File::Glob' => q| ::is( ref File::Glob->can('doglob'),'CODE' ) |, # 5.6 $db_file => q| ::is( ref $db_file->can('TIEHASH'), 'CODE' ) |, # 5.0 @@ -32,7 +33,7 @@ BEGIN { 'Time::HiRes'=> q| ::is( ref Time::HiRes->can('usleep'),'CODE' ) |, # 5.7.3 ); -plan tests => 27 + keys(%modules) * 2; +plan tests => 22 + keys(%modules) * 3; # Try to load the module |