mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-06 18:26:22 +03:00
0024593: Missing surfaces from STL output
Added test cases Small corrections of test cases
This commit is contained in:
parent
3bfd1ba8f2
commit
183acc2f10
32
tests/bugs/mesh/bug24593_1
Normal file
32
tests/bugs/mesh/bug24593_1
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
puts "========"
|
||||||
|
puts "OCC24593"
|
||||||
|
puts "========"
|
||||||
|
puts ""
|
||||||
|
#####################################
|
||||||
|
# Missing surfaces from STL output
|
||||||
|
#####################################
|
||||||
|
|
||||||
|
pload XDE
|
||||||
|
|
||||||
|
set refnbfaces 69
|
||||||
|
|
||||||
|
stepread [locate_data_file bug24593_285330.stp] a *
|
||||||
|
renamevar a_1 result
|
||||||
|
|
||||||
|
#1
|
||||||
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|
||||||
|
|
||||||
|
#2
|
||||||
|
set log1 [explode result f]
|
||||||
|
set nbfaces [llength $log1]
|
||||||
|
|
||||||
|
#3
|
||||||
|
set log2 [tricheck result]
|
||||||
|
|
||||||
|
if { $nbfaces != $refnbfaces } {
|
||||||
|
puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
|
||||||
|
}
|
||||||
|
|
||||||
|
if { [llength $log2] != 0 } {
|
||||||
|
puts "Error : Some faces has failed to mesh"
|
||||||
|
}
|
32
tests/bugs/mesh/bug24593_2
Normal file
32
tests/bugs/mesh/bug24593_2
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
puts "========"
|
||||||
|
puts "OCC24593"
|
||||||
|
puts "========"
|
||||||
|
puts ""
|
||||||
|
#####################################
|
||||||
|
# Missing surfaces from STL output
|
||||||
|
#####################################
|
||||||
|
|
||||||
|
pload XDE
|
||||||
|
|
||||||
|
set refnbfaces 23
|
||||||
|
|
||||||
|
stepread [locate_data_file bug24593_281946.stp] a *
|
||||||
|
renamevar a_1 result
|
||||||
|
|
||||||
|
#1
|
||||||
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|
||||||
|
|
||||||
|
#2
|
||||||
|
set log1 [explode result f]
|
||||||
|
set nbfaces [llength $log1]
|
||||||
|
|
||||||
|
#3
|
||||||
|
set log2 [tricheck result]
|
||||||
|
|
||||||
|
if { $nbfaces != $refnbfaces } {
|
||||||
|
puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
|
||||||
|
}
|
||||||
|
|
||||||
|
if { [llength $log2] != 0 } {
|
||||||
|
puts "Error : Some faces has failed to mesh"
|
||||||
|
}
|
Loading…
x
Reference in New Issue
Block a user