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

::xox::test
Class TestGenerateVariable

Heritage:
::xotcl::Object
  |
  +--::xox::Node
        |
        +--::xounit::Test
              |
              +--::xounit::Assert
                    |
                    +--::xounit::TestCase
Tested Class:
::xox::GenerateVariable
Class TestGenerateVariable
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
testCount {}  
testFree {}  
testGenerateVariable {}  
   
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

testCount

Description:
Code: 
  ::xox::test::TestGenerateVariable instproc testCount {}  {
   

        set count [ ::xox::GenerateVariable getVariableCount ]

        my assertInteger $count

        my assertEquals [ ::xox::GenerateVariable getVariableCount ]  [ expr {$count + 1}]
    
}

testFree

Description:
Code: 
  ::xox::test::TestGenerateVariable instproc testFree {}  {
   


        my assertFalse [ info exists a ] 0.1

        set a 5

        my assertTrue [ info exists a ] 0.2

        my assertEquals $a 5

        unset a 
        
        my assertFalse [ info exists a ] 0.3

        ::xox::GenerateVariable variableCount 100

        set var [ ::xox::GenerateVariable generateVariable ]

        my assertEquals ::xox::genvars::temp101 $var

        my assertFalse [ info exists $var ] 0.4
        my assertFalse [ ::xox::genvars exists $var ] 0.5

        set $var 5

        my assertTrue [ info exists $var ] 1

        #Hmm why does this break?
        #Bug maybe in xotcl
        #my assertTrue [ ::xox::genvars exists $var ] 1.5

        my assertEquals [ set $var ] 5

        my assertEquals [ ::xox::GenerateVariable free $var ] 5

        my assertFalse [ ::xox::genvars exists $var ] 2
        my assertFalse [ info exists $var ] 2
    
}

testGenerateVariable

Description:
Code: 
  ::xox::test::TestGenerateVariable instproc testGenerateVariable {}  {
   

        ::xox::GenerateVariable variableCount 100

        my assertEquals [ ::xox::GenerateVariable variableCount ] 100
        my assertEquals [ ::xox::GenerateVariable getVariableCount ] 101

        my assertEquals [ ::xox::GenerateVariable generateVariable abc ]  "::xox::genvars::abc102"
    
}