more tests }:)

golden/read/peculiar-identifier-dot/read

@@ -0,0 +1,7 @@
+[ SynNone :< SimpleF
+    ( SimpleSymbol ".." )
+, SynNone :< SimpleF
+    ( SimpleSymbol ".abc" )
+, SynNone :< SimpleF
+    ( SimpleSymbol "....abcc" )
+]

golden/read/peculiar-identifier-dot/source.scm

@@ -0,0 +1 @@
+.. .abc ....abcc

golden/read/typical-identifier-token/read

@@ -0,0 +1,13 @@
+[ SynNone :< SimpleF
+    ( SimpleSymbol "abc" )
+, SynNone :< SimpleF
+    ( SimpleString "xyz" )
+, SynNone :< SimpleF
+    ( SimpleSymbol "수학" )
+, SynNone :< CompoundF
+    ( ListF Ordinary
+        [ SynNone :< SimpleF
+            ( SimpleSymbol "數學" )
+        ]
+    )
+]

golden/read/typical-identifier-token/source.scm

@@ -0,0 +1,2 @@
+abc"xyz"
+수학(數學)

test/Gyehoek/Test/Golden.hs

@@ -38,6 +38,7 @@ brokenStackifyTests =
 brokenReaderTests =
   [ "delimited-identifier"
   , "string-line-continuation"
+  , "peculiar-identifier-dot"
   ]
 
 test_root :: IO TestTree