[svn:parrot] r40509 - in trunk: . t/compilers/pge t/pmc
allison at svn.parrot.org
allison at svn.parrot.org
Thu Aug 13 02:36:48 UTC 2009
Author: allison
Date: Thu Aug 13 02:36:46 2009
New Revision: 40509
URL: https://trac.parrot.org/parrot/changeset/40509
Log:
[cage] Move PGE regression tests out of core tests and into PGE tests.
Added:
trunk/t/compilers/pge/regression.t
Modified:
trunk/MANIFEST
trunk/t/pmc/sub.t
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST Thu Aug 13 02:25:41 2009 (r40508)
+++ trunk/MANIFEST Thu Aug 13 02:36:46 2009 (r40509)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Aug 9 22:34:52 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Thu Aug 13 02:35:20 2009 UT
#
# See below for documentation on the format of this file.
#
@@ -1597,6 +1597,7 @@
t/compilers/pge/pge_globs.t [test]
t/compilers/pge/pge_text.t [test]
t/compilers/pge/pge_util.t [test]
+t/compilers/pge/regression.t [test]
t/compilers/tge/NoneGrammar.tg [test]
t/compilers/tge/basic.t [test]
t/compilers/tge/grammar.t [test]
@@ -1823,11 +1824,11 @@
t/perl/testlib/answer.pir [test]
t/perl/testlib/hello [test]
t/perl/testlib/hello.pasm [test]
-t/pir/macro.t [test]
t/pharness/01-default_tests.t [test]
t/pharness/02-get_test_prog_args.t [test]
t/pharness/03-handle_long_options.t [test]
t/pharness/04-Usage.t [test]
+t/pir/macro.t [test]
t/pmc/addrregistry.t [test]
t/pmc/array.t [test]
t/pmc/arrayiterator.t [test]
Added: trunk/t/compilers/pge/regression.t
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ trunk/t/compilers/pge/regression.t Thu Aug 13 02:36:46 2009 (r40509)
@@ -0,0 +1,60 @@
+#! perl
+# Copyright (C) 2001-2005, Parrot Foundation.
+# $Id: pge.t 37201 2009-03-08 12:07:48Z fperrad $
+
+use strict;
+use warnings;
+use lib qw( t . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 2;
+
+=head1 NAME
+
+t/compilers/pge/regression.t - PGE regression tests
+
+=head1 SYNOPSIS
+
+ % prove t/compilers/pge/regression.t
+
+=cut
+
+pir_output_is( <<'CODE', <<'OUTPUT', 'load_bytecode with .pir (RT #39807)' );
+.sub main :main
+ load_bytecode 'PGE.pbc'
+ load_bytecode 'dumper.pir'
+ load_bytecode 'PGE/Dumper.pir'
+
+ $P0 = compreg 'PGE::P5Regex'
+ $P1 = $P0('aabb*')
+ $P2 = $P1('fooaabbbar')
+
+ _dumper($P2)
+.end
+CODE
+"VAR1" => PMC 'PGE;Match' => "aabbb" @ 3
+OUTPUT
+
+pir_output_is( <<'CODE', <<'OUTPUT', 'load_bytecode with .pbc (RT #39807)' );
+.sub main :main
+ load_bytecode 'PGE.pbc'
+ load_bytecode 'dumper.pbc'
+ load_bytecode 'PGE/Dumper.pbc'
+
+ $P0 = compreg 'PGE::P5Regex'
+ $P1 = $P0('aabb*')
+ $P2 = $P1('fooaabbbar')
+
+ _dumper($P2)
+.end
+CODE
+"VAR1" => PMC 'PGE;Match' => "aabbb" @ 3
+OUTPUT
+
+
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/t/pmc/sub.t
==============================================================================
--- trunk/t/pmc/sub.t Thu Aug 13 02:25:41 2009 (r40508)
+++ trunk/t/pmc/sub.t Thu Aug 13 02:36:46 2009 (r40509)
@@ -1224,38 +1224,6 @@
ok
OUTPUT
-pir_output_is( <<'CODE', <<'OUTPUT', 'load_bytecode with .pir (RT #39807)' );
-.sub main :main
- load_bytecode 'PGE.pbc'
- load_bytecode 'dumper.pir'
- load_bytecode 'PGE/Dumper.pir'
-
- $P0 = compreg 'PGE::P5Regex'
- $P1 = $P0('aabb*')
- $P2 = $P1('fooaabbbar')
-
- _dumper($P2)
-.end
-CODE
-"VAR1" => PMC 'PGE;Match' => "aabbb" @ 3
-OUTPUT
-
-pir_output_is( <<'CODE', <<'OUTPUT', 'load_bytecode with .pbc (RT #39807)' );
-.sub main :main
- load_bytecode 'PGE.pbc'
- load_bytecode 'dumper.pbc'
- load_bytecode 'PGE/Dumper.pbc'
-
- $P0 = compreg 'PGE::P5Regex'
- $P1 = $P0('aabb*')
- $P2 = $P1('fooaabbbar')
-
- _dumper($P2)
-.end
-CODE
-"VAR1" => PMC 'PGE;Match' => "aabbb" @ 3
-OUTPUT
-
pir_error_output_like( <<'CODE', qr/Null PMC access in invoke()/, 'invoking null pmc' );
.sub main :main
null $P0
More information about the parrot-commits
mailing list