[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