blob: 07fe43c0a55b2c5d369aa3ddf8934a03427d3271 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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)
|