Commit 98470344021c61057d273a821ce5198a1168a145 - Falderal

Handle error expectations in shell format, in a fudge-y way. catseye 13 years ago

1 changed file(s) with 3 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

Test/Falderal/Formatter/Shell.hs less more

42	42
43	43	formatBlocks (test@(Test (ShellTest cmd) desc input expectation):rest) =
44	44	let
45		Output expected = expectation
	45	expected = case expectation of
	46	Output e -> e
	47	Exception e -> e -- XXX should we expect this on stderr?
46	48	inputHereDoc = hereDoc "input.txt" input
47	49	expectedHereDoc = hereDoc "expected.txt" expected
48	50	hereDocs = inputHereDoc ++ expectedHereDoc