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