summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/t/lib/dumper-ovl.t
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/t/lib/dumper-ovl.t')
-rwxr-xr-xcontrib/perl5/t/lib/dumper-ovl.t35
1 files changed, 0 insertions, 35 deletions
diff --git a/contrib/perl5/t/lib/dumper-ovl.t b/contrib/perl5/t/lib/dumper-ovl.t
deleted file mode 100755
index d4b3a92..0000000
--- a/contrib/perl5/t/lib/dumper-ovl.t
+++ /dev/null
@@ -1,35 +0,0 @@
-#!./perl -w
-
-BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
- print "1..0 # Skip: Data::Dumper was not built\n";
- exit 0;
- }
-}
-
-use Data::Dumper;
-
-print "1..1\n";
-
-package Foo;
-use overload '""' => 'as_string';
-
-sub new { bless { foo => "bar" }, shift }
-sub as_string { "%%%%" }
-
-package main;
-
-my $f = Foo->new;
-
-print "#\$f=$f\n";
-
-$_ = Dumper($f);
-s/^/#/mg;
-print $_;
-
-print "not " unless /bar/ && /Foo/;
-print "ok 1\n";
-
OpenPOWER on IntegriCloud