1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192 |
- (*
- * _ _ ____ _
- * _| || |_/ ___| ___ _ __ _ __ ___ | |
- * |_ .. _\___ \ / _ \ '_ \| '_ \ / _ \| |
- * |_ _|___) | __/ |_) | |_) | (_) |_|
- * |_||_| |____/ \___| .__/| .__/ \___/(_)
- * |_| |_|
- *
- * Personal Social Web.
- *
- * Copyright (C) The #Seppo contributors. All rights reserved.
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
- *)
- let tail x =
- Assrt.equals_string __LOC__ "ok" (if x |> Result.is_ok then "ok" else "no")
- open Seppo_lib
- let test_sift_handles () =
- let h = {|Some text with @
- linebreaks and @sepp0@example.com. And
- @other@example.com, even a @third@example.com!|} |> Main.find_handles in
- match h with
- | [a;b;c] ->
- a |> Assrt.equals_string __LOC__ "third@example.com";
- b |> Assrt.equals_string __LOC__ "other@example.com";
- c |> Assrt.equals_string __LOC__ "sepp0@example.com"
- | l -> l |> List.length |> Assrt.equals_int __LOC__ 30000
- let fn = Mapcdb.Cdb "tmp/main.cdb"
- let Mapcdb.Cdb fn' = fn
- let test_sift_tags () =
- Logr.debug (fun m -> m "%s.%s" "Main_test" "test_sift_tags");
- let open Rfc4287 in
- Unix.(try unlink fn' with Unix_error (ENOENT, "unlink", _) -> ());
- File.touch fn';
- let published = Rfc3339.T "2023-03-09T12:34:56+01:00" in
- let author = Uri.make ~userinfo:"uhu" () in
- let lang = Rfc4646 "en" in
- let uri = Uri.empty in
- let title = {|Just a #note|} in
- let content = {|th some #more #Hashtags.|} in
- (let* e = Entry.from_text_plain ~published ~author ~lang ~uri title content in
- let* e : Entry.t = Main.sift_tags fn e in
- let li = e.categories in
- li |> List.length |> Assrt.equals_int __LOC__ 3;
- let (Category.Label (Single la),Category.Term (Single te),sc) = li |> List.hd in
- la |> Assrt.equals_string __LOC__ "note";
- te |> Assrt.equals_string __LOC__ "note";
- sc |> Uri.to_string |> Assrt.equals_string __LOC__ "o/t/";
- let li = li |> List.tl in
- let (Category.Label (Single la),Category.Term (Single te),sc) = li |> List.hd in
- la |> Assrt.equals_string __LOC__ "more";
- te |> Assrt.equals_string __LOC__ "more";
- sc |> Uri.to_string |> Assrt.equals_string __LOC__ "o/t/";
- let li = li |> List.tl in
- let (Category.Label (Single la),Category.Term (Single te),sc) = li |> List.hd in
- la |> Assrt.equals_string __LOC__ "Hashtags";
- te |> Assrt.equals_string __LOC__ "Hashtags";
- sc |> Uri.to_string |> Assrt.equals_string __LOC__ "o/t/";
- let li = li |> List.tl in
- li |> List.length |> Assrt.equals_int __LOC__ 0;
- Ok e) |> tail;
- assert true
- let test_tmap_from_cdb () =
- let tm = Tag.Tmap.empty in
- let tm = Tag.Tmap.add "a" "A" tm in
- Tag.Tmap.find "a" tm |> Assrt.equals_string __LOC__ "A";
- assert true
- let () =
- Unix.chdir "../../../test/";
- test_sift_handles ();
- test_sift_tags ();
- test_tmap_from_cdb ();
- assert true
|