CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-08 07:51:43 +03:00
Code Issues Projects Releases Wiki Activity

Update tests outputs

Browse Source
This commit is contained in:
Louis Gesbert 2023-09-15 23:52:23 +02:00
parent 55e8e24cab
commit 63773e48b5
7 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/lcalc/to_ocaml.ml
View File

@ -245,7 +245,7 @@ let format_exception (fmt : Format.formatter) (exc : except Mark.pos) : unit =
| ConflictError ->
let pos = Mark.get exc in
Format.fprintf fmt
"(ConflictError@ @[<hov 2>{filename = \"%s\";@ start_line=%d;@ \
"(ConflictError@ @[<hov 2>{filename = \"%s\";@\nstart_line=%d;@ \
start_column=%d;@ end_line=%d; end_column=%d;@ law_headings=%a}@])"
(Pos.get_file pos) (Pos.get_start_line pos) (Pos.get_start_column pos)
(Pos.get_end_line pos) (Pos.get_end_column pos) format_string_list

5
tests/test_name_resolution/good/let_in2.catala_en
View File

@ -62,8 +62,9 @@ let s (s_in: S_in.t) : S.t =
a_)))))
with
EmptyError -> (raise (NoValueProvided
{filename = "let_in2.catala_en"; start_line=5; start_column=18;
end_line=5; end_column=19; law_headings=["Article"]})) in
{filename = "let_in2.catala_en";
start_line=5; start_column=18; end_line=5; end_column=19;
law_headings=["Article"]})) in
{S.a = a_}
let () =
Runtime_ocaml.Runtime.register_module "Let_in2"

10
tests/test_scope/good/191_fix_record_name_confusion.catala_en
View File

@ -46,8 +46,9 @@ end
let scope_a (scope_a_in: ScopeA_in.t) : ScopeA.t =
let a_: bool = try true with
EmptyError -> (raise (NoValueProvided
{filename = "191_fix_record_name_confusion.catala_en"; start_line=5;
start_column=10; end_line=5; end_column=11; law_headings=["Article"]})) in
{filename = "191_fix_record_name_confusion.catala_en";
start_line=5; start_column=10; end_line=5; end_column=11;
law_headings=["Article"]})) in
{ScopeA.a = a_}
let scope_b (scope_b_in: ScopeB_in.t) : ScopeB.t =
@ -55,8 +56,9 @@ let scope_b (scope_b_in: ScopeB_in.t) : ScopeB.t =
let scope_a_dot_a_: bool = result_.ScopeA.a in
let a_: bool = try scope_a_dot_a_ with
EmptyError -> (raise (NoValueProvided
{filename = "191_fix_record_name_confusion.catala_en"; start_line=8;
start_column=10; end_line=8; end_column=11; law_headings=["Article"]})) in
{filename = "191_fix_record_name_confusion.catala_en";
start_line=8; start_column=10; end_line=8; end_column=11;
law_headings=["Article"]})) in
{ScopeB.a = a_}
let () =
Runtime_ocaml.Runtime.register_module "191_fix_record_name_confusion"

2
tests/test_typing/bad/err1.catala_en
View File

@ -30,7 +30,7 @@ Type decimal coming from expression:
│ ‾‾‾
Type integer coming from expression:
┌─⯈ ./common.catala_en:8.18-8.25:
┌─⯈ common.catala_en:8.18-8.25:
└─┐
8 │ data i content integer
│ ‾‾‾‾‾‾‾

8
tests/test_typing/bad/err3.catala_en
View File

@ -14,7 +14,7 @@ scope S:
$ catala Typecheck
[WARNING] The constructor "Dec" of enumeration "Enum" is never used; maybe it's unnecessary?
┌─⯈ ./common.catala_en:4.6-4.9:
┌─⯈ common.catala_en:4.6-4.9:
└─┐
4 │ -- Dec content decimal
│ ‾‾‾
@ -36,7 +36,7 @@ Type integer coming from expression:
│ ‾
Type decimal coming from expression:
┌─⯈ ./common.catala_en:15.20-15.27:
┌─⯈ common.catala_en:15.20-15.27:
└──┐
15 │ output a content decimal
│ ‾‾‾‾‾‾‾
@ -49,7 +49,7 @@ Re-putting the same check again, to ensure that the `Typecheck` and `ocaml` subc
$ catala ocaml
[WARNING] The constructor "Dec" of enumeration "Enum" is never used; maybe it's unnecessary?
┌─⯈ ./common.catala_en:4.6-4.9:
┌─⯈ common.catala_en:4.6-4.9:
└─┐
4 │ -- Dec content decimal
│ ‾‾‾
@ -71,7 +71,7 @@ Type integer coming from expression:
│ ‾
Type decimal coming from expression:
┌─⯈ ./common.catala_en:15.20-15.27:
┌─⯈ common.catala_en:15.20-15.27:
└──┐
15 │ output a content decimal
│ ‾‾‾‾‾‾‾

8
tests/test_typing/bad/err4.catala_en
View File

@ -12,19 +12,19 @@ Should be "catala Typecheck", see test err3
$ catala ocaml
[WARNING] The structure "Structure" is never used; maybe it's unnecessary?
┌─⯈ ./common.catala_en:7.23-7.32:
┌─⯈ common.catala_en:7.23-7.32:
└─┐
7 │ declaration structure Structure:
│ ‾‾‾‾‾‾‾‾‾
[WARNING] The constructor "Dec" of enumeration "Enum" is never used; maybe it's unnecessary?
┌─⯈ ./common.catala_en:4.6-4.9:
┌─⯈ common.catala_en:4.6-4.9:
└─┐
4 │ -- Dec content decimal
│ ‾‾‾
[WARNING] The constructor "Dat" of enumeration "Enum" is never used; maybe it's unnecessary?
┌─⯈ ./common.catala_en:5.6-5.9:
┌─⯈ common.catala_en:5.6-5.9:
└─┐
5 │ -- Dat content date
│ ‾‾‾
@ -46,7 +46,7 @@ Type Enum coming from expression:
│ ‾‾‾‾‾‾‾‾‾‾‾‾‾
Type Structure coming from expression:
┌─⯈ ./common.catala_en:14.31-14.40:
┌─⯈ common.catala_en:14.31-14.40:
└──┐
14 │ output z content collection Structure
│ ‾‾‾‾‾‾‾‾‾

2
tests/test_typing/bad/err6.catala_en
View File

@ -46,7 +46,7 @@ Type decimal coming from expression:
│ ‾‾‾
Type integer coming from expression:
┌─⯈ ./common.catala_en:12.19-12.26:
┌─⯈ common.catala_en:12.19-12.26:
└──┐
12 │ input x content integer
│ ‾‾‾‾‾‾‾