|
||||||
| 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 |
testClassArrayVariableValues {}
| |
testClassVariableValues {}
| |
testEmptyArrayValue {}
| |
testEmptyValue {}
| |
testExternalRoot {}
| |
testGenerateXml {}
| |
testMixedList {}
| |
testMixins {}
| |
testNode {}
| |
testNodeArrayObject {}
| |
testNonNode {}
| |
testSubNodes {}
| |
testWriteRead {}
| |
| 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 |
::xox::test::TestXmlNodeWriter instproc testClassArrayVariableValues {} {
set root [ ::xox::Node new ]
set factory [ ::xox::XmlNodeReader new ]
set writer [ ::xox::XmlNodeWriter new ]
$root set a(1) ::xox::Node
my assertEquals [ $root set a(1) ] ::xox::Node
set xml [ $writer generateXml $root ]
set new [ ::xox::Node new ]
$factory buildNodes $new $xml
my assertEquals [ $root set a(1) ] ::xox::Node
my assertEquals [ $new set a(1) ] ::xox::Node
}
::xox::test::TestXmlNodeWriter instproc testClassVariableValues {} {
set xml { <testbed>
<nodeName>ESTBBA</nodeName>
<::xox::Node>
<name>::xox::Node</name>
</::xox::Node>
</testbed>}
set factory [ ::xox::XmlNodeReader new ]
set root [ ::xox::Node new ]
$factory buildNodes $root $xml
my assertEquals [ $root / Node set name ] ::xox::Node
set writer [ ::xox::XmlNodeWriter new ]
set xml [ $writer generateXml $root ]
#my debug $xml
set new [ ::xox::Node new ]
$factory buildNodes $new $xml
$new / Node
my assertEquals [ $new / Node set name ] ::xox::Node
return
}
::xox::test::TestXmlNodeWriter instproc testEmptyArrayValue {} {
set root [ ::xox::Node new ]
set factory [ ::xox::XmlNodeReader new ]
set writer [ ::xox::XmlNodeWriter new ]
$root set empty(1) ""
my assertEquals [ $root set empty(1) ] ""
set xml [ $writer generateXml $root ]
#my debug $xml
set new [ ::xox::Node new ]
$factory buildNodes $new $xml
my assertEquals [ $root set empty(1) ] ""
my assertEquals [ $new set empty(1) ] ""
}
::xox::test::TestXmlNodeWriter instproc testEmptyValue {} {
set root [ ::xox::Node new ]
set factory [ ::xox::XmlNodeReader new ]
set writer [ ::xox::XmlNodeWriter new ]
$root set empty ""
my assertEquals [ $root set empty ] ""
set xml [ $writer generateXml $root ]
#my debug $xml
set new [ ::xox::Node new ]
$factory buildNodes $new $xml
my assertEquals [ $root set empty ] ""
my assertEquals [ $new set empty ] ""
}
::xox::test::TestXmlNodeWriter instproc testExternalRoot {} {
set externalRoot [ ::xox::Node new -nodeName External ]
set writer [ ::xox::XmlNodeWriter new -externalRootNodes $externalRoot ]
set node [ ::xox::Node new -nodeName Normal ]
$node set externalRoot $externalRoot
my assertEquals [ $node set externalRoot ] $externalRoot 1
set xml [ $writer generateXml $node ]
set newRoot [ ::xox::Node new ]
set reader [ ::xox::XmlNodeReader new -externalRootNodes $externalRoot ]
$reader buildNodes $newRoot $xml
my assertEquals [ $node getNodeName ] Normal 1.9
my assertEquals [ $node set externalRoot ] $externalRoot 2
my assertEquals [ $newRoot getNodeName ] Normal 2.1
set newExternalRoot [ $newRoot set externalRoot ]
my assertNotEquals $newExternalRoot $newRoot 3
my assertEquals [ $newExternalRoot getNodeName ] External
my assertEquals $newExternalRoot $externalRoot 4
}
::xox::test::TestXmlNodeWriter instproc testGenerateXml {} {
set writer [ ::xox::XmlNodeWriter new ]
set node [ ::xox::Node new ]
set xml [ $writer generateXml $node ]
#my debug $xml
return
}
::xox::test::TestXmlNodeWriter instproc testMixedList {} {
set xml { <testbed>
<nodeName>ESTBBA</nodeName>
<EnablePassword>lab</EnablePassword>
<TacacsPassword>lab</TacacsPassword>
<TacacsUsername>lab</TacacsUsername>
<topomapFile>estbba-topo.xml</topomapFile>
<webPath>http://estmpls1.cisco.com/estbba/</webPath>
<location>/var/www/html/estbba/</location>
<title>EST BBA Network Verification</title>
<url>http://www.cisco.com</url>
<includes>::xox::Interface testPingAllPeerInterfaces</includes>
<excludes>::xox::Interface testDescriptionExists</excludes>
<excludes>::xox::Interface testLayer3Connected</excludes>
</testbed>}
set factory [ ::xox::XmlNodeReader new ]
set root [ ::xox::Node new ]
$factory buildNodes $root $xml
set writer [ ::xox::XmlNodeWriter new ]
set xml [ $writer generateXml $root ]
#my debug $xml
return
}
::xox::test::TestXmlNodeWriter instproc testMixins {} {
set root [ ::xox::Node new ]
set ed [ $root addNode [ ::xox::Node new -nodeName Ed ] ]
$ed mixin add ::xox::Logging
my assert [ $ed hasclass ::xox::Logging ]
set writer [ ::xox::XmlNodeWriter new ]
set xml [ $writer generateXml $root ]
$root destroy
set root [ ::xox::Node new ]
set reader [ ::xox::XmlNodeReader new ]
$reader buildNodes $root $xml
$root / Ed
my assert [ $root / Ed hasclass ::xox::Logging ]
}
::xox::test::TestXmlNodeWriter instproc testNode {} {
set writer [ ::xox::XmlNodeWriter new ]
set node [ ::xox::Node new ]
$node set a(1) 1
set xml [ $writer generateXml $node ]
#my debug $xml
return
}
::xox::test::TestXmlNodeWriter instproc testNodeArrayObject {} {
set writer [ ::xox::XmlNodeWriter new ]
set node [ ::xox::Node new ]
$node set a($node) 1
set xml [ $writer generateXml $node ]
#my debug $xml
return
}
::xox::test::TestXmlNodeWriter instproc testNonNode {} {
set writer [ ::xox::XmlNodeWriter new ]
set node [ ::xox::Node new ]
Object create ${node}::a
set xml [ $writer generateXml $node ]
my debug $xml
return
}
::xox::test::TestXmlNodeWriter instproc testSubNodes {} {
set writer [ ::xox::XmlNodeWriter new ]
set node [ ::xox::Node new ]
my assertEquals [ $node getNodeName ] Node
set sub1 [ $node addAutoNameNode [ ::xox::Node new ] ]
set sub2 [ $node addAutoNameNode [ ::xox::Node new ] ]
set sub3 [ $node addAutoNameNode [ ::xox::Node new ] ]
my assertEquals [ $sub1 getNodeName ] Node
my assertEquals [ $sub2 getNodeName ] Node_0
my assertEquals [ $sub3 getNodeName ] Node_1
my assertError { $sub1 name }
my assertError { $sub2 name }
my assertError { $sub3 name }
set xml [ $writer generateXml $node ]
#my debug $xml
return
}
::xox::test::TestXmlNodeWriter instproc testWriteRead {} {
set root [ ::xox::Node new ]
set ed [ $root addNode [ ::xox::Node new -nodeName Ed ] ]
$ed addNode [ ::xox::Node new -nodeName E0 ]
set writer [ ::xox::XmlNodeWriter new ]
set xml [ $writer generateXml $root ]
#my debug $xml
$root destroy
set root [ ::xox::Node new ]
set reader [ ::xox::XmlNodeReader new ]
$reader buildNodes $root $xml
$root / Ed
$root / Ed / E0
}