[svn:parrot] r41697 - branches/pct-rx/t/compilers/pct/regex

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Sun Oct  4 16:25:45 2009
New Revision: 41697
URL: https://trac.parrot.org/parrot/changeset/41697

Log:
[pct-rx]:  Move p6regex test a bit later in sequence.

Added:
   branches/pct-rx/t/compilers/pct/regex/06-p6regex.t   (props changed)
      - copied unchanged from r41696, branches/pct-rx/t/compilers/pct/regex/05-p6regex.t
Deleted:
   branches/pct-rx/t/compilers/pct/regex/05-p6regex.t

Deleted: branches/pct-rx/t/compilers/pct/regex/05-p6regex.t
==============================================================================
--- branches/pct-rx/t/compilers/pct/regex/05-p6regex.t	Sun Oct  4 16:25:45 2009	(r41696)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,45 +0,0 @@
-#! parrot
-# Copyright (C) 2009, Patrick R. Michaud
-# $Id$
-
-=head1 NAME
-
-t/compilers/pct/regex/05-p6regex.t - basic p6regex tests
-
-=head1 SYNOPSIS
-
-    % prove t/compilers/pct/regex/05-p6regext.t
-
-=cut
-
-.sub 'main' :main
-    load_bytecode 'Test/More.pbc'
-
-    .local pmc exports, curr_namespace, test_namespace
-    curr_namespace = get_namespace
-    test_namespace = get_namespace ['Test';'More']
-    exports        = split ' ', 'plan diag ok nok is todo'
-    test_namespace.'export_to'(curr_namespace, exports)
-
-    plan(4)
-
-    load_bytecode 'PCT/Regex.pbc'
-
-    .local pmc p6regex, cur
-    p6regex = get_hll_global ['Regex'], 'P6Regex'
-    cur = p6regex.'!cursor_init'('abcd')
-
-    .local pmc abc, match
-    abc = cur.'atom'()
-    ok(abc, 'Matched <atom> abc')
-    match = abc.'MATCH'()
-    $S0 = match
-    is($S0, 'abc', 'Matched <atom> abc')
-
-    .local pmc d
-    d = abc.'atom'()
-    ok(abc, 'Matched <atom> d')
-    match = d.'MATCH'()
-    $S0 = match
-    is($S0, 'd', 'Matched <atom> d')
-.end

Copied: branches/pct-rx/t/compilers/pct/regex/06-p6regex.t (from r41696, branches/pct-rx/t/compilers/pct/regex/05-p6regex.t)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/pct-rx/t/compilers/pct/regex/06-p6regex.t	Sun Oct  4 16:25:45 2009	(r41697, copy of r41696, branches/pct-rx/t/compilers/pct/regex/05-p6regex.t)
@@ -0,0 +1,45 @@
+#! parrot
+# Copyright (C) 2009, Patrick R. Michaud
+# $Id$
+
+=head1 NAME
+
+t/compilers/pct/regex/05-p6regex.t - basic p6regex tests
+
+=head1 SYNOPSIS
+
+    % prove t/compilers/pct/regex/05-p6regext.t
+
+=cut
+
+.sub 'main' :main
+    load_bytecode 'Test/More.pbc'
+
+    .local pmc exports, curr_namespace, test_namespace
+    curr_namespace = get_namespace
+    test_namespace = get_namespace ['Test';'More']
+    exports        = split ' ', 'plan diag ok nok is todo'
+    test_namespace.'export_to'(curr_namespace, exports)
+
+    plan(4)
+
+    load_bytecode 'PCT/Regex.pbc'
+
+    .local pmc p6regex, cur
+    p6regex = get_hll_global ['Regex'], 'P6Regex'
+    cur = p6regex.'!cursor_init'('abcd')
+
+    .local pmc abc, match
+    abc = cur.'atom'()
+    ok(abc, 'Matched <atom> abc')
+    match = abc.'MATCH'()
+    $S0 = match
+    is($S0, 'abc', 'Matched <atom> abc')
+
+    .local pmc d
+    d = abc.'atom'()
+    ok(abc, 'Matched <atom> d')
+    match = d.'MATCH'()
+    $S0 = match
+    is($S0, 'd', 'Matched <atom> d')
+.end