cvsuser 02/07/02 14:19:42
Modified: t/op string.t
Log:
3 arg chopn tests
Courtesy of Simon Glover <[EMAIL PROTECTED]>
Revision Changes Path
1.28 +79 -1 parrot/t/op/string.t
Index: string.t
===================================================================
RCS file: /cvs/public/parrot/t/op/string.t,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -w -r1.27 -r1.28
--- string.t 7 Jun 2002 15:06:21 -0000 1.27
+++ string.t 2 Jul 2002 21:19:42 -0000 1.28
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 83;
+use Parrot::Test tests => 85;
use Test::More;
output_is( <<'CODE', <<OUTPUT, "set_s_s|sc" );
@@ -95,6 +95,84 @@
A string of lengt
A string of lengt
** nothing **
+OUTPUT
+
+output_is(<<'CODE', <<OUTPUT, "Three argument chopn");
+ set S1, "Parrot"
+
+ chopn S2, S1, 0
+ print S1
+ print "\n"
+ print S2
+ print "\n"
+
+ chopn S2, S1, 1
+ print S1
+ print "\n"
+ print S2
+ print "\n"
+
+ set I0, 2
+ chopn S2, S1, I0
+ print S1
+ print "\n"
+ print S2
+ print "\n"
+
+ chopn S2, "Parrot", 3
+ print S2
+ print "\n"
+
+ chopn S1, S1, 5
+ print S1
+ print "\n"
+
+ set S1, "Parrot"
+ set S3, S1
+ chopn S2, S1, 3
+ print S3
+ print "\n"
+
+ set S3, S1
+ chopn S1, 3
+ print S3
+ print "\n"
+
+ end
+CODE
+Parrot
+Parrot
+Parrot
+Parro
+Parrot
+Parr
+Par
+P
+Parrot
+Par
+OUTPUT
+
+output_is(<<'CODE', <<OUTPUT, "Three argument chopn, OOB values");
+ set S1, "Parrot"
+
+ chopn S2, S1, 7
+ print S1
+ print "\n"
+ print S2
+ print "\n"
+
+ chopn S2, S1, -1
+ print S1
+ print "\n"
+ print S2
+ print "\n"
+
+ end
+CODE
+Parrot
+
+Parrot
+Parrot
OUTPUT
output_is( <<'CODE', <<'OUTPUT', "substr_s_s|sc_i|ic_i|ic" );
