blob: 07fe43c0a55b2c5d369aa3ddf8934a03427d3271 (
plain) (
tree)
|
|
module M = Gemini.MimeTextGemini.MimeTextGemini
let test_gemini = "=> /blah mylink\r\n\
=> /blah\r\n\
```\r\n\
preformatted 1\r\n\
preformatted 2\r\n\
``` ending preformatted text\r\n\
some text\r\n\
more text\r\n\
\r\n\
* unordered list\r\n"
let _ = print_endline test_gemini
let _ = print_endline "\n\n...gets parsed as...\n\n"
let test_parse s = M.gemini_to_canon_str (M.str_to_gemini s)
let main = print_endline (test_parse test_gemini)
|