aboutsummaryrefslogtreecommitdiffstats
path: root/test/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Main.hs')
-rw-r--r--test/Main.hs38
1 files changed, 20 insertions, 18 deletions
diff --git a/test/Main.hs b/test/Main.hs
index e00ccf6..96612dc 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -16,38 +16,40 @@ main :: IO ()
main = hspec do
describe "output" do
it "capture stdout" do
- (`shouldBe` "stdout") . fst @String @String =<< [sh|echo -n stdout|]
+ (`shouldBe` "stdout") . fst @String @String =<< [sh|echo stdout|]
it "capture stderr" do
- (`shouldBe` "stderr") . snd @String =<< [sh|>&2 echo -n stderr|]
- it "capture stdout and stderr interleaved" do
+ (`shouldBe` "stderr") . snd @String =<< [sh|>&2 echo stderr|]
+ it "capture stdout and stderr" do
(`shouldBe` ("stdout", "stderr"))
=<< [sh|
- echo -n stdout
- >&2 echo -n stderr
+ echo stdout
+ >&2 echo stderr
|]
- it "capture interleaved" do
- (`shouldBe` "stdout\nstderr\n")
+ it "capture stdout and stderr interleaved" do
+ (`shouldBe` "stdout\nstderr")
=<< [sh|
echo stdout
>&2 echo stderr
|]
+ it "preserve trailing newline" do
+ (`shouldBe` "stdout\n") . fst @String @String =<< [sh|echo stdout \|]
describe "arguments" do
it "passes `Int`" do
- (`shouldBe` "1") =<< let x = 1 :: Int in [sh|echo -n '#{x}'|]
+ (`shouldBe` "1") =<< let x = 1 :: Int in [sh|echo '#{x}'|]
it "passes `Text`" do
- (`shouldBe` "foobar") =<< let x = T.pack "foobar" in [sh|echo -n '#{x}'|]
- (`shouldBe` "foobar") =<< let x = LT.pack "foobar" in [sh|echo -n '#{x}'|]
+ (`shouldBe` "foobar") =<< let x = T.pack "foobar" in [sh|echo '#{x}'|]
+ (`shouldBe` "foobar") =<< let x = LT.pack "foobar" in [sh|echo '#{x}'|]
it "passes `ByteString`" do
- (`shouldBe` "foobar") =<< let x = B.pack "foobar" in [sh|echo -n '#{x}'|]
- (`shouldBe` "foobar") =<< let x = LB.pack "foobar" in [sh|echo -n '#{x}'|]
+ (`shouldBe` "foobar") =<< let x = B.pack "foobar" in [sh|echo '#{x}'|]
+ (`shouldBe` "foobar") =<< let x = LB.pack "foobar" in [sh|echo '#{x}'|]
it "interpolates expressions" do
- (`shouldBe` "1") =<< let x = 1 :: Int in [sh|echo -n '#{show x}'|]
+ (`shouldBe` "1") =<< let x = 1 :: Int in [sh|echo '#{show x}'|]
it "interpolates monadic expressions" do
- (`shouldBe` "1") =<< let x = 1 :: Int in [sh|echo -n '#{{pure @IO x}}'|]
+ (`shouldBe` "1") =<< let x = 1 :: Int in [sh|echo '#{{pure @IO x}}'|]
it "interpolates monadic expressions" do
- (`shouldBe` "1") =<< runReaderT [sh|echo -n '#{{asks fst}}'|] (1 :: Int, 2 :: Int)
+ (`shouldBe` "1") =<< runReaderT [sh|echo '#{{asks fst}}'|] (1 :: Int, 2 :: Int)
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 '#{x}' '#{y}'|]
describe "quoting" do
it "preserves arguments" do
(`shouldBe` "foo\\ bar")
@@ -63,6 +65,6 @@ main = hspec do
(`shouldBe` "''") =<< let x = "" in [sh|printf %q '#{x}'|]
describe "parsing" do
it "parses shell quotes" do
- (`shouldBe` "foobar") =<< [sh|echo -n 'foobar'|]
+ (`shouldBe` "foobar") =<< [sh|echo 'foobar'|]
it "parses double cross" do
- (`shouldBe` "0") =<< [sh|echo -n $#|]
+ (`shouldBe` "0") =<< [sh|echo $#|]