balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fully tested md_files

Browse Source
This commit is contained in:
Lesenechal Remi 2019-12-26 14:22:13 +01:00
parent eac5e9b82e
commit c171ce7ad9
2 changed files with 8 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/test/dune
View File

@ -17,7 +17,7 @@
(alias (alias
(name doc-test) (name doc-test)
(action (run ./doc_test.exe)) (action (run ./doc_test.exe))
(deps (source_tree ../../gitlab-pages/docs/language-basics)) (deps (source_tree ../../gitlab-pages/docs))
) )
(alias (alias

36
src/test/md_file_tests.ml
View File

@ -5,11 +5,8 @@ module SnippetsGroup = Map.Make(struct type t = (string * string) let compare a
let failed_to_compile_md_file md_file (s,group,prg) = let failed_to_compile_md_file md_file (s,group,prg) =
let title () = "Failed to compile ```"^s^" block (group '"^group^"') in file '"^md_file^"'" in let title () = "Failed to compile ```"^s^" block (group '"^group^"') in file '"^md_file^"'" in
let content () = "unable to compile the program down to michelson" in let content () = "\n"^prg in
let data = [ error title content
("source" , fun () -> Format.asprintf "%s" prg) ;
] in
error ~data title content
(** (**
binds the snippets by (syntax, group_name) binds the snippets by (syntax, group_name)
@ -34,6 +31,7 @@ let get_groups md_file =
| None -> Some (String.concat "\n" el.contents) | None -> Some (String.concat "\n" el.contents)
) )
grp_map grp_map
| [Md.Field "skip"] -> grp_map
| _ -> | _ ->
List.fold_left List.fold_left
(fun grp_map arg -> match arg with (fun grp_map arg -> match arg with
@ -57,8 +55,8 @@ let get_groups md_file =
**) **)
let compile_groups _filename grp_list = let compile_groups _filename grp_list =
let%bind (_michelsons : Compiler.compiled_expression list list) = bind_map_list let%bind (_michelsons : Compiler.compiled_expression list list) = bind_map_list
(fun ((s,_grp),contents) -> (fun ((s,grp),contents) ->
trace (failed_to_compile_md_file _filename (s,_grp,contents)) @@ trace (failed_to_compile_md_file _filename (s,grp,contents)) @@
let%bind v_syntax = Compile.Helpers.syntax_to_variant (Syntax_name s) None in let%bind v_syntax = Compile.Helpers.syntax_to_variant (Syntax_name s) None in
let%bind simplified = Compile.Of_source.compile_string contents v_syntax in let%bind simplified = Compile.Of_source.compile_string contents v_syntax in
let%bind typed,_ = Compile.Of_simplified.compile simplified in let%bind typed,_ = Compile.Of_simplified.compile simplified in
@ -79,24 +77,19 @@ let compile filename () =
find ./gitlab-pages/ -iname "*.md" find ./gitlab-pages/ -iname "*.md"
*) *)
let md_files = [ let md_files = [
(*
"/gitlab-pages/docs/tutorials/get-started/tezos-taco-shop-smart-contract.md"; "/gitlab-pages/docs/tutorials/get-started/tezos-taco-shop-smart-contract.md";
"/gitlab-pages/docs/tutorials/get-started/tezos-taco-shop-payout.md"; "/gitlab-pages/docs/tutorials/get-started/tezos-taco-shop-payout.md";
"/gitlab-pages/docs/intro/installation.md"; "/gitlab-pages/docs/intro/installation.md";
"/gitlab-pages/docs/intro/editor-support.md"; "/gitlab-pages/docs/intro/editor-support.md";
"/gitlab-pages/docs/intro/what-and-why.md"; "/gitlab-pages/docs/intro/what-and-why.md";
"/gitlab-pages/docs/language-basics/functions.md";
"/gitlab-pages/docs/language-basics/math-numbers-tez.md"; "/gitlab-pages/docs/language-basics/math-numbers-tez.md";
*) "/gitlab-pages/docs/language-basics/functions.md";
(* antislash problem:
"/gitlab-pages/docs/language-basics/strings.md";
"/gitlab-pages/docs/language-basics/boolean-if-else.md"; "/gitlab-pages/docs/language-basics/boolean-if-else.md";
"/gitlab-pages/docs/language-basics/types.md"; "/gitlab-pages/docs/language-basics/types.md";
*) "/gitlab-pages/docs/language-basics/strings.md";
"/gitlab-pages/docs/language-basics/maps-records.md"; "/gitlab-pages/docs/language-basics/maps-records.md";
"/gitlab-pages/docs/language-basics/variables-and-constants.md"; "/gitlab-pages/docs/language-basics/variables-and-constants.md";
"/gitlab-pages/docs/language-basics/sets-lists-touples.md"; "/gitlab-pages/docs/language-basics/sets-lists-touples.md";
(*
"/gitlab-pages/docs/language-basics/operators.md"; "/gitlab-pages/docs/language-basics/operators.md";
"/gitlab-pages/docs/language-basics/unit-option-pattern-matching.md"; "/gitlab-pages/docs/language-basics/unit-option-pattern-matching.md";
"/gitlab-pages/docs/contributors/big-picture/back-end.md"; "/gitlab-pages/docs/contributors/big-picture/back-end.md";
@ -116,21 +109,6 @@ let md_files = [
"/gitlab-pages/docs/advanced/timestamps-addresses.md"; "/gitlab-pages/docs/advanced/timestamps-addresses.md";
"/gitlab-pages/docs/api/cli-commands.md"; "/gitlab-pages/docs/api/cli-commands.md";
"/gitlab-pages/docs/api/cheat-sheet.md"; "/gitlab-pages/docs/api/cheat-sheet.md";
"/gitlab-pages/website/blog/2019-07-11-ligo-update.md";
"/gitlab-pages/website/blog/2019-06-13-public-launch-of-ligo.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/big-picture/back-end.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/big-picture/vendors.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/big-picture/front-end.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/big-picture/overview.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/big-picture/middle-end.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/philosophy.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/road-map/short-term.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/road-map/long-term.md";
"/gitlab-pages/website/versioned_docs/version-next/contributors/origin.md";
"/gitlab-pages/website/versioned_docs/version-next/api-cli-commands.md";
"/gitlab-pages/website/README.md";
"/gitlab-pages/README.md";
*)
] ]
let md_root = "../../gitlab-pages/docs/language-basics/" let md_root = "../../gitlab-pages/docs/language-basics/"