cvs commit: parrot/t/op string.t

[Simon Glover]

cvsuser     04/03/16 12:29:01

  Modified:    t/op     string.t
  Log:
  Test for eq_addr and ne_addr ops
  
  Revision  Changes    Path
  1.67      +30 -2     parrot/t/op/string.t
  
  Index: string.t
  ===================================================================
  RCS file: /cvs/public/parrot/t/op/string.t,v
  retrieving revision 1.66
  retrieving revision 1.67
  diff -u -w -r1.66 -r1.67
  --- string.t  16 Mar 2004 20:23:20 -0000      1.66
  +++ string.t  16 Mar 2004 20:29:01 -0000      1.67
  @@ -1,6 +1,6 @@
   #! perl -w
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: string.t,v 1.66 2004/03/16 20:23:20 scog Exp $
  +# $Id: string.t,v 1.67 2004/03/16 20:29:01 scog Exp $
   
   =head1 NAME
   
  @@ -16,7 +16,7 @@
   
   =cut
   
  -use Parrot::Test tests => 126;
  +use Parrot::Test tests => 127;
   use Test::More;
   
   output_is( <<'CODE', <<OUTPUT, "set_s_s|sc" );
  @@ -2310,6 +2310,34 @@
   
   a
   a--b
  +OUTPUT
  +
  +output_is( <<'CODE', <<OUTPUT, "eq_addr/ne_addr");
  +        set S0, "Test"
  +        set S1, S0
  +        eq_addr S1, S0, OK1
  +        print "not "
  +OK1:    print "ok 1\n"
  +        set S1, "Test"
  +        eq_addr S1, S0, BAD2
  +        branch OK2
  +BAD2:   print "not "
  +OK2:    print "ok 2\n"
  +
  +        ne_addr S1, S0, OK3
  +        print "not "
  +OK3:    print "ok 3\n"
  +        set S0, S1
  +        ne_addr S1, S0, BAD4
  +        branch OK4
  +BAD4:   print "not "
  +OK4:    print "ok 4\n"
  +        end
  +CODE
  +ok 1
  +ok 2
  +ok 3
  +ok 4
   OUTPUT
   
   1;