Add another test.

This commit is contained in:
Iavor Diatchki 2017-11-28 14:26:12 -08:00
parent c0b4ddd608
commit f658f0244d
4 changed files with 25 additions and 0 deletions

1
tests/modsys/T11.icry Normal file
View File

@ -0,0 +1 @@
:module T11::Main

View File

@ -0,0 +1,3 @@
Loading module Cryptol
Loading module T11::A
Loading module T11::Main

12
tests/modsys/T11/A.cry Normal file
View File

@ -0,0 +1,12 @@
module T11::A where
parameter
type X : #
type Y : #
type T = ([X],[Y])
f : T -> [X]
f (x,_) = x

View File

@ -0,0 +1,9 @@
module T11::Main where
import `T11::A as X
f : X::T 1 2 -> [1]
f = X::f