unittests: Add test for tv_dict_set_keys_readonly

1 files changed, 13 insertions, 0 deletions

diff --git a/test/unit/eval/typval_spec.lua b/test/unit/eval/typval_spec.lua
index f81f7561b9..0d894ff8b0 100644
--- a/test/unit/eval/typval_spec.lua
+++ b/test/unit/eval/typval_spec.lua
@@ -2187,5 +2187,18 @@ describe('typval.c', function()
         eq(1, d_copy1.dv_refcount)
       end)
     end)
+    describe('set_keys_readonly()', function()
+      itp('works', function()
+        local d = dict({a=true})
+        local dis = dict_items(d)
+        alloc_log:check({a.dict(d), a.di(dis.a)})
+        eq(0, bit.band(dis.a.di_flags, lib.DI_FLAGS_RO))
+        eq(0, bit.band(dis.a.di_flags, lib.DI_FLAGS_FIX))
+        lib.tv_dict_set_keys_readonly(d)
+        alloc_log:check({})
+        eq(lib.DI_FLAGS_RO, bit.band(dis.a.di_flags, lib.DI_FLAGS_RO))
+        eq(lib.DI_FLAGS_FIX, bit.band(dis.a.di_flags, lib.DI_FLAGS_FIX))
+      end)
+    end)
   end)
 end)