diff --git a/golden/read/peculiar-identifier-dot/read b/golden/read/peculiar-identifier-dot/read new file mode 100644 index 0000000..b907b33 --- /dev/null +++ b/golden/read/peculiar-identifier-dot/read @@ -0,0 +1,7 @@ +[ SynNone :< SimpleF + ( SimpleSymbol ".." ) +, SynNone :< SimpleF + ( SimpleSymbol ".abc" ) +, SynNone :< SimpleF + ( SimpleSymbol "....abcc" ) +] \ No newline at end of file diff --git a/golden/read/peculiar-identifier-dot/source.scm b/golden/read/peculiar-identifier-dot/source.scm new file mode 100644 index 0000000..01fdb9d --- /dev/null +++ b/golden/read/peculiar-identifier-dot/source.scm @@ -0,0 +1 @@ +.. .abc ....abcc diff --git a/golden/read/peculiar-identifier/read b/golden/read/peculiar-identifier-sign/read similarity index 100% rename from golden/read/peculiar-identifier/read rename to golden/read/peculiar-identifier-sign/read diff --git a/golden/read/peculiar-identifier/source.scm b/golden/read/peculiar-identifier-sign/source.scm similarity index 100% rename from golden/read/peculiar-identifier/source.scm rename to golden/read/peculiar-identifier-sign/source.scm diff --git a/golden/read/typical-identifier-token/read b/golden/read/typical-identifier-token/read new file mode 100644 index 0000000..3a65b71 --- /dev/null +++ b/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 "數學" ) + ] + ) +] \ No newline at end of file diff --git a/golden/read/typical-identifier-token/source.scm b/golden/read/typical-identifier-token/source.scm new file mode 100644 index 0000000..a662f23 --- /dev/null +++ b/golden/read/typical-identifier-token/source.scm @@ -0,0 +1,2 @@ +abc"xyz" +수학(數學) diff --git a/test/Gyehoek/Test/Golden.hs b/test/Gyehoek/Test/Golden.hs index bedca27..3652cd8 100644 --- a/test/Gyehoek/Test/Golden.hs +++ b/test/Gyehoek/Test/Golden.hs @@ -38,6 +38,7 @@ brokenStackifyTests = brokenReaderTests = [ "delimited-identifier" , "string-line-continuation" + , "peculiar-identifier-dot" ] test_root :: IO TestTree