diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-30 18:33:27 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-30 18:33:27 +0000 |
| commit | 4543415b4bf727b6d2b807b141805b40a67913b8 (patch) | |
| tree | 34fcd5332d8183d2bb89c253d16036c1d18c6fa1 /ext/Data/Dumper/t | |
| parent | 6f8e50fdc5167d02d87a059595a5085c4f96aa3c (diff) | |
| download | perl-4543415b4bf727b6d2b807b141805b40a67913b8.tar.gz | |
Skip a Data::Dumper test if configured without B module.
p4raw-id: //depot/perl@23244
Diffstat (limited to 'ext/Data/Dumper/t')
| -rwxr-xr-x | ext/Data/Dumper/t/dumper.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/Data/Dumper/t/dumper.t b/ext/Data/Dumper/t/dumper.t index 340a539e8b..35b97b2c3e 100755 --- a/ext/Data/Dumper/t/dumper.t +++ b/ext/Data/Dumper/t/dumper.t @@ -965,7 +965,11 @@ TEST q(Data::Dumper->new([[$c, $d]])->Dumpxs;) # }; EOT - TEST q(Data::Dumper->new([{ foo => sub { print "foo"; } }])->Dump); + if(" $Config{'extensions'} " !~ m[ B ]) { + SKIP_TEST "Perl configured without B module"; + } else { + TEST q(Data::Dumper->new([{ foo => sub { print "foo"; } }])->Dump); + } } ############# 214 |