+puts "TODO ?OCC12345 ALL: OCC309: ERROR 2"
+
puts "================"
puts "OCC309"
puts "================"
set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
} else {
- set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ]
- set res2 [ string range $result1 1 [expr [string length $result2] -8 ] ]
+ set info [pwd]
+ set CurrentDirectory [string range $info 2 end]
+ set info2 [file dirname ${CurrentDirectory}]
+ set UpTrek [file dirname ${CurrentDirectory}]
+ set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
+ set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
}
if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
puts "OCC309: OK 1"
puts "TODO ?OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
-puts "TODO ?OCC12345 ALL: TEST ICOMPLETE"
+puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
puts "========"
puts "OCC770"
+puts "TODO ?OCC10603 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC10603 ALL: Error : Result shape is WRONG because it must contains"
puts "============"
puts "OCC10603"
puts "============"
### set os $env(os_type)
###}
###if { [string compare $os "windows"] == 0 } {
-### puts "TODO OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
-### puts "TODO OCC12345 ALL: Error : The style of edge is NOT dash"
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+puts "TODO ?OCC12345 ALL: Error : The style of edge is NOT dash"
### by apn: Image is not correct on WNT
###}
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
- puts "TODO OCC12345 ALL: An exception was caught"
- puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
- puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-}
+puts "TODO ?OCC12345 ALL: An exception was caught"
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
puts "==========="
puts "BUC60915"
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
puts "========================"
puts "OCC137"
puts "========================"
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
puts "========================"
puts "OCC137"
puts "========================"
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
puts "========================"
puts "OCC137"
puts "========================"
+puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
puts "========================"
puts "OCC137"
puts "========================"
puts "TODO ?OCC12345 ALL: An exception was caught"
puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
+puts "TODO ?OCC12345 ALL: Colors are not equal in default coordinate and in the near coordinates too"
puts "================"
puts "OCC74"