Add a failing test that should pass when source-dirs is a list, #93.

tests/source-dirs/app/Bar.hs

@@ -0,0 +1,7 @@
+module Bar where
+
+import Conduit
+import FooBar
+
+main :: IO ()
+main = runConduit $ spitOut .| takeC 5 .| digest

tests/source-dirs/app/Foo.hs

@@ -0,0 +1,4 @@
+import qualified Bar
+
+main :: IO ()
+main = Bar.main

tests/source-dirs/golden

@@ -0,0 +1,5 @@
+1
+2
+3
+4
+5

tests/source-dirs/package.nix

@@ -0,0 +1,4 @@
+{ main = "Foo";
+  src = [ ./src ./app ];
+  dependencies = [ "conduit" ];
+}

tests/source-dirs/package.yaml

@@ -0,0 +1,11 @@
+name: snack-source-dirs-test
+
+dependencies:
+    - base 
+    - conduit
+
+executable:
+    main: Foo.hs
+    source-dirs:
+    - src
+    - app

tests/source-dirs/src/FooBar.hs

@@ -0,0 +1,9 @@
+module FooBar where
+
+import Conduit
+
+spitOut :: ConduitT () Int IO ()
+spitOut = yieldMany [ 1 ..]
+
+digest :: ConduitT Int Void IO ()
+digest = mapM_C print

tests/source-dirs/test

@@ -0,0 +1,25 @@
+#!/usr/bin/env bash
+# vim: ft=sh sw=2 et
+
+set -euo pipefail
+
+test() {
+  $SNACK build
+  $SNACK run | diff golden -
+
+  TMP_FILE=$(mktemp)
+
+  capture_io "$TMP_FILE" main | $SNACK ghci
+
+  diff golden $TMP_FILE
+  rm $TMP_FILE
+}
+
+
+SNACK="snack -j4" test
+
+# TODO: Fix cannot coerce a list to a string, at /...-snack-lib/files.nix:66:12
+SNACK="snack -j4 -s ./package.nix" test
+
+# TODO: Fix cannot coerce a list to a string, at /...-snack-lib/hpack.nix:60:37
+SNACK="snack -j4 --package-yaml ./package.yaml" test