cvsuser 03/10/07 08:46:11
Modified: t/op string.t Log: Basic test for string_chartype op Revision Changes Path 1.57 +18 -1 parrot/t/op/string.t Index: string.t =================================================================== RCS file: /cvs/public/parrot/t/op/string.t,v retrieving revision 1.56 retrieving revision 1.57 diff -u -w -r1.56 -r1.57 --- string.t 22 Sep 2003 13:51:49 -0000 1.56 +++ string.t 7 Oct 2003 15:46:11 -0000 1.57 @@ -1,6 +1,6 @@ #! perl -w -use Parrot::Test tests => 119; +use Parrot::Test tests => 120; use Test::More; output_is( <<'CODE', <<OUTPUT, "set_s_s|sc" ); @@ -2041,6 +2041,23 @@ CODE ASCII is the same as UTF8 ASCII is the same as UTF8 +OUTPUT + +output_is(<<'CODE', <<OUTPUT, "string_chartype"); + set S0, "Test String" + find_chartype I0, "usascii" + set_chartype S0, I0 + string_chartype I1, S0 + eq I1, I0, OK + print I0 + print "\n" + print I1 + print "\n" + print "not " +OK: print "ok\n" + end +CODE +ok OUTPUT # Set all string registers to values given by &$_[0](reg num)
