diff options
Diffstat (limited to 'tests/text.nom')
| -rw-r--r-- | tests/text.nom | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/tests/text.nom b/tests/text.nom deleted file mode 100644 index f6ccb36..0000000 --- a/tests/text.nom +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/env nomsu -V2.5.4.3 -#.. - Tests for the stuff defined in core/text.nom -use "core" - -assume ((["x", "y"] joined with ",") == "x,y") or barf "joined with failed" -assume ((["x", "y"] joined) == "xy") or barf "joined failed" -assume (("asdf" capitalized) == "Asdf") or barf "capitalized failed" -assume (("asdf" with "X" instead of "s") == "aXdf") or barf ".." - substitution failed - -assume ("\n" == (newline)) or barf "Text literals failed." -assume (("x" + "y") == "xy") -assume (..) - (..) - lines in ".." - one - two - ..== ["one", "two"] - -parse [アクション %spec %body] as (action %spec %body) - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -%こんにちは = "こんにちは" -アクション [% と言う] "\(%)世界" -assume ((%こんにちは と言う) == "こんにちは世界") or barf ".." - Unicode doesn't work - -%s = "one two\\nthreefour" -assume (%s == "one two\\nthreefour") or barf ".." - %s = \(quote %s), not \(quote "one two\\nthreefour") - -%s = "list:\[1, 2, 3]" -assume (%s == "list:[1, 2, 3]") -assume ("foo = \(1 + 2)!" == "foo = 3!") -assume (..) - ".." - one - two - ..== ".." - one - two - -assume ("nogap" == "nogap") - -#comment -# - block comment - -say "Text test passed." |