--- a/RegressionTests__JavaScriptTests.st Sun Jun 09 15:53:49 2019 +0200
+++ b/RegressionTests__JavaScriptTests.st Sun Jun 09 17:06:30 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -6525,21 +6527,21 @@
|spec|
spec := #(
- ('$''a''' #isCharacter (#eval '$a ') )
- ('$''\n''' #isCharacter (#eval '(Character nl)') )
- ('$''\r''' #isCharacter (#eval '(Character return)') )
- ('$''\b''' #isCharacter (#eval '(Character backspace)') )
- ('$''\x00''' #isCharacter (#eval '(Character value:0)') )
- ('$''\x01''' #isCharacter (#eval '(Character value:1)') )
- ('$''\x1a''' #isCharacter (#eval '(Character value:16r1a)') )
- ('$''\x000''' #isCharacter (#error ) )
- ('$''\xgg''' #isCharacter (#error ) )
- ('$''\xg''' #isCharacter (#error ) )
- ('$''\x''' #isCharacter (#error ) )
- ('$''\x0g''' #isCharacter (#error ) )
- ('$''\u1234''' #isCharacter (#eval '(Character value:16r1234) ') )
- ('$''\uFFFF''' #isCharacter (#eval '(Character value:16rFFFF) ') )
- ).
+ ('$''a''' #isCharacter (#eval '$a ') )
+ ('$''\n''' #isCharacter (#eval '(Character nl)') )
+ ('$''\r''' #isCharacter (#eval '(Character return)') )
+ ('$''\b''' #isCharacter (#eval '(Character backspace)') )
+ ('$''\x00''' #isCharacter (#eval '(Character value:0)') )
+ ('$''\x01''' #isCharacter (#eval '(Character value:1)') )
+ ('$''\x1a''' #isCharacter (#eval '(Character value:16r1a)') )
+ ('$''\x000''' #isCharacter (#error ) )
+ ('$''\xgg''' #isCharacter (#error ) )
+ ('$''\xg''' #isCharacter (#error ) )
+ ('$''\x''' #isCharacter (#error ) )
+ ('$''\x0g''' #isCharacter (#error ) )
+ ('$''\u1234''' #isCharacter (#eval '(Character value:16r1234) ') )
+ ('$''\uFFFF''' #isCharacter (#eval '(Character value:16rFFFF) ') )
+ ).
self doTestEachFromSpec:spec.
@@ -6547,6 +6549,8 @@
self run:#test_03_parse_literals3
self new test_03_parse_literals3
"
+
+ "Modified: / 09-06-2019 / 17:02:42 / Claus Gittinger"
!
test_04_parse_object
@@ -6799,6 +6803,25 @@
"Created: / 17-11-2014 / 13:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+test_42_parse_literals4
+ "symbol syntax extension"
+
+ |spec|
+
+ spec := #(
+ ('#''abc''' #isSymbol (#eval '#abc ') )
+ ).
+
+ self doTestEachFromSpec:spec.
+
+ "
+ self run:#test_42_parse_literals4
+ self new test_42_parse_literals4
+ "
+
+ "Created: / 09-06-2019 / 17:02:32 / Claus Gittinger"
+!
+
test_99_misc_tests
| didRaiseError result |