use v6-alpha;
use Test;
=pod
This file was originally derived from the perl5 CPAN module Perl6::Rules,
version 0.3 (12 Apr 2004), file t/continue.t.
=cut
plan 6;
if !eval('("a" ~~ /a/)') {
skip_rest "skipped tests - rules support appears to be missing";
} else {
force_todo(1,2,3,4,6);
for ("abcdef") {
ok(m:pos/abc/, "Matched 1: '$/'" );
ok(eval(q{.pos == 3}), 'Interim position correct');
ok(m:pos/ghi|def/, "Matched 2: '$/'" );
ok(eval(q{.pos == 6}), 'Final position correct');
}
my $_ = "foofoofoo foofoofoo";
ok(s:global:pos/foo/FOO/, 'Globally contiguous substitution');
is($_, "FOOFOOFOO foofoofoo", 'Correctly substituted contiguously');
}