suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix metafunction tests (#524)

Browse Source
This commit is contained in:
Andrew Kent 2017-03-30 19:33:02 -04:00 committed by GitHub
parent 20a73e479f
commit 6a0dc61102
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
typed-racket-test/unit-tests/metafunction-tests.rkt
View File

@ -204,16 +204,16 @@
(ret (-> Univ Univ : -tt-propset : (make-Path null '(1 . 0)))))
(check-equal?
(replace-names (list #'x) (list (make-Path null '(0 . 0)))
(ret (-refine y -Int (-leq (-lexp y) (-lexp #'x)))
(ret (-refine/fresh y -Int (-leq (-lexp y) (-lexp #'x)))
-tt-propset
(make-Path null #'x)))
(ret (-refine y -Int (-leq (-lexp y) (-lexp (make-Path null '(1 . 0)))))
(ret (-refine/fresh y -Int (-leq (-lexp y) (-lexp (make-Path null '(1 . 0)))))
-tt-propset
(make-Path null '(0 . 0))))
(check-equal?
(replace-names (list #'x) (list -empty-obj)
(ret (-refine y -Int (-leq (-lexp y) (-lexp #'x)))
(ret (-refine/fresh y -Int (-leq (-lexp y) (-lexp #'x)))
-tt-propset
(make-Path null #'x)))
(ret -Int