diff --git a/dlls/vbscript/tests/api.vbs b/dlls/vbscript/tests/api.vbs
index 3c496b1..00787a4 100644
--- a/dlls/vbscript/tests/api.vbs
+++ b/dlls/vbscript/tests/api.vbs
@@ -433,6 +433,17 @@ Call ok(getVT(vbYes) = "VT_I2", "getVT(vbYes) = " & getVT(vbYes))
 Call ok(vbNo = 7, "vbNo = " & vbNo)
 Call ok(getVT(vbNo) = "VT_I2", "getVT(vbNo) = " & getVT(vbNo))
 
+class valclass
+    public val
+
+    public default property get defprop
+        defprop = val
+    end property
+end class
+
+dim valobj
+set valobj = new valclass
+
 Call ok(CInt(-36.75) = -37, "CInt(-36.75) = " & CInt(-36.75))
 Call ok(getVT(CInt(-36.75)) = "VT_I2", "getVT(CInt(-36.75)) = " & getVT(CInt(-36.75)))
 Call ok(CInt(-36.50) = -36, "CInt(-36.50) = " & CInt(-36.50))
@@ -464,4 +475,9 @@ Call ok(getVT(CBool(0)) = "VT_BOOL", "getVT(CBool(0)) = " & getVT(CBool(0)))
 Call ok(CBool(-5) = true, "CBool(-5) = " & CBool(-5))
 Call ok(getVT(CBool(-5)) = "VT_BOOL", "getVT(CBool(-5)) = " & getVT(CBool(-5)))
 
+valobj.val = 1
+Call ok(CBool(valobj) = true, "CBool(valobj) = " & CBool(valobj))
+valobj.val = 0
+Call ok(CBool(valobj) = false, "CBool(valobj) = " & CBool(valobj))
+
 Call reportSuccess()