Add more test fixture files

This commit is contained in:
Joshua Peek
2011-09-06 15:39:22 -05:00
parent 0239a59248
commit f9df8685b4
21 changed files with 778 additions and 1 deletions

27
test/fixtures/Foo.sig vendored Normal file
View File

@@ -0,0 +1,27 @@
signature LAZY_BASE =
sig
type 'a lazy
exception Undefined
val force: 'a lazy -> 'a
val delay: (unit -> 'a) -> 'a lazy
val undefined: 'a lazy
end
signature LAZY' =
sig
include LAZY_BASE
val isUndefined: 'a lazy -> bool
val inject : 'a -> 'a lazy
val toString: ('a -> string) -> 'a lazy -> string
val eq: ''a lazy * ''a lazy -> bool
val eqBy: ('a * 'a -> bool) -> 'a lazy * 'a lazy -> bool
val compare: ('a * 'a -> order) -> 'a lazy * 'a lazy -> order
val map: ('a -> 'b) -> 'a lazy -> 'b lazy
structure Ops:
sig
val ! : 'a lazy -> 'a (* force *)
val ? : 'a -> 'a lazy (* inject *)
end
end