| 
||||||
| 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 | 
 testCloseFileChannels {}
 
 | |
| 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 | 
  ::xounit::test::TestTestSuiteContinuous instproc testCloseFileChannels {}  {
   
        set suite [ ::xounit::TestSuiteContinuous new ]
        $suite closeFileChannels
        my assertEquals [ file channels ] "stdin stdout stderr"
        open "/tmp/xounit[ clock seconds ]" w
        my assertNotEquals [ file channels ] "stdin stdout stderr"
        $suite closeFileChannels
        my assertEquals [ file channels ] "stdin stdout stderr"
    
}