[svn:parrot] r40970 - trunk/t/pmc

NotFound at svn.parrot.org NotFound at svn.parrot.org
Fri Sep 4 14:30:09 UTC 2009


Author: NotFound
Date: Fri Sep  4 14:30:03 2009
New Revision: 40970
URL: https://trac.parrot.org/parrot/changeset/40970

Log:
[t] increase coverage of fixedpmcarray

Modified:
   trunk/t/pmc/fixedpmcarray.t

Modified: trunk/t/pmc/fixedpmcarray.t
==============================================================================
--- trunk/t/pmc/fixedpmcarray.t	Fri Sep  4 05:41:34 2009	(r40969)
+++ trunk/t/pmc/fixedpmcarray.t	Fri Sep  4 14:30:03 2009	(r40970)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw(lib . ../lib ../../lib);
 
-use Parrot::Test tests => 21;
+use Parrot::Test tests => 22;
 use Test::More;
 
 =head1 NAME
@@ -401,6 +401,27 @@
 /Null PMC access in name()/
 OUTPUT
 
+pir_output_is(<<'CODE', <<'OUTPUT', "Getting null elements");
+
+.sub main :main
+  .local pmc arr1, n
+  .local int i
+  .local string s
+  arr1 = new ['FixedPMCArray']
+  arr1 = 1
+  arr1[0] = n
+  i = arr1[0]
+  say i
+  s = arr1[0]
+  print '"'
+  print s
+  say '"'
+.end
+CODE
+0
+""
+OUTPUT
+
 pir_output_is( << 'CODE', << 'OUTPUT', "Multi keys" );
 
 .sub test :main


More information about the parrot-commits mailing list