::xounit::test
Class TestTestSuiteContinuous

Heritage:
::xotcl::Object
  |
  +--::xox::Node
        |
        +--::xounit::Test
              |
              +--::xounit::Assert
                    |
                    +--::xounit::TestCase
Tested Class:
::xounit::TestSuiteContinuous

Class TestTestSuiteContinuous
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
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

testCloseFileChannels

Description:
 
Code:
  ::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"
    
}