diff --git a/test/library/structures.lua b/test/library/structures.lua
index 62f3cd635..241000a69 100644
--- a/test/library/structures.lua
+++ b/test/library/structures.lua
@@ -21,3 +21,13 @@ function test.overlappingGlobals()
         expect.true_(prev.last < cur.first, "global variable " .. prev.name .. " overlaps global variable " .. cur.name)
     end
 end
+
+function test.viewscreenDtors()
+    for name, type in pairs(df) do
+        if name:startswith('viewscreen') then
+            print('testing', name)
+            v = type:new()
+            expect.true_(v:delete(), "destructor returned false: " .. name)
+        end
+    end
+end