Other list-returning [info class] subcommands are plurals, so change property -> properties

1 files changed, 63 insertions, 50 deletions

diff --git a/tests/oo.test b/tests/oo.test
index 631c84d..3fce886 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -2424,7 +2424,7 @@ test oo-16.2 {OO: object introspection} -body {
 } -returnCodes 1 -result {NOTANOBJECT does not refer to an object}
 test oo-16.3 {OO: object introspection} -body {
     info object gorp oo::object
-} -returnCodes 1 -result {unknown or ambiguous subcommand "gorp": must be call, class, creationid, definition, filters, forward, isa, methods, methodtype, mixins, namespace, property, variables, or vars}
+} -returnCodes 1 -result {unknown or ambiguous subcommand "gorp": must be call, class, creationid, definition, filters, forward, isa, methods, methodtype, mixins, namespace, properties, variables, or vars}
 test oo-16.4 {OO: object introspection} -setup {
     oo::class create meta { superclass oo::class }
     [meta create instance1] create instance2
@@ -2643,7 +2643,7 @@ test oo-17.3 {OO: class introspection} -setup {
 } -result {"foo" is not a class}
 test oo-17.4 {OO: class introspection} -body {
     info class gorp oo::object
-} -returnCodes 1 -result {unknown or ambiguous subcommand "gorp": must be call, constructor, definition, definitionnamespace, destructor, filters, forward, instances, methods, methodtype, mixins, property, subclasses, superclasses, or variables}
+} -returnCodes 1 -result {unknown or ambiguous subcommand "gorp": must be call, constructor, definition, definitionnamespace, destructor, filters, forward, instances, methods, methodtype, mixins, properties, subclasses, superclasses, or variables}
 test oo-17.5 {OO: class introspection} -setup {
     oo::class create testClass
 } -body {
@@ -5455,15 +5455,15 @@ test oo-44.1 {TIP 558: properties: core support} -setup {
     set result {}
 } -body {
     oo::class create c {superclass parent}
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
     oo::define c ::oo::configuresupport::readableproperties -set a b c
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
     oo::define c ::oo::configuresupport::readableproperties -set f e d
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
     oo::define c ::oo::configuresupport::readableproperties -set a a a
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
     oo::define c ::oo::configuresupport::readableproperties -set
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
 } -cleanup {
     parent destroy
 } -result {{} {} {a b c} {} {d e f} {} a {} {} {}}
@@ -5473,15 +5473,15 @@ test oo-44.2 {TIP 558: properties: core support} -setup {
     set result {}
 } -body {
     oo::class create c {superclass parent}
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set a b c
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set f e d
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set a a a
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
 } -cleanup {
     parent destroy
 } -result {{} {} {a b c} {} {d e f} {} a {} {} {}}
@@ -5491,15 +5491,15 @@ test oo-44.3 {TIP 558: properties: core support} -setup {
     set result {}
 } -body {
     oo::class create c {superclass parent}
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
     oo::define c ::oo::configuresupport::writableproperties -set a b c
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
     oo::define c ::oo::configuresupport::writableproperties -set f e d
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
     oo::define c ::oo::configuresupport::writableproperties -set a a a
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
     oo::define c ::oo::configuresupport::writableproperties -set
-    lappend result [info class property c] [info class property c -writable]
+    lappend result [info class properties c] [info class properties c -writable]
 } -cleanup {
     parent destroy
 } -result {{} {} {} {a b c} {} {d e f} {} a {} {}}
@@ -5509,15 +5509,15 @@ test oo-44.4 {TIP 558: properties: core support} -setup {
     set result {}
 } -body {
     oo::class create c {superclass parent}
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set a b c
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set f e d
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set a a a
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set
-    lappend result [info class property c -all] [info class property c -writable -all]
+    lappend result [info class properties c -all] [info class properties c -writable -all]
 } -cleanup {
     parent destroy
 } -result {{} {} {} {a b c} {} {d e f} {} a {} {}}
@@ -5528,20 +5528,20 @@ test oo-44.5 {TIP 558: properties: core support} -setup {
 } -body {
     oo::class create c {superclass parent}
     oo::class create d {superclass c}
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set a b c
     oo::define d ::oo::configuresupport::readableproperties -set x y z
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set f e d
     oo::define d ::oo::configuresupport::readableproperties -set r p q
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set a a h
     oo::define d ::oo::configuresupport::readableproperties -set g h g
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define d ::oo::configuresupport::readableproperties -set
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
 } -cleanup {
     parent destroy
 } -result {{} {} {a b c x y z} {} {d e f p q r} {} {a g h} {} {g h} {} {} {}}
@@ -5552,20 +5552,20 @@ test oo-44.6 {TIP 558: properties: core support} -setup {
 } -body {
     oo::class create c {superclass parent}
     oo::class create d {superclass c}
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set a b c
     oo::define d ::oo::configuresupport::writableproperties -set x y z
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set f e d
     oo::define d ::oo::configuresupport::writableproperties -set r p q
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set a a h
     oo::define d ::oo::configuresupport::writableproperties -set g h g
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
     oo::define d ::oo::configuresupport::writableproperties -set
-    lappend result [info class property d -all] [info class property d -writable -all]
+    lappend result [info class properties d -all] [info class properties d -writable -all]
 } -cleanup {
     parent destroy
 } -result {{} {} {} {a b c x y z} {} {d e f p q r} {} {a g h} {} {g h} {} {}}
@@ -5576,15 +5576,15 @@ test oo-44.7 {TIP 558: properties: core support} -setup {
 } -body {
     oo::class create c {superclass parent}
     c create o
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
     oo::objdefine o ::oo::configuresupport::objreadableproperties -set a b c
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
     oo::objdefine o ::oo::configuresupport::objreadableproperties -set f e d
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
     oo::objdefine o ::oo::configuresupport::objreadableproperties -set a a h
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
     oo::objdefine o ::oo::configuresupport::objreadableproperties -set
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
 } -cleanup {
     parent destroy
 } -result {{} {} {a b c} {} {d e f} {} {a h} {} {} {}}
@@ -5595,15 +5595,15 @@ test oo-44.8 {TIP 558: properties: core support} -setup {
 } -body {
     oo::class create c {superclass parent}
     c create o
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
     oo::objdefine o ::oo::configuresupport::objwritableproperties -set a b c
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
     oo::objdefine o ::oo::configuresupport::objwritableproperties -set f e d
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
     oo::objdefine o ::oo::configuresupport::objwritableproperties -set a a h
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
     oo::objdefine o ::oo::configuresupport::objwritableproperties -set
-    lappend result [info object property o] [info object property o -writable]
+    lappend result [info object properties o] [info object properties o -writable]
 } -cleanup {
     parent destroy
 } -result {{} {} {} {a b c} {} {d e f} {} {a h} {} {}}
@@ -5615,13 +5615,13 @@ test oo-44.9 {TIP 558: properties: core support} -setup {
     oo::class create c {superclass parent}
     oo::class create d {superclass c}
     d create o
-    lappend result [info object property o -all] [info object property o -writable -all]
+    lappend result [info object properties o -all] [info object properties o -writable -all]
     oo::define c ::oo::configuresupport::readableproperties -set a b
     oo::define d ::oo::configuresupport::readableproperties -set c d
     oo::objdefine o ::oo::configuresupport::objreadableproperties -set e f
-    lappend result [info object property o -all] [info object property o -writable -all]
+    lappend result [info object properties o -all] [info object properties o -writable -all]
     oo::objdefine o ::oo::configuresupport::objreadableproperties -set f e d b e
-    lappend result [info object property o -all] [info object property o -writable -all]
+    lappend result [info object properties o -all] [info object properties o -writable -all]
 } -cleanup {
     parent destroy
 } -result {{} {} {a b c d e f} {} {a b c d e f} {}}
@@ -5633,13 +5633,13 @@ test oo-44.10 {TIP 558: properties: core support} -setup {
     oo::class create c {superclass parent}
     oo::class create d {superclass c}
     d create o
-    lappend result [info object property o -all] [info object property o -writable -all]
+    lappend result [info object properties o -all] [info object properties o -writable -all]
     oo::define c ::oo::configuresupport::writableproperties -set a b
     oo::define d ::oo::configuresupport::writableproperties -set c d
     oo::objdefine o ::oo::configuresupport::objwritableproperties -set e f
-    lappend result [info object property o -all] [info object property o -writable -all]
+    lappend result [info object properties o -all] [info object properties o -writable -all]
     oo::objdefine o ::oo::configuresupport::objwritableproperties -set f e d b e
-    lappend result [info object property o -all] [info object property o -writable -all]
+    lappend result [info object properties o -all] [info object properties o -writable -all]
 } -cleanup {
     parent destroy
 } -result {{} {} {} {a b c d e f} {} {a b c d e f}}
@@ -6111,6 +6111,19 @@ test oo-46.22 {TIP 558: properties: declaration semantics} -setup {
 } -cleanup {
     parent destroy
 } -result ok
+test oo-46.23 {TIP 558: properties: declaration semantics} -setup {
+    oo::class create parent
+} -body {
+    oo::configurable create Point {
+	superclass parent
+	private property var
+    }
+    Point create pt
+    pt configure -var ok
+    pt configure -var
+} -cleanup {
+    parent destroy
+} -result ok
 
 test oo-47.1 {TIP 558: properties: error details} -setup {
     oo::class create parent