mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
27 lines
684 B
Plaintext
Executable File
27 lines
684 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC6794"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# AsciiString corrputs memory in case of MMGT_OPT equal to 0
|
|
######################################################
|
|
|
|
pload QAcommands
|
|
set BugNumber OCC6794
|
|
set nb 40009
|
|
set env(MMGT_OPT) 0
|
|
set OPT $env(MMGT_OPT)
|
|
|
|
if { ${OPT} != 0 } {
|
|
puts "env(MMGT_OPT) = $env(MMGT_OPT)"
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
set result [OCC6794 ${nb}]
|
|
regexp {Use nb += +([-0-9.+eE]+)} $result full use_nb
|
|
regexp {aLength += +([-0-9.+eE]+)} $result full length
|
|
|
|
if { ${use_nb} != ${nb} || ${length} != ${nb} } {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
}
|