Index: tests/info-method.test =================================================================== diff -u -raeb4c8b743c038290c9e15770669c6a50381a464 -re02cb00ae815bd6f8561a6a03fceacc13fd91903 --- tests/info-method.test (.../info-method.test) (revision aeb4c8b743c038290c9e15770669c6a50381a464) +++ tests/info-method.test (.../info-method.test) (revision e02cb00ae815bd6f8561a6a03fceacc13fd91903) @@ -3,7 +3,7 @@ ::nx::configure defaultMethodCallProtection false package require nx::test -Test case base { +nx::Test case base { nx::Object create o { :alias set ::set } @@ -109,7 +109,7 @@ ::nx::configure defaultMethodCallProtection false } -Test case subobj { +nx::Test case subobj { ::nx::Object create o { ::nx::Object create [::nx::self]::sub { :method foo {} {;} @@ -122,7 +122,7 @@ ? {o info method type subal} "alias" } -Test case callable { +nx::Test case callable { # define the same method for Object and Class ::nx::Object method bar {} {return Object.bar} ::nx::Class method bar {} {return Class.bar} @@ -219,7 +219,7 @@ # # test info slots / info lookup slots # -Test case slots { +nx::Test case slots { nx::Class create C { :attribute a @@ -242,7 +242,7 @@ # # test info submethod and method handles for submethods # -Test case info-submethod { +nx::Test case info-submethod { nx::Object create o { :method "foo a" {} {return a} @@ -345,7 +345,7 @@ # # test "info methods -path" # -Test case info-methods-path { +nx::Test case info-methods-path { # # test case on base class # @@ -400,7 +400,7 @@ } -Test case parametersyntax { +nx::Test case parametersyntax { # a true method ? {::nx::Object info method parametersyntax method} "name arguments ?-returns value? body ?-precondition value? ?-postcondition value?" # a forwarder to ::nsf::relation; definition comes via ::nsf::parametersyntax