diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/Test/Deep/NoTest.pm')
-rwxr-xr-x | Master/tlpkg/tlperl0/lib/Test/Deep/NoTest.pm | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/Test/Deep/NoTest.pm b/Master/tlpkg/tlperl0/lib/Test/Deep/NoTest.pm new file mode 100755 index 00000000000..754c2379443 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/Test/Deep/NoTest.pm @@ -0,0 +1,41 @@ +use strict; +use warnings; + +# this is for people who don't want Test::Builder to be loaded but want to +# use eq_deeply. It's a bit hacky... + +package Test::Deep::NoTest; + +use vars qw( $NoTest ); + +{ + local $NoTest = 1; + require Test::Deep; +} + +sub import { + my $import = Test::Deep->can("import"); + # make the stack look like it should for use Test::Deep + my $pkg = shift; + unshift(@_, "Test::Deep"); + goto &$import; +} + +1; + +=head1 NAME + +Test::Deep::NoTest - Use Test::Deep outside of the testing framework + +=head1 SYNOPSIS + + use Test::Deep::NoTest; + + if eq_deeply($a, $b) { + print "they were deeply equal\n"; + }; + +=head1 DESCRIPTION + +This exports all the same things as Test::Deep but it does not load +Test::Builder so it can be used in ordinary non-test situations. |