Browse Source

Self is external.

tags/0.1.0.0
Thomas Kerber 1 year ago
parent
commit
ab1980b449
Signed by: tk <tk@drwx.org> GPG Key ID: 8489B911F9ED617B
1 changed files with 2 additions and 0 deletions
  1. +2
    -0
      tests/ExecTests.hs

+ 2
- 0
tests/ExecTests.hs View File

@@ -16,3 +16,5 @@ spec = do
describe "action" $ do
prop "obeys return" $ \i (x::String) ->
fst (run' (mkStdGen i) (return x)) == Just x
prop "is exteral" $ \i ->
fst (run' (mkStdGen i) self) == Just external

Loading…
Cancel
Save