[perl6]: Added t/00-parrot/08-regex.t

git-svn-id: http://svn.perl.org/parrot/trunk/languages/perl6@12632 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
rakudo · May 12, 2006 · 760c373 · 760c373
1 parent 80f6334
commit 760c373
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/t/00-parrot/08-regex.t b/t/00-parrot/08-regex.t
@@ -0,0 +1,15 @@
+#!./parrot
+
+# check basic regex capabilities
+
+use v6;
+
+say '1..3';
+
+'abc' ~~ /abc/ and say 'ok 1';
+'2' ~~ /^ \d+ $/ and say "ok ", $/;
+
+my $rx = / <alpha> /;
+'012a456' ~~ $rx and say 'ok 3';
+
+