1#!./perl 2 3@tests = split(/\n/, <<EOF); 40 3, 0 1 2, 3 4 5 6 7 50 0 a b c, , a b c 0 1 2 3 4 5 6 7 68 0 a b c, , 0 1 2 3 4 5 6 7 a b c 77 0 6.5, , 0 1 2 3 4 5 6 6.5 7 81 0 a b c d e f g h i j,, 0 a b c d e f g h i j 1 2 3 4 5 6 7 90 1 a, 0, a 1 2 3 4 5 6 7 101 6 x y z, 1 2 3 4 5 6, 0 x y z 7 110 7 x y z, 0 1 2 3 4 5 6, x y z 7 121 7 x y z, 1 2 3 4 5 6 7, 0 x y z 134, 4 5 6 7, 0 1 2 3 14-4, 4 5 6 7, 0 1 2 3 15EOF 16 17print "1..", 4 + @tests, "\n"; 18die "blech" unless @tests; 19 20@x = (1,2,3); 21push(@x,@x); 22if (join(':',@x) eq '1:2:3:1:2:3') {print "ok 1\n";} else {print "not ok 1\n";} 23push(@x,4); 24if (join(':',@x) eq '1:2:3:1:2:3:4') {print "ok 2\n";} else {print "not ok 2\n";} 25 26# test for push/pop intuiting @ on array 27push(x,3); 28if (join(':',@x) eq '1:2:3:1:2:3:4:3') {print "ok 3\n";} else {print "not ok 3\n";} 29pop(x); 30if (join(':',@x) eq '1:2:3:1:2:3:4') {print "ok 4\n";} else {print "not ok 4\n";} 31 32$test = 5; 33foreach $line (@tests) { 34 ($list,$get,$leave) = split(/,\t*/,$line); 35 ($pos, $len, @list) = split(' ',$list); 36 @get = split(' ',$get); 37 @leave = split(' ',$leave); 38 @x = (0,1,2,3,4,5,6,7); 39 if (defined $len) { 40 @got = splice(@x, $pos, $len, @list); 41 } 42 else { 43 @got = splice(@x, $pos); 44 } 45 if (join(':',@got) eq join(':',@get) && 46 join(':',@x) eq join(':',@leave)) { 47 print "ok ",$test++,"\n"; 48 } 49 else { 50 print "not ok ",$test++," got: @got == @get left: @x == @leave\n"; 51 } 52} 53 541; # this file is require'd by lib/tie-stdpush.t 55