mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
Added test case bugs/modalg_5/bug24397
This commit is contained in:
parent
7527d6d020
commit
e22217108b
26
tests/bugs/modalg_5/bug24397
Normal file
26
tests/bugs/modalg_5/bug24397
Normal 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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
x
Reference in New Issue
Block a user