Index: library/xotcl/tests/slottest.xotcl =================================================================== diff -u -r1d20679c48b53f85dcfd6d0be12a06c0776e797d -re02cb00ae815bd6f8561a6a03fceacc13fd91903 --- library/xotcl/tests/slottest.xotcl (.../slottest.xotcl) (revision 1d20679c48b53f85dcfd6d0be12a06c0776e797d) +++ library/xotcl/tests/slottest.xotcl (.../slottest.xotcl) (revision e02cb00ae815bd6f8561a6a03fceacc13fd91903) @@ -2,7 +2,7 @@ package require XOTcl; namespace import -force ::xotcl::* package require nx::test -Test parameter count 1000 +nx::Test parameter count 1000 # what's new: # - slots instances are manager objects for slot values @@ -352,7 +352,7 @@ #puts [A serialize] ################### -Test case req-param { +nx::Test case req-param { ::xotcl::Class create C -parameter {y:required x:required} C instproc init args {set ::_ $args} @@ -454,7 +454,7 @@ ####################################################### # defaultcmd via slots ####################################################### -Test case defaultcmd +nx::Test case defaultcmd set ::hu 0 Class C -slots { Attribute create x -defaultcmd {incr ::hu; set x 101} @@ -468,7 +468,7 @@ ####################################################### # nested contains ####################################################### -Test case nested-contains +nx::Test case nested-contains Class Point -parameter {{x 100} {y 300}} Class Rectangle -parameter {color} @@ -500,7 +500,7 @@ ####################################################### # assign via slots ####################################################### -Test case assign-via-slots +nx::Test case assign-via-slots Class create A -slots { Attribute create foo -default 1 {