test/t_plain2html.ml

   1 (*
   2  *    _  _   ____                         _
   3  *  _| || |_/ ___|  ___ _ __  _ __   ___ | |
   4  * |_  ..  _\___ \ / _ \ '_ \| '_ \ / _ \| |
   5  * |_      _|___) |  __/ |_) | |_) | (_) |_|
   6  *   |_||_| |____/ \___| .__/| .__/ \___/(_)
   7  *                     |_|   |_|
   8  *
   9  * Personal Social Web.
  10  *
  11  * Copyright (C) The #Seppo contributors. All rights reserved.
  12  *
  13  * This program is free software: you can redistribute it and/or modify
  14  * it under the terms of the GNU General Public License as published by
  15  * the Free Software Foundation, either version 3 of the License, or
  16  * (at your option) any later version.
  17  *
  18  * This program is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU General Public License for more details.
  22  *
  23  * You should have received a copy of the GNU General Public License
  24  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  25  *)
  26
  27 open Seppo_lib
  28
  29 let test_plain2html () =
  30   "a\nb\nc https://Seppo.Social/d/?e#f "
  31   |> Lexing.from_string
  32   |> Plain2html.url (Buffer.create 50)
  33   |> Buffer.contents
  34   |> Assrt.equals_string __LOC__
  35     "a<br/>\n\
  36      b<br/>\n\
  37      c <a href=\"https://seppo.social/d/?e#f\">Seppo.Social/d/?e#f</a> "
  38
  39 let () =
  40   Unix.chdir "../../../test/";
  41   test_plain2html ();
  42   assert true
  43