Idris2/tests/base/control_app001/run

rm -rf build

$1 --no-color --console-width 0 --no-banner TestException.idr < input
Move rm -rf to the beginning of the test While the discussion about how to refactor test framework is not finished (#1654), make this change: move `rm -rf build` in the beginning of the test. For these reasons: * it is useful to inspect the contents of the `build` directory especially after the test failure * if build crashes mid-test (e.g. process killed), next run should not be affected by the `build` directory from the previous run 2021-07-14 00:54:53 +03:00			`rm -rf build`

More reliable exception handling in Control.App Convert `App.Control.Exception` interface to an alias to `HasErr`. Probably `Exception` interface need to be deprecated or removed. Note similar problem exists with `PrimIO` calling `PrimIO, Exception`, also need to be fixed. Fix this scenario: ``` throwBoth : Has [Exception String, Exception Int] es => App es () throwOne : Has [Exception Int] es => App es Int throwOne {es} = handle {err = String} {e = es} throwBoth (\r => pure 1) (\e => pure 3) ``` With this commit it works, before this commit it failed with: ``` Error: While processing right hand side of throwOne. Can't find an implementation for Exception Int (String :: es). TestException.idr:8:48--8:57 \| 8 \| throwOne {es} = handle {err = String} {e = es} throwBoth (\r => pure 1) (\e => pure 3) \| ^^^^^^^^^ ``` 2021-02-02 22:42:03 +03:00			`$1 --no-color --console-width 0 --no-banner TestException.idr < input`