diff options
| -rw-r--r-- | src/main.mlton.sml | 9 | ||||
| -rw-r--r-- | tests/where.ur | 2 | ||||
| -rw-r--r-- | tests/where.urp | 6 |
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 |