1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00

Added test case bugs/modalg_5/bug24397

This commit is contained in:
apn 2013-12-12 19:09:41 +04:00
parent 7527d6d020
commit e22217108b

View File

@ -0,0 +1,26 @@
puts "============"
puts "OCC24397"
puts "============"
puts ""
#############################################
# BRepBuilderAPI_Copy works not correct
#############################################
restore [locate_data_file case_1_wire3.brep] result
regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full lp1
tcopy result result1
regexp {Mass +: +([-0-9.+eE]+)} [lprops result1] full lp2
if { $lp1 != $lp2 } {
puts "Error: lengths of original and copy shapes are not equal"
} else {
puts "OK: lengths of original and copy shapes are equal"
}
set length 942.478
set 2dviewer 0