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

::xox::test
Class TestDebugging

Heritage:
::xotcl::Object
  |
  +--::xox::Node
        |
        +--::xounit::Test
              |
              +--::xounit::Assert
                    |
                    +--::xounit::TestCase
Tested Class:
::xox::Debugging
Class TestDebugging
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
procA {}  
procB {}  
procC {}  
procD {}  
testDebug {}  
testError {}  
testStackTrace {}  
   
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

procA

Description:
Code: 
  ::xox::test::TestDebugging instproc procA {}  {
   

        my procB

    
}

procB

Description:
Code: 
  ::xox::test::TestDebugging instproc procB {}  {
   

        my procC

    
}

procC

Description:
Code: 
  ::xox::test::TestDebugging instproc procC {}  {
   

        my procD

    
}

procD

Description:
Code: 
  ::xox::test::TestDebugging instproc procD {}  {
   
        set object [ Object new ]
        puts [ $object stackTrace ]
    
}

testDebug

Description:
Code: 
  ::xox::test::TestDebugging instproc testDebug {}  {
   

        set object [ Object new ]
        $object debug debug
    
}

testError

Description:
Code: 
  ::xox::test::TestDebugging instproc testError {}  {
   

        if [ catch {
            error A
        } ] {
            puts [ my stackTrace ]
        }
        #set object [ Object new ]
        #puts [ $object stackTrace ]
    
}

testStackTrace

Description:
Code: 
  ::xox::test::TestDebugging instproc testStackTrace {}  {
   

        set object [ Object new ]
        $object debug debug
        my procA
    
}