cvsuser 04/08/03 11:24:04
Modified: t/pmc perlstring.t
Log:
eq & ne with PerlStrings
Revision Changes Path
1.25 +95 -2 parrot/t/pmc/perlstring.t
Index: perlstring.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlstring.t,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -w -r1.24 -r1.25
--- perlstring.t 18 Jun 2004 13:44:28 -0000 1.24
+++ perlstring.t 3 Aug 2004 18:24:04 -0000 1.25
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: perlstring.t,v 1.24 2004/06/18 13:44:28 leo Exp $
+# $Id: perlstring.t,v 1.25 2004/08/03 18:24:04 scog Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 37;
+use Parrot::Test tests => 39;
use Test::More; # Included for skip().
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -1019,6 +1019,54 @@
a2c
OUTPUT
+output_is( <<'CODE', <<OUTPUT, "eq");
+ new P1, .PerlString
+ set P1, "ABC"
+ set S1, "ABC"
+ set S2, "CBA"
+ set S3, "abc"
+ set S4, "ABCD"
+ set S5, "\0"
+ set S6, ""
+
+ eq P1, S1, OK1
+ print "not "
+OK1: print "ok 1\n"
+
+ eq P1, S2, BAD2
+ branch OK2
+BAD2: print "not "
+OK2: print "ok 2\n"
+
+ eq P1, S3, BAD3
+ branch OK3
+BAD3: print "not "
+OK3: print "ok 3\n"
+
+ eq P1, S4, BAD4
+ branch OK4
+BAD4: print "not "
+OK4: print "ok 4\n"
+
+ eq P1, S5, BAD5
+ branch OK5
+BAD5: print "not "
+OK5: print "ok 5\n"
+
+ eq P1, S6, BAD6
+ branch OK6
+BAD6: print "not "
+OK6: print "ok 6\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+ok 4
+ok 5
+ok 6
+OUTPUT
+
output_is( <<'CODE', <<OUTPUT, "eq_str");
new P1, .PerlString
new P2, .PerlString
@@ -1054,6 +1102,51 @@
ok 4
OUTPUT
+output_is( <<'CODE', <<OUTPUT, "ne");
+ new P1, .PerlString
+ set P1, "ABC"
+ set S1, "CBA"
+ set S2, "ABC"
+ set S3, "abc"
+ set S4, "ABCD"
+ set S5, "\0"
+ set S6, ""
+
+ ne P1, S1, OK1
+ print "not "
+OK1: print "ok 1\n"
+
+ ne P1, S2, BAD2
+ branch OK2
+BAD2: print "not "
+OK2: print "ok 2\n"
+
+ ne P1, S3, OK3
+ print "not "
+OK3: print "ok 3\n"
+
+ ne P1, S4, OK4
+ print "not "
+OK4: print "ok 4\n"
+
+ ne P1, S5, OK5
+ print "not "
+OK5: print "ok 5\n"
+
+ ne P1, S6, OK6
+ print "not "
+OK6: print "ok 6\n"
+
+ end
+CODE
+ok 1
+ok 2
+ok 3
+ok 4
+ok 5
+ok 6
+OUTPUT
+
output_is( <<'CODE', <<OUTPUT, "ne_str");
new P1, .PerlString
new P2, .PerlString
