Re: [PATCH] 3-arg chopn

On Tue, 2 Jul 2002, Dan Sugalski wrote:

> At 2:37 PM -0500 7/2/02, brian wheeler wrote:
> >I saw this was a TODO item in core.ops.
>
> Applied, thanks.
>
> Tests, from anyone, would be much appreciated.

 Will these do?

 Simon


--- t/op/string.t.old	Tue Jul  2 16:59:23 2002
+++ t/op/string.t	Tue Jul  2 17:13:10 2002
@@ -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" );
@@ -97,6 +97,84 @@ 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" );
 	set	S4, "12345JAPH01"
 	set	I4, 5

• [PATCH] 3-arg chopn by brian wheeler
• Re: [PATCH] 3-arg chopn by Dan Sugalski
• Re: [PATCH] 3-arg chopn by Simon Glover
• Re: [PATCH] 3-arg chopn by Dan Sugalski
• Re: [PATCH] 3-arg chopn by Josh Wilmes