summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-07 15:04:07 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-07 15:04:07 -0400
commit98370da7e9f70e3d83f666019b765e15f617b846 (patch)
tree24ba2b9bca09a5a9c9236d096b13998d77a97ab9 /tests
parentfd1a963a81327f7b6a20a0f2ac131d2525649400 (diff)
Enhance table sig item support and get demo compiling again
Diffstat (limited to 'tests')
-rw-r--r--tests/crud.ur2
-rw-r--r--tests/crud.urs2
-rw-r--r--tests/table_sig.ur2
-rw-r--r--tests/table_sig.urp3
-rw-r--r--tests/table_sig.urs1
5 files changed, 8 insertions, 2 deletions
diff --git a/tests/crud.ur b/tests/crud.ur
index 8aff038d..f085b44e 100644
--- a/tests/crud.ur
+++ b/tests/crud.ur
@@ -33,7 +33,7 @@ fun bool name = {Nam = name,
functor Make(M : sig
con cols :: {(Type * Type)}
constraint [Id] ~ cols
- val tab : sql_table ([Id = int] ++ mapT2T fstTT cols)
+ table tab : ([Id = int] ++ mapT2T fstTT cols)
val title : string
diff --git a/tests/crud.urs b/tests/crud.urs
index 33090421..ffb1d3f1 100644
--- a/tests/crud.urs
+++ b/tests/crud.urs
@@ -16,7 +16,7 @@ val bool : string -> colMeta (bool, bool)
functor Make(M : sig
con cols :: {(Type * Type)}
constraint [Id] ~ cols
- val tab : sql_table ([Id = int] ++ mapT2T fstTT cols)
+ table tab : ([Id = int] ++ mapT2T fstTT cols)
val title : string
diff --git a/tests/table_sig.ur b/tests/table_sig.ur
new file mode 100644
index 00000000..0603d755
--- /dev/null
+++ b/tests/table_sig.ur
@@ -0,0 +1,2 @@
+table t : { A : int }
+
diff --git a/tests/table_sig.urp b/tests/table_sig.urp
new file mode 100644
index 00000000..6a161ed1
--- /dev/null
+++ b/tests/table_sig.urp
@@ -0,0 +1,3 @@
+debug
+
+table_sig
diff --git a/tests/table_sig.urs b/tests/table_sig.urs
new file mode 100644
index 00000000..40dde3c0
--- /dev/null
+++ b/tests/table_sig.urs
@@ -0,0 +1 @@
+table t : { A : int }