[svn:parrot] r40067 - branches/ops_pct/compilers/nqp/t

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Jul 13 22:34:22 2009
New Revision: 40067
URL: https://trac.parrot.org/parrot/changeset/40067

Log:
[nqp] Add test for regexp quoting.

Modified:
   branches/ops_pct/compilers/nqp/t/30-interpolate.t

Modified: branches/ops_pct/compilers/nqp/t/30-interpolate.t
==============================================================================
--- branches/ops_pct/compilers/nqp/t/30-interpolate.t	Mon Jul 13 22:23:46 2009	(r40066)
+++ branches/ops_pct/compilers/nqp/t/30-interpolate.t	Mon Jul 13 22:34:22 2009	(r40067)
@@ -2,7 +2,7 @@
 
 # Iterpolation and quoting. Cherry-picked from Perl 6 spectest.
 
-plan(7);
+plan(9);
 
 # interpolating into double quotes results in a Str
 my $a := 1;
@@ -31,3 +31,8 @@
 ok( @list[0] == 'foo', 'First is "foo"');
 ok( @list[1] == 'bar', 'Second is "bar"');
 
+my $str := 'foo';
+my $matched := / foo /($str);
+ok($matched, 'Can positive match regexp');
+$matched := / bar /($str);
+ok(!$matched, 'Can negative match regexp');