Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix test suite

  • Loading branch information...
commit 8d8b0eb5df61c636cda3c2f6e87c885bcfce3dc6 1 parent b4f2e3a
@gregwebs gregwebs authored
Showing with 4 additions and 6 deletions.
  1. +4 −4 test/src/FindSpec.hs
  2. +0 −2  test/src/TestMain.hs
View
8 test/src/FindSpec.hs
@@ -34,14 +34,14 @@ findSpec = do
sort res @?= ["./CopySpec.hs", "./EnvSpec.hs", "./FailureSpec.hs",
"./FindSpec.hs", "./Help.hs", "./MoveSpec.hs",
"./ReadFileSpec.hs", "./TestMain.hs",
- "./WriteSpec.hs", "./drain.hs", "./drain.sh", "./sleep.hs"]
+ "./WriteSpec.hs", "./drain.hs", "./drain.sh", "./printer.sh", "./sleep.hs"]
it "finds relative files" $ do
res <- shelly $ cd "src" >> find "."
sort res @?= ["./CopySpec.hs", "./EnvSpec.hs", "./FailureSpec.hs",
"./FindSpec.hs", "./Help.hs", "./MoveSpec.hs",
"./ReadFileSpec.hs", "./TestMain.hs",
- "./WriteSpec.hs", "./drain.hs", "./drain.sh", "./sleep.hs"]
+ "./WriteSpec.hs", "./drain.hs", "./drain.sh", "./printer.sh", "./sleep.hs"]
describe "find" $ do
it "empty list for empty dir" $ do
@@ -58,10 +58,10 @@ findSpec = do
sort res @?= ["src/CopySpec.hs", "src/EnvSpec.hs", "src/FailureSpec.hs",
"src/FindSpec.hs", "src/Help.hs", "src/MoveSpec.hs", "src/ReadFileSpec.hs",
"src/TestMain.hs", "src/WriteSpec.hs", "src/drain.hs",
- "src/drain.sh", "src/sleep.hs"]
+ "src/drain.sh", "src/printer.sh", "src/sleep.hs"]
it "lists absolute files" $ do
res <- shelly $ relPath "src" >>= find >>= mapM (relativeTo "src")
sort res @?= ["CopySpec.hs", "EnvSpec.hs", "FailureSpec.hs", "FindSpec.hs",
"Help.hs", "MoveSpec.hs", "ReadFileSpec.hs", "TestMain.hs",
- "WriteSpec.hs", "drain.hs", "drain.sh", "sleep.hs"]
+ "WriteSpec.hs", "drain.hs", "drain.sh", "printer.sh", "sleep.hs"]
View
2  test/src/TestMain.hs
@@ -8,7 +8,6 @@ import FindSpec
import EnvSpec
import FailureSpec
import CopySpec
-import RunSpec
import Test.Hspec
@@ -21,4 +20,3 @@ main = hspec $ do
envSpec
failureSpec
copySpec
- runSpec
Please sign in to comment.
Something went wrong with that request. Please try again.