Changeset 6095

Timestamp:

08/07/05 00:54:06 (3 years ago)

Author:

putter

Message:

Undisabled a number of rules tests. Moved t_disabled/rules/from_perl6_rules/temp_moved_here_because_pge_doesnt_work_atm/ back to t/rules/from_perl6_rules/, and modified the tests to all be well behaved with parrot-0.2.3.

Location:

t/rules/from_perl6_rules

Files:

• . (moved) (moved from t_disabled/rules/from_perl6_rules/temp_moved_here_because_pge_doesnt_work_atm)
• array_cap.t (modified) (2 diffs)
• capture.t (modified) (1 diff)
• der_grammar.t (modified) (2 diffs)
• named_cap.t (modified) (1 diff)
• word.t (modified) (1 diff)

t/rules/from_perl6_rules/array_cap.t

@@ -40 +40 @@
 # ok("abcxyd" ~~ m/a  @GA:=(.(.))+  d/, 'Global array capture');
 is("@GA[]", "c y", 'Global array captured');
-ok(%$/.keys == 0, 'No vestigal captures');
+ok(%$/.keys == 0, 'No vestigal captures', :todo<bug> );
 
 my @foo;
@@ -56 +56 @@
   is $ret, "bc", 'Implicit hypothetical variable captured -- retval is correct';
 }
-ok(! @{$/<foo>}, 'Explicit hypothetical variable not captured');
+ok(! @{$/<foo>}, 'Explicit hypothetical variable not captured', :todo<bug>);
 
 fail "Test hangs", :todo<bug>;

t/rules/from_perl6_rules/capture.t

@@ -22 +22 @@
 rule dotdot { (.)(.) };
 
-fail "Test hangs", :todo<bug>;
-# ok("zzzabcdefzzz" ~~ m/(a.)<?dotdot>(..)/, 'Match');
+ok("zzzabcdefzzz" ~~ m/(a.)<?dotdot>(..)/, 'Match');
 ok($/, 'Matched');
 is($/, "abcdef", 'Captured');

t/rules/from_perl6_rules/der_grammar.t

@@ -65 +65 @@
 # Test rederivation and polymorphism...
 
-ok('abc' ~~ m/^ (<Yet::Another.abc>) $/, '<Yet::Another.abc>', :todo<feature>);
+fail("FIXME parsefail", :todo);
+#ok(eval(q{'abc' ~~ m/^ (<Yet::Another.abc>) $/ }), '<Yet::Another.abc>', :todo<feature>);
 is($/, "abc", 'abc $/', :todo<feature>);
 is($0, "abc", 'abc $0', :todo<feature>);
 
-ok(!( 'abc' ~~ m/ (<Yet::Another.bee>) / ), 'abc <Yet::Another.bee>');
-ok('aBc' ~~ m/ (<Yet::Another.bee>) /, 'aBc <Yet::Another.bee>', :todo<feature>);
+fail("FIXME parsefail", :todo);
+#ok(eval(q{!( 'abc' ~~ m/ (<Yet::Another.bee>) / ) }), 'abc <Yet::Another.bee>');
+fail("FIXME parsefail", :todo);
+#ok(eval(q{'aBc' ~~ m/ (<Yet::Another.bee>) / }), 'aBc <Yet::Another.bee>', :todo<feature>);
 is($/, "B", 'Yet::Another::bee $/', :todo<feature>);
 is($0, "B", 'Yet::Another::bee $0', :todo<feature>);
 
-ok(!( 'def' ~~ m/^ (<Yet::Another.def>) $/ ), 'def (<Yet::Another.def>)');
-ok('DeF' ~~ m/^ (<Yet::Another.def>) $/, 'DeF (<Yet::Another.def>)', :todo<feature>);
+fail("FIXME parsefail", :todo);
+#ok(eval(q{!( 'def' ~~ m/^ (<Yet::Another.def>) $/ ) }), 'def (<Yet::Another.def>)');
+fail("FIXME parsefail", :todo);
+#ok(eval(q{'DeF' ~~ m/^ (<Yet::Another.def>) $/ }), 'DeF (<Yet::Another.def>)', :todo<feature>);
 is($/, "DeF", 'DeF $/', :todo<feature>);
 is($0, "DeF", 'DeF $0', :todo<feature>);
 
