diff options
Diffstat (limited to 'tests/stlc-pred.rkt')
-rw-r--r-- | tests/stlc-pred.rkt | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/tests/stlc-pred.rkt b/tests/stlc-pred.rkt deleted file mode 100644 index f7afc43..0000000 --- a/tests/stlc-pred.rkt +++ /dev/null @@ -1,29 +0,0 @@ -#lang racket -(require (except-in rackunit check)) -(require "../stlc-pred.rkt") - -(define-test-suite landins-knot - (check-exn - exn:fail? - (λ () (infer ' - (let (id : (Nat → 0 Nat)) (λ x x) - (let (r : (Ref (Nat → 0 Nat))) (new id) - (let (f : (Nat → 1 Nat)) (λ x ((! r) x)) - (set r f - (f 0)))))))) - - (check-eq? - (infer ' - (let (id : (Nat → 0 Nat)) (λ x x) - (let (r : (Ref (Nat → 0 Nat))) (new id) - (let (f : (Nat → 1 Nat)) (λ x ((! r) x)) - (f 0))))) - 'Nat) - - (check-true - (check ' - (let (id : (Nat → 0 Nat)) (λ x x) - (let (r : (Ref (Nat → 0 Nat))) (new id) - (let (f : (Nat → 1 Nat)) (λ x ((! r) x)) - (f 0)))) - 'Nat))) |