[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