diff options
| author | krasimir <krasimir@chalmers.se> | 2010-01-31 20:45:48 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-01-31 20:45:48 +0000 |
| commit | 3be9ce32407f18c99dcf18010d320ac485bf38f9 (patch) | |
| tree | ebfafe1b062e12d8890f7addd529ac68889be07e | |
| parent | 26236652a6cf4ef9c303a57e5251cc51fba8a27b (diff) | |
add test case for abstract types with let bindings
3 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gf b/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gf new file mode 100644 index 000000000..89e772bef --- /dev/null +++ b/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gf @@ -0,0 +1,6 @@ +abstract LetInTypesAbs = { + +fun f : let id = Int -> Int + in id -> id ; + +}
\ No newline at end of file diff --git a/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gfs b/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gfs new file mode 100644 index 000000000..e6901e47b --- /dev/null +++ b/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gfs @@ -0,0 +1,2 @@ +i -src testsuite/compiler/typecheck/abstract/LetInTypesAbs.gf
+ai f
\ No newline at end of file diff --git a/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gfs.gold b/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gfs.gold new file mode 100644 index 000000000..784f3fa8c --- /dev/null +++ b/testsuite/compiler/typecheck/abstract/LetInTypesAbs.gfs.gold @@ -0,0 +1 @@ +fun f : (Int -> Int) -> Int -> Int
|