|
||||||
| SUMMARY: CHILDREN | PARAMETER | INSTPROC | INSTFILTER | INSTFORWARD | DETAIL: | INSTPROC | |||||
::xotcl::Object
|
+--::xox::Node
|
+--::xounit::Test
|
+--::xounit::Assert
|
+--::xounit::TestCase
| Variables | |||
| Name | Default Value | Class | Comment |
currentTestMethod |
::xounit::TestCase | name of the currently running test method. |
|
nodeName |
::xox::Node | ||
result |
::xounit::TestCase | the result for the current run. |
|
| Methods | |
| Name | Comment |
testRecreateClass {}
| |
testReloadClass {}
| |
testReloadObject {}
| |
testReloadReload {}
| |
testReloadTestReload {}
| |
| Methods from ::xotcl::Object |
#, ., ?, ?code, ?methods, ?object, abstract, copy, coverageFilter, defaultmethod, extractConfigureArg, filterappend, garbageCollect, get#, getClean#, hasclass, init, methodTag, mixinappend, move, profileFilter, self, setParameterDefaults, shell, tclcmd, traceFilter,
|
| Instproc Detail |
::xox::test::TestReload instproc testRecreateClass {} {
Class ::A
set a [ ::A new ]
Class ::A
my assertEquals [ $a info class ] ::A
}
::xox::test::TestReload instproc testReloadClass {} {
Class ::C
set c [ ::C new ]
set o [ Object new ]
package forget xox::Class
package require xox::Class
my assertEquals [ $o info class ] ::xotcl::Object
my assertEquals [ $c info class ] ::C
my testRecreateClass
}
::xox::test::TestReload instproc testReloadObject {} {
Class ::B
set b [ ::B new ]
set o [ Object new ]
package forget xox::Object
package require xox::Object
my assertEquals [ $o info class ] ::xotcl::Object
my assertEquals [ $b info class ] ::B
my testRecreateClass
}
::xox::test::TestReload instproc testReloadReload {} {
Class ::D
set d [ ::D new ]
set o [ Object new ]
package forget xox::Reload
package require xox::Reload
my assertEquals [ $o info class ] ::xotcl::Object
my assertEquals [ $d info class ] ::D
my testRecreateClass
}
::xox::test::TestReload instproc testReloadTestReload {} {
Class ::E
set e [ ::E new ]
set o [ Object new ]
package forget xox::test::TestReload
package require xox::test::TestReload
my assertEquals [ $o info class ] ::xotcl::Object
my assertEquals [ $e info class ] ::E
my testRecreateClass
}