fix dev-wasm ListGetUnsafe refcounting

2025-09-27 22:09:09 +00:00 · 2024-07-12 16:50:02 -07:00 · 2024-07-12 16:50:02 -07:00 · 0d083bc192
commit 0d083bc192
parent 5d613cd5f5
2 changed files with 20 additions and 7 deletions
--- a/crates/compiler/test_gen/src/gen_refcount.rs
+++ b/crates/compiler/test_gen/src/gen_refcount.rs
@ -179,6 +179,26 @@ fn list_str_slice() {
    );
 }

+#[test]
+#[cfg(feature = "gen-wasm")]
+fn list_get() {
+    assert_refcounts!(
+        indoc!(
+            r#"
+                s = Str.concat "A long enough string " "to be heap-allocated"
+                i1 = [s, s, s]
+                List.get i1 1
+                |> Result.withDefault ""
+            "#
+        ),
+        RocStr,
+        &[
+            (StandardRC, Live(1)),    // s
+            (AfterSize, Deallocated), // i1
+        ]
+    );
+}
+
 #[test]
 #[cfg(feature = "gen-wasm")]
 fn list_map() {