Update tests for obsolete/unsupported messages

Change tests to look for 'Unsupported' not 'Obsolete'
perl6 · Jul 24, 2010 · 88f0d0d · 88f0d0d
1 parent 964a1b0
commit 88f0d0d
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 19 deletions.
diff --git a/t/p6regex/rx_charclass b/t/p6regex/rx_charclass
@@ -24,7 +24,7 @@
 <-[b..d]>		bbccdd		n	negated character range
 # todo :pge<reversed character range>
 <-[d..b]>		bbccdd		/parse error/	illegal character range
-<[-]>			ab-def		/Obsolete/	unescaped hyphen
+<[-]>			ab-def		/Unsupported/	unescaped hyphen
 <[\-]>			ab-def		y	escaped hyphen
 <[\-]>			abcdef		n	escaped hyphen
 <-[\-]>			---x--		y	negated escaped hyphen

diff --git a/t/p6regex/rx_metachars b/t/p6regex/rx_metachars
@@ -48,12 +48,12 @@ a\N+f			abcdef		y	not logical newline (\N)
 c \N d			abc\n\rdef	n	not logical newline (\N)
 c \N d			abc\r\ndef	n	not logical newline (\N)
 b \N \n			abc\ndef	y	not logical newline (\N)
-\Aabc			Aabc		/Obsolete/	retired metachars (\A)
-\Aabc			abc\ndef	/Obsolete/	retired metachars (\A)
-abc\Z			abcZ		/Obsolete/	retired metachars (\Z)
-abc\Z			abc\ndef	/Obsolete/	retired metachars (\Z)
-abc\z			abcz		/Obsolete/	retired metachars (\z)
-def\z			abc\ndef	/Obsolete/	retired metachars (\z)
+\Aabc			Aabc		/Unsupported/	retired metachars (\A)
+\Aabc			abc\ndef	/Unsupported/	retired metachars (\A)
+abc\Z			abcZ		/Unsupported/	retired metachars (\Z)
+abc\Z			abc\ndef	/Unsupported/	retired metachars (\Z)
+abc\z			abcz		/Unsupported/	retired metachars (\z)
+def\z			abc\ndef	/Unsupported/	retired metachars (\z)
 abc # def		abc#def		y	comments (#)
 abc # xyz		abc#def		y	comments (#)
 abc # def \n \$		abc#def		y	comments (#)
@@ -112,18 +112,18 @@ a|&b			a|&b		/rule error/	alternation and conjunction (|&) - parse error
  | d | b		abc		y	leading alternation ignored
 # todo :pugs<feature> :pge<feature>
  b |  | d		abc		n	null pattern invalid
-\pabc			pabc		/Obsolete/	retired metachars (\p)
-\p{InConsonant}		a		/Obsolete/	retired metachars (\p)
-\Pabc			Pabc		/Obsolete/	retired metachars (\P)
-\P{InConsonant}		a		/Obsolete/	retired metachars (\P)
-\Labc\E			LabcE		/Obsolete/	retired metachars (\L...\E)
-\LABC\E			abc		/Obsolete/	retired metachars (\L...\E)
-\Uabc\E			UabcE		/Obsolete/	retired metachars (\U...\E)
-\Uabc\E			ABC		/Obsolete/	retired metachars (\U...\E)
-\Qabc\E			QabcE		/Obsolete/	retired metachars (\Q...\E)
-\Qabc d?\E		abc d		/Obsolete/	retired metachars (\Q...\E)
-\Gabc			Gabc		/Obsolete/	retired metachars (\G)
-\1abc			1abc		/Obsolete/	retired metachars (\1)
+\pabc			pabc		/Unsupported/	retired metachars (\p)
+\p{InConsonant}		a		/Unsupported/	retired metachars (\p)
+\Pabc			Pabc		/Unsupported/	retired metachars (\P)
+\P{InConsonant}		a		/Unsupported/	retired metachars (\P)
+\Labc\E			LabcE		/Unsupported/	retired metachars (\L...\E)
+\LABC\E			abc		/Unsupported/	retired metachars (\L...\E)
+\Uabc\E			UabcE		/Unsupported/	retired metachars (\U...\E)
+\Uabc\E			ABC		/Unsupported/	retired metachars (\U...\E)
+\Qabc\E			QabcE		/Unsupported/	retired metachars (\Q...\E)
+\Qabc d?\E		abc d		/Unsupported/	retired metachars (\Q...\E)
+\Gabc			Gabc		/Unsupported/	retired metachars (\G)
+\1abc			1abc		/Unsupported/	retired metachars (\1)
 # todo :pugs<feature>
 ^ \s+ $			\x0009\x0020\x00a0\x000a\x000b\x000c\x000d\x0085	y	0-255 whitespace (\s)
 # todo :pugs<feature>