test.ml

   1
   2 open OUnit
   3 open RA.Scheme
   4 open Sql.Type
   5 open Stmt.Raw
   6
   7 (*
   8 CREATE TABLE test (id INTEGER PRIMARY KEY AUTOINCREMENT,name TEXT,descr TEXT);
   9 -- [sql2cpp] name=select_all
  10 SELECT * FROM test;
  11 SELECT name,descr FROM test;
  12 *)
  13
  14 let tt stmt scheme params =
  15   let print_scheme = RA.Scheme.to_string in
  16   let print_params = Stmt.Raw.to_string in
  17   let (s1,p1) =
  18     try
  19       Parser.parse_stmt stmt
  20     with
  21     | _ -> assert_failure "parsing failed"
  22   in
  23   assert_equal ~printer:print_scheme scheme s1;
  24   assert_equal ~printer:print_params params p1
  25
  26 let test () =
  27   tt "CREATE TABLE q (id INT, str TEXT)"
  28      []
  29      [];
  30   tt "SELECT str FROM q WHERE id=?"
  31      [attr "str" Text]
  32      [Next,None];
  33   assert_equal 1 1
  34
  35 let run () =
  36   let tests =
  37   [
  38     "test" >:: test ;
  39   ]
  40   in
  41   let test_suite = "main" >::: tests in
  42   ignore (run_test_tt test_suite)