From 1c0b011c3cb943300d25c09a1dd1623c83b99920 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 14 Jan 1998 21:56:40 +0000
Subject: Not working yet - split problems ...

p4raw-id: //depot/ansiperl@425
---
 t/lib/thread.t  |  0
 t/op/tiearray.t | 15 ++++++++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 t/lib/thread.t

(limited to 't')

diff --git a/t/lib/thread.t b/t/lib/thread.t
old mode 100644
new mode 100755
diff --git a/t/op/tiearray.t b/t/op/tiearray.t
index da25760809..9e709bc751 100755
--- a/t/op/tiearray.t
+++ b/t/op/tiearray.t
@@ -101,7 +101,7 @@ sub SPLICE
 
 package main;
 
-print "1..29\n";                   
+print "1..30\n";                   
 my $test = 1;
 
 {my @ary;
@@ -130,10 +130,19 @@ print "ok ", $test++,"\n";
 
 print "not " unless $seen{'STORE'} >= 3;
 print "ok ", $test++,"\n";
-
 print "not " unless join(':',@ary) eq '1:2:3';
 print "ok ", $test++,"\n";         
 
+{my @thing = @ary;
+print "not " unless join(':',@thing) eq '1:2:3';
+print "ok ", $test++,"\n";         
+
+tie @thing,'Implement';
+@thing = @ary;
+print "not " unless join(':',@thing) eq '1:2:3';
+print "ok ", $test++,"\n";
+} 
+
 print "not " unless pop(@ary) == 3;
 print "ok ", $test++,"\n";
 print "not " unless $seen{'POP'} == 1;
@@ -194,7 +203,7 @@ untie @ary;
 
 }
                            
-print "not " unless $seen{'DESTROY'} == 1;
+print "not " unless $seen{'DESTROY'} == 2;
 print "ok ", $test++,"\n";         
 
 
-- 
cgit v1.2.1