-ok('DeF' ~~ m/^ <?Yet::Another.def> $/, '<?Yet::Another.def>', :todo<feature>);
+fail("FIXME parsefail", :todo);
+#ok('DeF' ~~ m/^ <?Yet::Another.def> $/, '<?Yet::Another.def>', :todo<feature>);
 is($/, "DeF", '?Yet::Another.def $/', :todo<feature>);
 ok($0 ne "DeF", '?Yet::Another.def $0');
@@ -88 +94 @@
 # Non-existent rules...
 
-ok(!eval(q{ 'abc' ~~ m/ (<Another.sea>) / }), '<Another.sea>');
+fail("FIXME parsefail", :todo);
+#ok(!eval(q{ 'abc' ~~ m/ (<Another.sea>) /  }), '<Another.sea>');
 ok($!, 'Error', :todo<feature>);
 

t/rules/from_perl6_rules/named_cap.t

@@ -42 +42 @@
 is($foo, "bc", 'Explicit package variable captured', :todo<feature> );
 
-ok("a cat_O_9_tails" ~~ m:w/<alpha> <ident>/, 'Standard captures', :todo<feature> );
-is($/<alpha>, "a", 'Captured <?alpha>', :todo<feature> );
-is($/<ident>, "cat_O_9_tails", 'Captured <?ident>', :todo<feature> );
+ok("a cat_O_9_tails" ~~ m:w/<alpha> <ident>/, 'Standard captures' );
+is($/<alpha>, "a", 'Captured <?alpha>' );
+is($/<ident>, "cat_O_9_tails", 'Captured <?ident>' );
 
-ok("Jon Lee" ~~ m:w/$<first>:=(<ident>) $<family>:=[<ident>]/, 'Repeated standard captures', :todo<feature> );
-is($/<first>,  "Jon", 'Captured $first', :todo<feature> );
-is($/<family>, "Lee", 'Captured $family', :todo<feature> );
-is($/<ident>,  "Lee", 'Captured <?ident>', :todo<feature> );
+ok("Jon Lee" ~~ m:w/$<first>:=(<ident>) $<family>:=[<ident>]/, 'Repeated standard captures' );
+is($/<first>,  "Jon", 'Captured $first' );
+is($/<family>, "Lee", 'Captured $family' );
+is($/<ident>,  "Lee", 'Captured <?ident>' );
 
-ok("foo => 22" ~~ m:w/$0:=(foo) =\> (\d+) | $1:=(\d+) \<= $0:=(foo) /, 'Pair match', :todo<feature> );
-is($0, 'foo', 'Key match', :todo<feature> );
-is($1, '22', 'Value match', :todo<feature> );
+ok("foo => 22" ~~ m:w/$0:=(foo) =\> (\d+) | $1:=(\d+) \<= $0:=(foo) /, 'Pair match' );
+is($0, 'foo', 'Key match' );
+is($1, '22', 'Value match' );
 
 ok("22 <= foo" ~~ m:w/$0:=(foo) =\> (\d+) | $1:=(\d+) \<= $0:=(foo) /, 'Pair match', :todo<feature> );

t/rules/from_perl6_rules/word.t

@@ -22 +22 @@
 ok(!( "abc  def" ~~ m/abc  def/ ), 'Literal space nonmatch' );
 ok(   "abcdef"   ~~ m/abc  def/, 'Nonspace match' );
-ok(   "abc  def" ~~ m:w/abc  def/, 'Word space match', :todo<feature> );
-ok(   "abc\ndef" ~~ m:words/abc  def/, 'Word newline match', :todo<feature> );
-ok(!( "abcdef"   ~~ m:words/abc  def/ ), 'Word nonspace nonmatch', :todo<feature> );
-ok(!( "abc  def" ~~ m:words/abc <?sp> def/ ), 'Word explicit space non-match' );
-ok(   "abc  def" ~~ m:words/abc <?ws> def/, 'Word explicit space match', :todo<feature> );
+ok(   "abc  def" ~~ m:w/abc  def/, 'Word space match' );
+ok(   "abc\ndef" ~~ m:words/abc  def/, 'Word newline match' );
+ok(!( "abcdef"   ~~ m:words/abc  def/ ), 'Word nonspace nonmatch' );
+ok(!( "abc  def" ~~ m:words/abc <?sp> def/ ), 'Word explicit space non-match', :todo<bug> );
+ok(   "abc  def" ~~ m:words/abc <?ws> def/, 'Word explicit space match', :todo<bug> );
 
 }