# New Ticket Created by Simon Glover
# Please include the string: [perl #17803]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17803 >
The patches below add tests for:
print_i_i
print_i_n
print_i_s
print_i_p
ne_n
and improve the tests for the lexical ops.
Simon
--- t/op/hacks.t.old Tue Oct 8 13:46:31 2002
+++ t/op/hacks.t Tue Oct 8 13:52:44 2002
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 1;
+use Parrot::Test tests => 2;
# It would be very embarrassing if these didn't work...
open FOO, ">temp.file";
@@ -19,5 +19,32 @@
1
2
OUTPUT
+
+open FOO, ">temp.file"; # Clobber previous contents
+close FOO;
+
+output_is(<<'CODE', <<'OUTPUT', "open & print");
+ set I0, -12
+ set N0, 2.2
+ set S0, "Foo"
+ new P0, .PerlString
+ set P0, "Bar\n"
+
+ open I1, "temp.file"
+ print I1, I0
+ print I1, N0
+ print I1, S0
+ print I1, P0
+ close I1
+
+ open I2, "temp.file"
+ readline S1, I2
+ close I2
+
+ print S1
+ end
+CODE
+-122.200000FooBar
+OUTPUT
unlink("temp.file");
-1; # HONK
\ No newline at end of file
+1; # HONK
--- t/op/number.t.old Tue Oct 8 13:59:03 2002
+++ t/op/number.t Tue Oct 8 14:02:34 2002
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 33;
+use Parrot::Test tests => 34;
use Test::More;
output_is(<<CODE, <<OUTPUT, "set_n_nc");
@@ -491,6 +491,50 @@ ok 1
ok 2
OUTPUT
+output_is(<<'CODE', <<OUTPUT, "ne_n");
+ set N0, 1.234567
+ set N1, -1.234567
+
+ bsr BR1
+ print "ok 1\n"
+ bsr BR2
+ print "ok 2\n"
+ bsr BR3
+ print "ok 3\n"
+ bsr BR4
+ print "ok 4\n"
+ bsr BR5
+ print "Shouldn't get here\n"
+ end
+
+BR1: ne N0, N1
+ print "not ok 1\n"
+ ret
+
+BR2: ne 2.54, N0
+ print "not ok 2\n"
+ ret
+
+BR3: ne N0, 0.00
+ print "not ok 3\n"
+ ret
+
+BR4: ne 1.0, 2.0
+ print "not ok 4\n"
+ ret
+
+BR5: ne N0, N0
+ print "ok 5\n"
+ end
+
+CODE
+ok 1
+ok 2
+ok 3
+ok 4
+ok 5
+OUTPUT
+
output_is(<<CODE, <<OUTPUT, "lt_n_ic");
set N0, 1000.0
set N1, 500.0
--- t/op/lexicals.t.old Tue Oct 8 14:16:20 2002
+++ t/op/lexicals.t Tue Oct 8 14:21:25 2002
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 2;
+use Parrot::Test tests => 3;
output_is(<<CODE, <<OUTPUT, "simple store and fetch");
new_pad
@@ -17,6 +17,33 @@ CODE
12
OUTPUT
+output_is(<<CODE, <<OUTPUT, "Repeated stores with the same key");
+ new_pad
+ new P0, .PerlInt
+ new P1, .PerlInt
+ set I0, 0
+LOOP:
+ set P0, I0
+ store_lex "a", P0
+ find_lex P1, "a"
+ print P1
+ print "\\n"
+ inc I0
+ lt I0, 10, LOOP
+ end
+CODE
+0
+1
+2
+3
+4
+5
+6
+7
+8
+9
+OUTPUT
+
output_is(<<CODE, <<OUTPUT, "nested scopes");
new P0, .PerlInt
new P1, .PerlInt
@@ -43,6 +70,10 @@ output_is(<<CODE, <<OUTPUT, "nested scop
print "\\n"
pop_pad
+ find_lex P3, "a"
+ print P3
+ print "\\n"
+
pop_pad
find_lex P3, "a"
@@ -52,6 +83,7 @@ output_is(<<CODE, <<OUTPUT, "nested scop
CODE
0
2
+1
0
OUTPUT
