Index: tests/properties.test
===================================================================
diff -u -re014a6a18a4801102162659f5156600ebd0f7c85 -r15a93252f0d9d8961ded6fd8f9b610a535ddbdb5
--- tests/properties.test	(.../properties.test)	(revision e014a6a18a4801102162659f5156600ebd0f7c85)
+++ tests/properties.test	(.../properties.test)	(revision 15a93252f0d9d8961ded6fd8f9b610a535ddbdb5)
@@ -1049,6 +1049,11 @@
   ? {c1 info precedence} "::C ::nx::Object"
   ? {d1 info precedence} "::D ::C ::nx::Object"
 
+  ? {C info subclass -dependent} "::C ::D"
+  ? {C info subclass -closure} "::C ::D"
+  ? {M0 info subclass -dependent} "::M0 ::M1 ::M2"
+  ? {M0 info subclass -closure} "::M0 ::M1 ::M2"
+
   #puts stderr =========C-mixin-add-M2
   C mixin add M2
   #puts stderr =========
@@ -1062,6 +1067,12 @@
   ? {C info heritage} "::M2 ::M1 ::M0 ::nx::Object"
   ? {D info heritage} "::M2 ::M1 ::M0 ::C ::nx::Object"
 
+  ? {C info subclass -dependent} "::C ::D"
+  ? {C info subclass -closure} "::C ::D"
+  ? {M0 info subclass -dependent} "::M0 ::M1 ::M2 ::C ::D"
+  ? {M0 info subclass -closure} "::M0 ::M1 ::M2"
+
+
   # Only M2 is a direct mixin, visible through "mixinof",
   # but query-able via transitive -closure operator