[svn:parrot] r9602 - trunk/t/p6rules

[particle]

Author: particle
Date: Thu Oct 27 14:13:03 2005
New Revision: 9602

Modified:
   trunk/t/p6rules/metachars.t
Log:
corrected two PGE metachars tests

Modified: trunk/t/p6rules/metachars.t
==============================================================================
--- trunk/t/p6rules/metachars.t (original)
+++ trunk/t/p6rules/metachars.t Thu Oct 27 14:13:03 2005
@@ -39,7 +39,6 @@ p6rule_is  ("abc\n", 'abc \n $', 'end of
 p6rule_isnt("abc\n", 'abc $', 'end of string ($)');
 
 
-
 ## (\n and \N -- matches platform independent newline (or everything but)
 p6rule_is  ("abc\ndef", 'c \n d', 'logical newline (\n)');
 p6rule_is  ("abc\012def", 'c \n d', 'logical newline (\n)');
@@ -85,11 +84,11 @@ p6rule_is  ("abc#def", '^ abc \# def $',
 
 ## ^^ and $$ -- line beginnings and endings
 p6rule_is  ("abc\ndef", '^^ abc \n ^^ def', 'line beginnings and endings 
(^^)');
-p6rule_is  ("abc\ndef\n", '^^ abc \n ^^ def \n ^^', 'line beginnings and 
endings (^^)');
+p6rule_isnt("abc\ndef\n", '^^ abc \n ^^ def \n ^^', 'line beginnings and 
endings (^^)');
 p6rule_is  ("\n", '^^ \n', 'line beginnings and endings (^^)');
 p6rule_isnt("\n", '\n ^^', 'line beginnings and endings (^^)');
 p6rule_is  ("abc\ndef", 'abc $$ \n def $$', 'line beginnings and endings 
($$)');
-p6rule_is  ("abc\ndef\n", 'abc $$ \n def $$ \n $$', 'line beginnings and 
endings ($$)');
+p6rule_isnt("abc\ndef\n", 'abc $$ \n def $$ \n $$', 'line beginnings and 
endings ($$)');
 p6rule_is  ("\n", '$$ \n', 'line beginnings and endings ($$)');
 p6rule_isnt("\n", '\n $$', 'line beginnings and endings ($$)');