Overview  Namespace   Class 
SUMMARY: CHILDREN | PARAMETER | INSTPROC | INSTFILTER | INSTFORWARD DETAIL: | INSTPROC

::xox::test
Class TestClass

Heritage:
::xotcl::Object
  |
  +--::xox::Node
        |
        +--::xounit::Test
              |
              +--::xounit::Assert
                    |
                    +--::xounit::TestCase
Tested Class:
::xox::Class
Class TestClass
superclass ::xounit::TestCase,
Variables
NameDefault ValueClassComment
currentTestMethod    ::xounit::TestCase 
 name of the currently running test method.
nodeName    ::xox::Node 
 
result    ::xounit::TestCase 
 the result for the current run.
 
Methods
NameComment
testGetPackage {}  
testVersion {}  
   
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

testGetPackage

Description:
Code: 
  ::xox::test::TestClass instproc testGetPackage {}  {
   

        my assertEquals [ ::xox::test::TestClass getPackage ] ::xox
    
}

testVersion

Description:
Code: 
  ::xox::test::TestClass instproc testVersion {}  {
   

        ::xotcl::Object id "\$Id: TestClass.tcl,v 1.3 2007/06/02 22:07:44 benthomasson Exp $"

        set id "\$Id: TestClass.tcl,v 1.3 2007/06/02 22:07:44 benthomasson Exp $"

        set version [ lindex [ split $id ] 2 ]

        ::xotcl::my assertEquals [ ::xotcl::Object version ]  $version
    
}