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:
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