set BugNumber OCC23192
set aFile $imagedir/${test_image}.stl
-catch {exec rm -f ${aFile}}
+file delete ${aFile}
set anASCIImode 1
set InParallel 0
# Check file size
set size_status 0
- if [string compare $tcl_platform(platform) "windows"] {
- set filesize [lindex [exec ls -l ${aFile}] 5]
- } else {
- set filesize [lindex [exec ls -l ${aFile}] 4]
- }
+ set filesize [ file size ${aFile} ]
if { ${filesize} != 0 } {
set size_status 0
} else {
set BugNumber OCC23192
set aFile $imagedir/${test_image}.stl
-catch {exec rm -f ${aFile}}
+file delete ${aFile}
set anASCIImode 0
set InParallel 0
# Check file size
set size_status 0
- if [string compare $tcl_platform(platform) "windows"] {
- set filesize [lindex [exec ls -l ${aFile}] 5]
- } else {
- set filesize [lindex [exec ls -l ${aFile}] 4]
- }
+ set filesize [ file size ${aFile} ]
if { ${filesize} != 0 } {
set size_status 0
} else {
set square 600
set 3dviewer 0
+
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "==========="
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "================"
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "================"
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "=================================="
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "=================================="
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "=================================="
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "=================================="
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "=================================="
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
puts "=================================="
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: \\*\\* Exception \\*\\*.*"
+ puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
}
} else {
puts "TODO OCC23068 $os: Faulty shapes in variables faulty_1 to faulty_1"
puts "TODO OCC23068 $os: Error : The offset is not valid. "
- puts "TODO OCC23068 $os: Error : Thr area of face result_5 of the resulting shape is negative."
+ puts "TODO OCC23068 $os: Error : The area of face result_5 of the resulting shape is negative."
}
ellipse w1 0 0 0 15 10