summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/main.mlton.sml9
-rw-r--r--tests/where.ur2
-rw-r--r--tests/where.urp6
3 files changed, 14 insertions, 3 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml
index e6a973b2..142296e4 100644
--- a/src/main.mlton.sml
+++ b/src/main.mlton.sml
@@ -43,8 +43,13 @@ fun doArgs (args, (timing, sources)) =
val (timing, sources) = doArgs (CommandLine.arguments (), (false, []))
+val job =
+ case sources of
+ [file] => file
+ | _ => raise Fail "Multiple job files specified"
+
val () =
if timing then
- Compiler.time Compiler.toCjrize sources
+ Compiler.time Compiler.toCjrize job
else
- Compiler.compile sources
+ Compiler.compile job
diff --git a/tests/where.ur b/tests/where.ur
index aa6c519b..55381ca7 100644
--- a/tests/where.ur
+++ b/tests/where.ur
@@ -7,7 +7,7 @@ val q3 = (SELECT * FROM t1 WHERE FALSE)
val q4 = (SELECT * FROM t1 WHERE {True})
val q5 = (SELECT * FROM t1 WHERE {1} = {1})
val q6 = (SELECT * FROM t1 WHERE {"Hi"} < {"Bye"})
-val q7 = (SELECT * FROM t1 WHERE {1} <> {1} AND NOT ({"Hi"} >= {"Bye"}))
+val q7 = (SELECT * FROM t1 WHERE {1} = {1} AND NOT ({"Hi"} <= {"Bye"}))
val q8 = (SELECT * FROM t1 WHERE t1.A = 1 OR t1.C < 3.0)
datatype list a = Nil | Cons of a * list a
diff --git a/tests/where.urp b/tests/where.urp
new file mode 100644
index 00000000..aa496f40
--- /dev/null
+++ b/tests/where.urp
@@ -0,0 +1,6 @@
+debug
+database dbname=test
+exe /tmp/webapp
+sql /tmp/urweb.sql
+
+where