tests/sql_trim.ml


1
2
3
4
5
6
7
8
9
10
11
12
13

open Test_migration

let check = Alcotest.check Test_migration.sql_testable

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

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

let tests = ("sql_trim", test_suit)