summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/t/lib/tie-push.t
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/t/lib/tie-push.t')
-rwxr-xr-xcontrib/perl5/t/lib/tie-push.t25
1 files changed, 0 insertions, 25 deletions
diff --git a/contrib/perl5/t/lib/tie-push.t b/contrib/perl5/t/lib/tie-push.t
deleted file mode 100755
index b19aa0d..0000000
--- a/contrib/perl5/t/lib/tie-push.t
+++ /dev/null
@@ -1,25 +0,0 @@
-#!./perl
-
-BEGIN {
- chdir 't' if -d 't';
- @INC = '.';
- push @INC, '../lib';
-}
-
-{
- package Basic;
- use Tie::Array;
- @ISA = qw(Tie::Array);
-
- sub TIEARRAY { return bless [], shift }
- sub FETCH { $_[0]->[$_[1]] }
- sub STORE { $_[0]->[$_[1]] = $_[2] }
- sub FETCHSIZE { scalar(@{$_[0]}) }
- sub STORESIZE { $#{$_[0]} = $_[1]-1 }
-}
-
-tie @x,Basic;
-tie @get,Basic;
-tie @got,Basic;
-tie @tests,Basic;
-require "op/push.t"
OpenPOWER on IntegriCloud