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

NotFound at svn.parrot.org NotFound at svn.parrot.org
Sun Sep 6 17:14:49 UTC 2009


Author: NotFound
Date: Sun Sep  6 17:14:48 2009
New Revision: 41072
URL: https://trac.parrot.org/parrot/changeset/41072

Log:
[t] test get_repr in FPA

Modified:
   trunk/t/pmc/fixedpmcarray.t

Modified: trunk/t/pmc/fixedpmcarray.t
==============================================================================
--- trunk/t/pmc/fixedpmcarray.t	Sun Sep  6 16:53:22 2009	(r41071)
+++ trunk/t/pmc/fixedpmcarray.t	Sun Sep  6 17:14:48 2009	(r41072)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw(lib . ../lib ../../lib);
 
-use Parrot::Test tests => 25;
+use Parrot::Test tests => 26;
 use Test::More;
 
 =head1 NAME
@@ -800,6 +800,22 @@
 /FixedPMCArray: index out of bounds!/
 OUTPUT
 
+pir_output_like( <<'CODE', <<'OUTPUT', 'get_repr');
+.sub 'main'
+    .local pmc fpa, n
+    .local string s
+    fpa = new ['FixedPMCArray']
+    fpa = 2
+    n = box 1
+    fpa[0] = n
+    fpa[1] = n
+    s = get_repr fpa
+    say s
+.end
+CODE
+/(1,\s*1)/
+OUTPUT
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4


More information about the parrot-commits mailing list