HigherOrderCO/Kind1
1
1
Fork 0
mirror of https://github.com/HigherOrderCO/Kind1.git synced 2024-08-15 19:30:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix kdl tests

Browse Source
This commit is contained in:
Nicolas Abril 2022-11-30 17:48:51 +01:00
parent b06dd3f64e
commit 2a2018ac8f
9 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crates/kind-tests/suite/kdl/ChangeName.golden
View File

@ -0,0 +1,4 @@
fun (JOJO ) {
(JOJO) = #42
}

1
crates/kind-tests/suite/kdl/ChangeName.kind2
View File

@ -1,3 +1,4 @@
#kdl_name = JOJO
#keep
Jonathan.Joestar : U60
Jonathan.Joestar = 42

8
crates/kind-tests/suite/kdl/Lambda.golden
View File

@ -0,0 +1,8 @@
fun (CoolFnApp n) {
(CoolFnApp x0) = (!@x0.0 (!@x1 (!@x1.0 (!x1.0 x0.0) x1) @x2 (!@x2.0 (!(CoolFn) x2.0) x2)) x0)
}
fun (CoolFn ) {
(CoolFn) = @x0 (!@x0.0 (& (* #2 x0.0) #1152921504606846975) x0)
}

2
crates/kind-tests/suite/kdl/Lambda.kind2
View File

@ -1,7 +1,9 @@
#keep
CoolFn : U60 -> U60 {
(x: U60) => (* 2 x)
}
#keep
CoolFnApp (n: U60) : U60 {
let lam = (x: U60) => ((CoolFn) x)
(lam n)

11
crates/kind-tests/suite/kdl/NonInlineState.golden
View File

@ -1 +1,10 @@
ctr {MyFn.state}
ERROR This entry should only have one rule.
/--[suite/kdl/NonInlineState.kind2:7:1]
|
6 |
7 | MyFn.state : U60
| v---------------
| \Here!

1
crates/kind-tests/suite/kdl/NonInlineState.kind2
View File

@ -1,4 +1,5 @@
#kdl_state = MyFn.state
#keep
MyFn : U60 {
1
}

4
crates/kind-tests/suite/kdl/Shortener.golden
View File

@ -0,0 +1,4 @@
fun (NDFMHGgkiOr2 ) {
(NDFMHGgkiOr2) = #0
}

1
crates/kind-tests/suite/kdl/Shortener.kind2
View File

@ -1,3 +1,4 @@
#keep
FunctionWithAVeryLongName : U60 {
0
}

1
crates/kind-tests/suite/kdl/U60.kind2
View File

@ -1,4 +1,3 @@
#kdl_run
#keep
Main: U60
Main = 2