tests/sql_match.ml


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

open OUnit2

let test_suit =
  [
    ( "Parse regex" >:: fun _ ->
      let text = Sqlite3.Data.TEXT "hello world"
      and regex = Sqlite3.Data.TEXT "hello ([A-Za-z]+)" in

      assert_equal (Sqlite3.Data.TEXT "world") (ImportSQL.Match.f regex text) );
  ]

let tests = "sql_match" >::: test_suit