@@ -247,61 +247,3 @@ spec = Spec.around withTempDir do
247
247
Monorepo .spec
248
248
249
249
BuildInfo .spec
250
-
251
- -- Spec.it "runs a --before command" \{ spago } -> do
252
- -- spago [ "init" ] >>= shouldBeSuccess
253
- -- let dumpFile = "testOutput"
254
- -- spago [ "build", "--before", "echo before>> " <> dumpFile ] >>= shouldBeSuccess
255
- -- test <- FS.readTextFile dumpFile
256
- -- test `Assert.shouldEqual` "before"
257
-
258
- -- Spec.it "runs a --then command" \{ spago } -> do
259
- -- spago [ "init" ] >>= shouldBeSuccess
260
- -- let dumpFile = "testOutput"
261
- -- spago [ "build", "--then", "echo then>> " <> dumpFile, "--else", "echo else>> " <> dumpFile ] >>= shouldBeSuccess
262
- -- test <- FS.readTextFile dumpFile
263
- -- test `Assert.shouldEqual` "then"
264
-
265
- -- Spec.it "runs a --before command before a --then command" \{ spago } -> do
266
- -- spago [ "init" ] >>= shouldBeSuccess
267
- -- let dumpFile = "testOutput"
268
- -- spago [ "build", "--before", "echo before>> " <> dumpFile, "--then", "echo then>> " <> dumpFile ] >>= shouldBeSuccess
269
- -- test <- FS.readTextFile dumpFile
270
- -- test `Assert.shouldEqual` "before\nthen"
271
-
272
- -- Spec.it "runs an --else command if there is an error in the build" \{ spago } -> do
273
- -- spago [ "init" ] >>= shouldBeSuccess
274
- -- let dumpFile = "testOutput"
275
- -- FS.writeTextFile "src/Main.purs" "Invalid Purescript code"
276
- -- spago [ "build", "--then", "echo then>> " <> dumpFile, "--else", "echo else>> " <> dumpFile ] >>= shouldBeFailure
277
- -- test <- FS.readTextFile dumpFile
278
- -- test `Assert.shouldEqual` "else"
279
-
280
- -- Spec.it "runs an --else command if there is an error in the run file" \{ spago } -> do
281
- -- spago [ "init" ] >>= shouldBeSuccess
282
- -- spago [ "install", "exceptions" ] >>= shouldBeSuccess
283
- -- let dumpFile = "testOutput"
284
- -- FS.writeTextFile "src/Main.purs" "module Main where\nimport Effect.Exception\nmain = throw \"error\""
285
- -- spago [ "run", "--else", "echo else>> " <> dumpFile ] >>= shouldBeFailure
286
- -- test <- FS.readTextFile dumpFile
287
- -- test `Assert.shouldEqual` "else"
288
-
289
- -- Spec.it "runs multiple commands in order" \{ spago } -> do
290
- -- spago [ "init" ] >>= shouldBeSuccess
291
- -- let dumpFile = "testOutput"
292
- -- spago [ "build", "--before", "echo before1>> " <> dumpFile, "--before", "echo before2>> " <> dumpFile, "--then", "echo then1>> " <> dumpFile, "--then", "echo then2>> " <> dumpFile ] >>= shouldBeSuccess
293
- -- test <- FS.readTextFile dumpFile
294
- -- test `Assert.shouldEqual` "before1\nbefore2\nthen1\nthen2"
295
-
296
- -- Spec.it "fails the build if a --before command fails" \{ spago } -> do
297
- -- spago [ "init" ] >>= shouldBeSuccess
298
- -- spago [ "build", "--before", "exit 1" ] >>= shouldBeFailure
299
-
300
- -- Spec.it "fails the build if a --then command fails" \{ spago } -> do
301
- -- spago [ "init" ] >>= shouldBeSuccess
302
- -- spago [ "build", "--then", "exit 1" ] >>= shouldBeFailure
303
-
304
- -- Spec.it "still fails the build if an --else command fails" \{ spago } -> do
305
- -- spago [ "init" ] >>= shouldBeSuccess
306
- -- FS.writeTextFile "src/Main.purs" "Invalid Purescript code"
307
- -- spago [ "build", "--else", "exit 1" ] >>= shouldBeFailure
0 commit comments