Add some tests.

This commit is contained in:
Iavor Diatchki 2017-10-24 14:04:41 -07:00
parent 2f53602749
commit 9ecc8f720d
10 changed files with 55 additions and 0 deletions

2
tests/modsys/T10.icry Normal file
View File

@ -0,0 +1,2 @@
:module `T10::Main
:browse `T10::Main

View File

@ -0,0 +1,6 @@
Loading module Cryptol
Loading module T10::Main
Symbols
=======
f : {T} T -> T

View File

@ -0,0 +1,9 @@
module T10::Main where
parameter
type T : *
x : T
f : T
f = x

2
tests/modsys/T8.icry Normal file
View File

@ -0,0 +1,2 @@
:module `T8::Main
:t f

View File

@ -0,0 +1,3 @@
Loading module Cryptol
Loading module T8::Main
f : [8] -> [8]

8
tests/modsys/T8/Main.cry Normal file
View File

@ -0,0 +1,8 @@
module T8::Main where
parameter
x : [8]
f : [8]
f = x

3
tests/modsys/T9.icry Normal file
View File

@ -0,0 +1,3 @@
:module `T9::Main
:t main
main

View File

@ -0,0 +1,5 @@
Loading module Cryptol
Loading module T9::A
Loading module T9::Main
main : [16]
0x1010

10
tests/modsys/T9/A.cry Normal file
View File

@ -0,0 +1,10 @@
module T9::A where
parameter
type n : #
type constraint fin n
x : [n]
f : [n+n]
f = x # x

7
tests/modsys/T9/Main.cry Normal file
View File

@ -0,0 +1,7 @@
module T9::Main where
import `T9::A
main = f 0x10