cvsuser 05/01/05 07:33:19
Modified: t/pmc perlarray.t Log: gcov now reports 100% of lines in perlarray.pmc have test coverage Revision Changes Path 1.39 +35 -2 parrot/t/pmc/perlarray.t Index: perlarray.t =================================================================== RCS file: /cvs/public/parrot/t/pmc/perlarray.t,v retrieving revision 1.38 retrieving revision 1.39 diff -u -r1.38 -r1.39 --- perlarray.t 16 Dec 2004 19:22:46 -0000 1.38 +++ perlarray.t 5 Jan 2005 15:33:19 -0000 1.39 @@ -1,6 +1,6 @@ #! perl -w # Copyright: 2001-2003 The Perl Foundation. All Rights Reserved. -# $Id: perlarray.t,v 1.38 2004/12/16 19:22:46 chromatic Exp $ +# $Id: perlarray.t,v 1.39 2005/01/05 15:33:19 scog Exp $ =head1 NAME @@ -16,7 +16,7 @@ =cut -use Parrot::Test tests => 27; +use Parrot::Test tests => 28; use Test::More; my $fp_equality_macro = <<'ENDOFMACRO'; @@ -1415,5 +1415,38 @@ 0 OUTPUT +output_is(<< "CODE", << 'OUTPUT', "Keyed access"); [EMAIL PROTECTED] $fp_equality_macro ]} + new P0, .PerlArray + new P1, .Key + set P1, 10 + set P0[P1], 2 + new P2, .Key + set P2, 20 + set P0[P2], 4.0 + new P3, .Key + set P3, 30 + set P0[P3], "six" + + set P10, P0[10] + eq P10, 2, OK1 + print "not " +OK1: print "ok 1\\n" + set P10, P0[20] + .fp_eq(P10, 4.0, OK2) + print "not " +OK2: print "ok 2\\n" + set P10, P0[30] + eq P10, "six", OK3 + print "not " +OK3: print "ok 3\\n" + end +CODE +ok 1 +ok 2 +ok 3 +OUTPUT + + 1;
