Index: string.t
===================================================================
RCS file: /home/perlcvs/parrot/t/op/string.t,v
retrieving revision 1.8
diff -u -w -r1.8 string.t
--- string.t 2001/10/05 11:46:47 1.8
+++ string.t 2001/10/10 08:42:55
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 11;
+use Parrot::Test tests => 23;
output_is( <<'CODE', <<OUTPUT, "set_s_sc" );
set S4, "JAPH\n"
@@ -148,6 +148,322 @@
end
CODE
done
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "eq_s_ic");
+ set S0, "hello"
+ set S1, "hello"
+ set S2, "world"
+ eq S0, S1, ONE
+ branch ERROR
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ eq S0, S2, ERROR
+ branch TWO
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "eq_sc_ic");
+ set S0, "hello"
+ eq S0, "hello", ONE
+ branch ERROR
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ eq S0, "world", ERROR
+ branch TWO
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "ne_s_ic");
+ set S0, "Hello"
+ set S1, "Hello"
+ set S2, "World"
+ ne S0, S1, ERROR
+ branch ONE
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ ne S0, S2, TWO
+ branch ERROR
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "ne_sc_ic");
+ set S0, "Hello"
+ ne S0, "Hello", ERROR
+ branch ONE
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ ne S0, "World", TWO
+ branch ERROR
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "lt_s_ic");
+ set S0, "hElLo"
+ set S1, "hElLo"
+ set S2, "wOrLd"
+ lt S0, S2, ONE
+ branch ERROR
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ lt S2, S0, ERROR
+ branch TWO
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ lt S0, S1, ERROR
+ branch THREE
+ print "bad\\n"
+THREE:
+ print "ok 3\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "lt_sc_ic");
+ set S0, "hElLo"
+ set S1, "wOrLd"
+ lt S0, "wOrLd", ONE
+ branch ERROR
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ lt S1, "hElLo", ERROR
+ branch TWO
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ lt S0, "hElLo", ERROR
+ branch THREE
+ print "bad\\n"
+THREE:
+ print "ok 3\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "le_s_ic");
+ set S0, "hello"
+ set S1, "hello"
+ set S2, "planet"
+ le S0, S2, ONE
+ branch ERROR
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ le S2, S0, ERROR
+ branch TWO
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ le S0, S1, THREE
+ branch ERROR
+ print "bad\\n"
+THREE:
+ print "ok 3\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "le_sc_ic");
+ set S0, "hello"
+ set S1, "planet"
+ le S0, "planet", ONE
+ branch ERROR
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ le S1, "hello", ERROR
+ branch TWO
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ le S0, "hello", THREE
+ branch ERROR
+ print "bad\\n"
+THREE:
+ print "ok 3\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "gt_s_ic");
+ set S0, "hello"
+ set S1, "hello"
+ set S2, "hellooo"
+ gt S0, S2, ERROR
+ branch ONE
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ gt S2, S0, TWO
+ branch ERROR
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ gt S0, S1, ERROR
+ branch THREE
+ print "bad\\n"
+THREE:
+ print "ok 3\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "gt_sc_ic");
+ set S0, "hello"
+ set S1, "hellooo"
+ gt S0, "hellooo", ERROR
+ branch ONE
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ gt S1, "hello", TWO
+ branch ERROR
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ gt S0, "hello", ERROR
+ branch THREE
+ print "bad\\n"
+THREE:
+ print "ok 3\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "ge_s_ic");
+ set S0, "hello"
+ set S1, "hello"
+ set S2, "world"
+ ge S0, S2, ERROR
+ branch ONE
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ ge S2, S0, TWO
+ branch ERROR
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ ge S0, S1, THREE
+ branch ERROR
+ print "bad\\n"
+THREE:
+ print "ok 3\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+OUTPUT
+
+output_is(<<CODE, <<OUTPUT, "ge_sc_ic");
+ set S0, "hello"
+ set S1, "world"
+ ge S0, "world", ERROR
+ branch ONE
+ print "bad\\n"
+ONE:
+ print "ok 1\\n"
+ ge S1, "hello", TWO
+ branch ERROR
+ print "bad\\n"
+TWO:
+ print "ok 2\\n"
+ ge S0, "hello", THREE
+ branch ERROR
+ print "bad\\n"
+THREE:
+ print "ok 3\\n"
+ end
+ERROR:
+ print "bad\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
OUTPUT
# Set all string registers to values given by &$_[0](reg num)