diff options
| author | Daniel Chetlin <daniel@chetlin.com> | 2000-10-20 19:57:03 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-21 18:06:05 +0000 |
| commit | 91a014520df45f1a0c23cb5b0cb0a01ecdb2f746 (patch) | |
| tree | b6ef1f15c10dc95bc39bbbc400e8773b386fd37b /t/lib | |
| parent | 5280a8e547c932ec16f016299ba615241bc09a38 (diff) | |
| download | perl-91a014520df45f1a0c23cb5b0cb0a01ecdb2f746.tar.gz | |
Re: [ID 20001020.002] Tie::Array SPLICE method is buggy
Message-ID: <20001021025703.A2115@darkstar.chetlin.org>
p4raw-id: //depot/perl@7393
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/tie-splice.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/t/lib/tie-splice.t b/t/lib/tie-splice.t new file mode 100644 index 0000000000..d7ea6cc1dc --- /dev/null +++ b/t/lib/tie-splice.t @@ -0,0 +1,17 @@ +#!./perl + +BEGIN { + chdir 't' if -d 't'; + @INC = '.'; + push @INC, '../lib'; +} + +# bug id 20001020.002 +# -dlc 20001021 + +use Tie::Array; +tie @a,Tie::StdArray; +undef *Tie::StdArray::SPLICE; +require "op/splice.t" + +# Pre-fix, this failed tests 6-9 |