waalge/aiken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix ordinal index on pairs

Browse Source
This commit is contained in:
KtorZ
2024-04-18 17:51:00 +02:00
committed by Kasey
parent 2cb2c7fa1f
commit 7cb548a749
4 changed files with 96 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
crates/aiken-project/src/tests/gen_uplc.rs
View File

@@ -2118,19 +2118,19 @@ fn acceptance_test_23_to_list() {
let src = r#"
pub type Map<key, value> =
List<Pair<key, value>>
pub opaque type AssocList<key, value> {
inner: Map<key, value>,
}
pub fn new() -> AssocList<key, value> {
AssocList { inner: [] }
}
pub fn to_list(m: AssocList<key, value>) -> Map<key, value> {
m.inner
}
pub fn insert(
in m: AssocList<key, value>,
key k: key,
@@ -2138,7 +2138,7 @@ fn acceptance_test_23_to_list() {
) -> AssocList<key, value> {
AssocList { inner: do_insert(m.inner, k, v) }
}
fn do_insert(elems: Map<key, value>, k: key, v: value) -> Map<key, value> {
when elems is {
[] ->
@@ -2151,15 +2151,15 @@ fn acceptance_test_23_to_list() {
}
}
}
fn fixture_1() {
new()
|> insert("foo", 42)
|> insert("bar", 14)
}
test to_list_2() {
to_list(fixture_1()) == [Pair("foo", 42).2nd, Pair("bar", 14)]
to_list(fixture_1()) == [Pair("foo", 42), Pair("bar", 14)]
}
"#;