diff -r 5dd9a675c06d -r 734e561f251f RegressionTests__JavaScriptTests.st --- 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 " ! +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 |