Skip to content

Instantly share code, notes, and snippets.

@tmaeda
Created September 23, 2012 15:11
Show Gist options
  • Save tmaeda/3771991 to your computer and use it in GitHub Desktop.
Save tmaeda/3771991 to your computer and use it in GitHub Desktop.
$ ospec failures.ml
Failures
infix failure (FAILED: 1)
infix neg failure (FAILED: 2)
ident failure (FAILED: 3)
ident neg failure (FAILED: 4)
one arg ident failure (FAILED: 5)
one arg ident neg failure (FAILED: 6)
fun failure (FAILED: 7)
fun neg failure (FAILED: 8)
1) Expected `( != ) (1) (1)' to return true
2) Expected `( = ) (1) (1)' to return false
3) Expected `greater_than (1) (2)' to return true
4) Expected `greater_than (1) (0)' to return false
5) Expected `negative (1)' to return true
6) Expected `positive (1)' to return false
7) Expected `(fun x y -> x > y) (1) (2)' to return true
8) Expected `(fun x y -> x < y) (1) (2)' to return false
8 examples, 8 failures, 0 pending
# ふつーに動いた けど、エラーの行番号が出ないのかな?
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment