1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

22 lines
877 B
Plaintext
Executable File

puts "========"
puts "BUC60868"
puts "========"
puts ""
pload QAcommands
restore [locate_data_file buc60868.brep] sh
checkshape sh
BUC60868 result sh
checkshape result
set len [llength [explode result w]]
if { $len != 3 } {
puts "Error : the number of curves is $len, but it should be 3."
}
checkview -display result -2d -path ${imagedir}/${test_image}.png