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)