mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-25 17:04:31 +03:00
Add another test.
This commit is contained in:
parent
c0b4ddd608
commit
f658f0244d
1
tests/modsys/T11.icry
Normal file
1
tests/modsys/T11.icry
Normal file
@ -0,0 +1 @@
|
||||
:module T11::Main
|
3
tests/modsys/T11.icry.stdout
Normal file
3
tests/modsys/T11.icry.stdout
Normal file
@ -0,0 +1,3 @@
|
||||
Loading module Cryptol
|
||||
Loading module T11::A
|
||||
Loading module T11::Main
|
12
tests/modsys/T11/A.cry
Normal file
12
tests/modsys/T11/A.cry
Normal file
@ -0,0 +1,12 @@
|
||||
module T11::A where
|
||||
|
||||
parameter
|
||||
type X : #
|
||||
type Y : #
|
||||
|
||||
type T = ([X],[Y])
|
||||
|
||||
f : T -> [X]
|
||||
f (x,_) = x
|
||||
|
||||
|
9
tests/modsys/T11/Main.cry
Normal file
9
tests/modsys/T11/Main.cry
Normal file
@ -0,0 +1,9 @@
|
||||
module T11::Main where
|
||||
|
||||
import `T11::A as X
|
||||
|
||||
|
||||
f : X::T 1 2 -> [1]
|
||||
f = X::f
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user