cvs commit: parrot/t/pmc fixedfloatarray.t

[Simon Glover]

cvsuser     04/08/09 13:45:31

  Modified:    t/pmc    fixedfloatarray.t
  Log:
  Test for get_bool method
  
  Revision  Changes    Path
  1.3       +17 -2     parrot/t/pmc/fixedfloatarray.t
  
  Index: fixedfloatarray.t
  ===================================================================
  RCS file: /cvs/public/parrot/t/pmc/fixedfloatarray.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- fixedfloatarray.t 3 Aug 2004 18:33:54 -0000       1.2
  +++ fixedfloatarray.t 9 Aug 2004 20:45:31 -0000       1.3
  @@ -1,6 +1,6 @@
   #! perl -w
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: fixedfloatarray.t,v 1.2 2004/08/03 18:33:54 scog Exp $
  +# $Id: fixedfloatarray.t,v 1.3 2004/08/09 20:45:31 scog Exp $
   
   =head1 NAME
   
  @@ -17,7 +17,7 @@
   
   =cut
   
  -use Parrot::Test tests => 9;
  +use Parrot::Test tests => 10;
   use Test::More;
   
   my $fp_equality_macro = <<'ENDOFMACRO';
  @@ -295,5 +295,20 @@
   ok
   OUTPUT
   
  +output_is(<<'CODE', <<'OUTPUT', "Truth");
  +     new P0, .FixedFloatArray
  +        unless P0, OK1
  +     print "not "
  +OK1: print "ok 1\n"
  +        set P0, 1
  +        if P0, OK2        
  +     print "not "
  +OK2: print "ok 2\n"
  +        end
  +CODE
  +ok 1
  +ok 2
  +OUTPUT
  +
   
   1;