From 66386cda6493a51037989afd83420b2628050a4b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= Date: Fri, 21 Aug 2026 15:10:44 -0600 Subject: [PATCH] more tests }:) --- golden/read/peculiar-identifier-dot/read | 7 +++++++ golden/read/peculiar-identifier-dot/source.scm | 1 + .../read | 0 .../source.scm | 0 golden/read/typical-identifier-token/read | 13 +++++++++++++ golden/read/typical-identifier-token/source.scm | 2 ++ test/Gyehoek/Test/Golden.hs | 1 + 7 files changed, 24 insertions(+) create mode 100644 golden/read/peculiar-identifier-dot/read create mode 100644 golden/read/peculiar-identifier-dot/source.scm rename golden/read/{peculiar-identifier => peculiar-identifier-sign}/read (100%) rename golden/read/{peculiar-identifier => peculiar-identifier-sign}/source.scm (100%) create mode 100644 golden/read/typical-identifier-token/read create mode 100644 golden/read/typical-identifier-token/source.scm 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