chore: fix parsing special characters

1 files changed, 6 insertions, 1 deletions

diff --git a/test/Main.hs b/test/Main.hs
index 0d00db3..71723c3 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -43,7 +43,7 @@ main = hspec do
     it "interpolates monadic expressions" do
       (`shouldBe` "1") =<< let x = 1 :: Int in [sh|echo -n '#{pure @IO x}'|]
     it "preserves argument order" do
-      (`shouldBe` "1 2") =<< let x = "1"; y = "2"; in [sh|echo -n '#{x}' '#{y}'|]
+      (`shouldBe` "1 2") =<< let x = "1"; y = "2" in [sh|echo -n '#{x}' '#{y}'|]
   describe "quoting" do
     it "preserves arguments" do
       (`shouldBe` "foo\\ bar")
@@ -57,3 +57,8 @@ main = hspec do
     it "preserves empty arguments" do
       (`shouldBe` "''") =<< let x = "" in [sh|printf %q #{x}|]
       (`shouldBe` "''") =<< let x = "" in [sh|printf %q '#{x}'|]
+  describe "parsing" do
+    it "parses shell quotes" do
+      (`shouldBe` "foobar") =<< [sh|echo -n 'foobar'|]
+    it "parses double cross" do
+      (`shouldBe` "0") =<< [sh|echo -n $#|]