--- a/RegressionTests__CompilerTest.st	Fri Feb 17 16:25:47 2006 +0100
+++ b/RegressionTests__CompilerTest.st	Mon Feb 20 10:49:31 2006 +0100
@@ -1251,6 +1251,26 @@
     "
      self new testParseBadLiteral
     "
+!
+
+testParseExtendedSyntax
+    |compiler val|
+
+    compiler := Parser new.
+    val := compiler evaluate:' ''12\t34'' '.
+    self assert:( val = '12\t34' ) .
+    val := compiler evaluate:' ''12\u161634'' '.
+    self assert:( val = '12\u161634' ) .
+
+    compiler parserFlags allowExtendedSTXSyntax:true.
+    val := compiler evaluate:' ''12\t34'' '.
+    self assert:( val = ('12' , Character tab , '34' )) .
+    val := compiler evaluate:' ''12\u161634'' '.
+    self assert:( val = ('12' , (Character value:16r1616) , '34' )) .
+
+    "
+     self new testParseExtendedSyntax
+    "
 ! !
 
 !CompilerTest methodsFor:'tests - sends'!