OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-14 13:30:48 +03:00
Code Activity

0027094: Create command checkdump for parsing dumps (geometry test group)

Browse Source 
checkdump - procedure to parse output dump and compare it with reference values;
checklength - procedure to compute length of input shape.
Added procedures and modified test group geometry.
This commit is contained in:
apn
2016-01-22 15:59:10 +03:00
committed by bugmaster
parent 3ad6d001d1
commit 6cc6fc047c
218 changed files with 295 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/DrawResources/CheckCommands.tcl
View File

@@ -710,7 +710,7 @@ proc checklength {shape args} {
if { ${compared_notequal_shape} != -1 } {
upvar ${compared_notequal_shape} ${compared_notequal_shape}
regexp regexp "The +length+ ${compared_notequal_shape} +is +(\[-0-9.+eE\]+)" [${CommandName} ${compared_notequal_shape} ${epsilon}] full compared_m
regexp "The +length+ ${compared_notequal_shape} +is +(\[-0-9.+eE\]+)" [${CommandName} ${compared_notequal_shape} ${epsilon}] full compared_m
if { $compared_m == $m } {
puts "Error: length of shape ${compared_notequal_shape} is equal shape to ${shape}"
}