Author: pmichaud
Date: Sat Apr 14 07:42:03 2007
New Revision: 18192
Added:
trunk/t/compilers/pge/perl6regex/context.t
- copied, changed from r18189, /trunk/t/compilers/pge/p6regex/context.t
Modified:
trunk/MANIFEST
Log:
[pge]: Migrate p6regex/context.t to perl6regex/context.t .
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Sat Apr 14 07:42:03 2007
@@ -2755,6 +2755,7 @@
t/compilers/pge/p6regex/syntax_errors.t []
t/compilers/pge/p6regex/text_brk.t []
t/compilers/pge/perl6regex/01-regex.t []
+t/compilers/pge/perl6regex/context.t []
t/compilers/pge/perl6regex/rx_backtrack []
t/compilers/pge/perl6regex/rx_captures []
t/compilers/pge/perl6regex/rx_charclass []
Copied: trunk/t/compilers/pge/perl6regex/context.t (from r18189,
/trunk/t/compilers/pge/p6regex/context.t)
==============================================================================
--- /trunk/t/compilers/pge/p6regex/context.t (original)
+++ trunk/t/compilers/pge/perl6regex/context.t Sat Apr 14 07:42:03 2007
@@ -32,8 +32,8 @@
load_bytecode "PGE/Glob.pir"
load_bytecode "PGE/Text.pir"
.local string target, pattern
- .local pmc p6rule, rulesub, pir, exp, match
- p6rule = compreg 'PGE::P6Regex'
+ .local pmc perl6regex, rulesub, pir, exp, match
+ perl6regex = compreg 'PGE::Perl6Regex'
null match
null rulesub
PRE
@@ -50,7 +50,7 @@
## binary context
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'binary context (true)' );
- rulesub = p6rule('abc')
+ rulesub = perl6regex('abc')
match = rulesub('abc')
if match goto OK
goto NOK
@@ -58,7 +58,7 @@
ok
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'binary context (false)' );
- rulesub = p6rule('xxx')
+ rulesub = perl6regex('xxx')
match = rulesub('abc')
unless match goto OK
CODE
@@ -67,7 +67,7 @@
## numeric context
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'numeric context (1abc => 1)' );
- rulesub = p6rule('1abc')
+ rulesub = perl6regex('1abc')
match = rulesub('1abc')
$I0 = match
print $I0
@@ -76,7 +76,7 @@
1
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'numeric context ((1)(2)(b)(c)
=> 12)' );
- rulesub = p6rule('(1)(2)(b)(c)')
+ rulesub = perl6regex('(1)(2)(b)(c)')
match = rulesub('12bc')
$I0 = match
print $I0
@@ -85,7 +85,7 @@
12
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'numeric context (0abc => 0)' );
- rulesub = p6rule('0abc')
+ rulesub = perl6regex('0abc')
match = rulesub('abc')
$I0 = match
print $I0
@@ -94,7 +94,7 @@
0
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'numeric context (xxx => 0)' );
- rulesub = p6rule('xxx')
+ rulesub = perl6regex('xxx')
match = rulesub('abc')
$I0 = match
print $I0
@@ -103,7 +103,7 @@
0
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'numeric context (a1bc => 0)' );
- rulesub = p6rule('a1bc')
+ rulesub = perl6regex('a1bc')
match = rulesub('a1bc')
$I0 = match
print $I0
@@ -112,7 +112,7 @@
0
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'numeric context (1E5)' );
- rulesub = p6rule('1E5abc')
+ rulesub = perl6regex('1E5abc')
match = rulesub('1E5abc')
print match
goto END
@@ -124,7 +124,7 @@
## NOTE: this behavior varies from the doc, but it is in a soon-to-be-released
## version of the new specification
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'string context (match => full
match)' );
- rulesub = p6rule('abc')
+ rulesub = perl6regex('abc')
match = rulesub('abc')
.local string res, exp
res = match
@@ -135,7 +135,7 @@
ok
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'string context (with captures
=> full match)' );
- rulesub = p6rule('(a)(b)(c)')
+ rulesub = perl6regex('(a)(b)(c)')
match = rulesub('abc')
.local string res, exp
res = match
@@ -146,7 +146,7 @@
ok
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'string context (false match =>
"")' );
- rulesub = p6rule('xxx')
+ rulesub = perl6regex('xxx')
match = rulesub('abc')
.local string res, exp
res = match
@@ -158,7 +158,7 @@
## as array
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'as array ([2,1,0] => "cba")' );
- rulesub = p6rule('(a)(b)(c)')
+ rulesub = perl6regex('(a)(b)(c)')
match = rulesub('abc')
.local string res
$P0 = match[2]
@@ -175,7 +175,7 @@
cba
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'as array ([2,1,0] => "cba")' );
- rulesub = p6rule('(a)(b)(c)')
+ rulesub = perl6regex('(a)(b)(c)')
match = rulesub('abc')
.local string res
res = match[2]
@@ -192,7 +192,7 @@
## as hash
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'as hash (A => "a")' );
- rulesub = p6rule('$<A>:=(.)b$<C>:=(c)')
+ rulesub = perl6regex('$<A>:=(.)b$<C>:=(c)')
match = rulesub('abc')
.local string res
res = match['A']
@@ -204,7 +204,7 @@
ac
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'mixed, array & hash' );
- rulesub = p6rule('$<A>:=(.)(b)$<C>:=(c)')
+ rulesub = perl6regex('$<A>:=(.)(b)$<C>:=(c)')
match = rulesub('abc')
.local string res
res = match['A']
@@ -223,7 +223,7 @@
pir_output_is(
$PRE
. <<'CODE'. $POST, <<OUT, 'numbered as named ($2 => $/[1])', todo =>
'not yet implemented' );
- rulesub = p6rule('(a)(b)(c)')
+ rulesub = perl6regex('(a)(b)(c)')
match = rulesub('abc')
.local string res, exp
$P0 = match[1]
@@ -238,7 +238,7 @@
## additional methods
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'additional match methods' );
- rulesub = p6rule('abc')
+ rulesub = perl6regex('abc')
match = rulesub('abc')
.local string from, to
from = match.'from'()
@@ -251,7 +251,7 @@
0 3
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'additional match methods' );
- rulesub = p6rule('(a)(b)(c)')
+ rulesub = perl6regex('(a)(b)(c)')
match = rulesub('abc')
.local string from, to
$P0 = match[1]
@@ -267,7 +267,7 @@
## object isa 'PGE::Match'
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'isa PGE::Match (success)' );
- rulesub = p6rule('(a)(b)(c)')
+ rulesub = perl6regex('(a)(b)(c)')
match = rulesub('abc')
.local int isa_match
@@ -300,7 +300,7 @@
OUT
pir_output_is( $PRE . <<'CODE'. $POST, <<OUT, 'isa PGE::Match (failure)' );
- rulesub = p6rule('(a)(b)(c)')
+ rulesub = perl6regex('(a)(b)(c)')
match = rulesub('xxx')
.local int isa_match
