cvs commit: parrot/t/op integer.t number.t

[Simon Glover]

cvsuser     03/06/25 05:30:12

  Modified:    t/op     integer.t number.t
  Log:
  Add tests for null op
  
  Revision  Changes    Path
  1.30      +16 -1     parrot/t/op/integer.t
  
  Index: integer.t
  ===================================================================
  RCS file: /cvs/public/parrot/t/op/integer.t,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -w -r1.29 -r1.30
  --- integer.t 21 Nov 2002 16:41:33 -0000      1.29
  +++ integer.t 25 Jun 2003 12:30:12 -0000      1.30
  @@ -1,6 +1,6 @@
   #! perl -w
   
  -use Parrot::Test tests => 38;
  +use Parrot::Test tests => 39;
   
   output_is(<<CODE, <<OUTPUT, "set_i_ic");
        # XXX: Need a test for writing outside the set of available
  @@ -1179,6 +1179,21 @@
   20
   10
   30
  +OUTPUT
  +
  +output_is(<<'CODE', <<OUTPUT, "null");
  +    set I1, 1000
  +    print I1
  +    print "\n"
  +
  +    null I1
  +    print I1
  +    print "\n"
  +
  +    end
  +CODE
  +1000
  +0
   OUTPUT
   
   1;
  
  
  
  1.29      +17 -1     parrot/t/op/number.t
  
  Index: number.t
  ===================================================================
  RCS file: /cvs/public/parrot/t/op/number.t,v
  retrieving revision 1.28
  retrieving revision 1.29
  diff -u -w -r1.28 -r1.29
  --- number.t  28 Dec 2002 01:37:54 -0000      1.28
  +++ number.t  25 Jun 2003 12:30:12 -0000      1.29
  @@ -1,6 +1,6 @@
   #! perl -w
   
  -use Parrot::Test tests => 37;
  +use Parrot::Test tests => 38;
   use Test::More;
   
   output_is(<<CODE, <<OUTPUT, "set_n_nc");
  @@ -1034,5 +1034,21 @@
   2500.000000
   0.000000
   OUTPUT
  +
  +output_is(<<'CODE', <<OUTPUT, "null");
  +    set N31, 12.5
  +    print N31
  +    print "\n"
  +
  +    null N31
  +    print N31
  +    print "\n"
  +   
  +    end
  +CODE
  +12.500000
  +0.000000
  +OUTPUT
  +
   1;