tests/sql_trim.ml


1
2
3
4
5
6
7
8
9
10
11

open OUnit2

let test_suit =
  [
    ( "Trim" >:: fun _ ->
      let text = Sqlite3.Data.TEXT "  \nABC \n" in

      assert_equal (Sqlite3.Data.TEXT "ABC") (ImportSQL.Trim.f text) );
  ]

let tests = "sql_trim" >::: test_suit