mirror of
https://github.com/c-cube/linol.git
synced 2025-12-09 04:35:37 -05:00
64 lines
1.2 KiB
OCaml
64 lines
1.2 KiB
OCaml
open Ocaml_lsp_server.Doc_to_md
|
|
|
|
let print_doc = function
|
|
| Raw s -> print_endline s
|
|
| Markdown s -> print_endline s
|
|
;;
|
|
|
|
let%expect_test "superscript" =
|
|
let doc = {| 2{^30} |} in
|
|
translate doc |> print_doc;
|
|
[%expect {| 2^{30} |}]
|
|
;;
|
|
|
|
let%expect_test "subscript" =
|
|
let doc = {| a{_b} |} in
|
|
translate doc |> print_doc;
|
|
[%expect {| a\_{b} |}]
|
|
;;
|
|
|
|
let%expect_test "table" =
|
|
let doc =
|
|
{| {table {tr {td some content} {td some other content}} {tr {td in another} {td row}}} |}
|
|
in
|
|
translate doc |> print_doc;
|
|
[%expect
|
|
{|
|
|
| some content | some other content |
|
|
| in another | row | |}]
|
|
;;
|
|
|
|
let%expect_test "table2" =
|
|
let doc =
|
|
{|
|
|
{t | z | f |
|
|
|:-----|---:|
|
|
| fse | e | }
|
|
|}
|
|
in
|
|
translate doc |> print_doc;
|
|
[%expect
|
|
{|
|
|
| z | f |
|
|
|:-|-:|
|
|
| fse | e | |}]
|
|
;;
|
|
|
|
let%expect_test "problematic_translation" =
|
|
let doc = {| {table {tr {td {ul {li first item} {li second item}}}} } |} in
|
|
translate doc |> print_doc;
|
|
[%expect
|
|
{|
|
|
| - first item - second item | |}]
|
|
;;
|
|
|
|
let%expect_test "code_with_output" =
|
|
let doc = {| {@ocaml[foo][output {b foo}]} |} in
|
|
translate doc |> print_doc;
|
|
[%expect
|
|
{|
|
|
```ocaml
|
|
foo
|
|
```
|
|
output **foo** |}]
|
|
;;
|