[svn:parrot] r10768 - in trunk/languages: . regex/t/basic

[bernhard]

Author: bernhard
Date: Thu Dec 29 10:14:56 2005
New Revision: 10768

Modified:
   trunk/languages/regex/t/basic/ngplus.t
   trunk/languages/testall
Log:
regex: Fix some tests for non-greedy matching


Modified: trunk/languages/regex/t/basic/ngplus.t
==============================================================================
--- trunk/languages/regex/t/basic/ngplus.t      (original)
+++ trunk/languages/regex/t/basic/ngplus.t      Thu Dec 29 10:14:56 2005
@@ -7,11 +7,11 @@ use lib "$FindBin::Bin/../../lib";
 use Parrot::Test::Regex;
 use Regex;
 use Regex::Driver;
-
 use Test::More;
 
-Parrot::Test::Regex::run_spec( \*DATA );
+# test 'plus' quantifier, non greedy
 
+Parrot::Test::Regex::run_spec( \*DATA );
 
 __END__
 a+?
@@ -28,14 +28,14 @@ INPUT:
 aaaaax
 OUTPUT:
 Match found
-0: 0..4
+0: 0..0
 INPUT:
 aaaaa
 OUTPUT:
 Match found
-0: 0..4
+0: 0..0
 INPUT:
 yaaaaaay!!!
 OUTPUT:
 Match found
-0: 1..6
+0: 1..1

Modified: trunk/languages/testall
==============================================================================
--- trunk/languages/testall     (original)
+++ trunk/languages/testall     Thu Dec 29 10:14:56 2005
@@ -97,7 +97,7 @@ my @unified_testable_languages = 
        tcl
        unlambda
        urm );
-# @unified_testable_languages = qw( jako );
[EMAIL PROTECTED] = qw( regex );
 
 my @harnesses =
     grep {-f $_}