[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