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
56 lines
2.1 KiB
Plaintext
Executable File
56 lines
2.1 KiB
Plaintext
Executable File
puts "===================="
|
|
puts "BUC60625"
|
|
puts "===================="
|
|
puts "=================================="
|
|
puts "It takes visual check for this BUG"
|
|
puts "=================================="
|
|
|
|
cpulimit 1500
|
|
|
|
set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots]
|
|
|
|
tpcompound result
|
|
checkshape result r
|
|
|
|
set start [lindex $l 60]
|
|
set bug_list_numb [ llength $l ]
|
|
set bug_list_elem 0
|
|
|
|
# Search word sequence: Nb entities selected : XXXX
|
|
while { $bug_list_elem < $bug_list_numb } {
|
|
if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
|
|
set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
|
|
set bug_list_elem [ expr { $bug_list_numb - 1 } ]
|
|
}
|
|
set bug_list_elem [ expr { $bug_list_elem + 1 } ]
|
|
}
|
|
|
|
# Search word sequence: Nb Shapes successfully produced : XXXX
|
|
set end [lindex $l 0]
|
|
set bug_list_elem 0
|
|
while { $bug_list_elem < $bug_list_numb } {
|
|
set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ]
|
|
set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ]
|
|
set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ]
|
|
set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ]
|
|
set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
|
|
if { [ string compare "Nb" ${word_0} ] == 0 &&
|
|
[ string compare "Shapes" ${word_1} ] == 0 &&
|
|
[ string compare "successfully" ${word_2} ] == 0 &&
|
|
[ string compare "produced" ${word_3} ] == 0 &&
|
|
[ string compare ":" ${word_4} ] == 0 } {
|
|
set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ]
|
|
set bug_list_elem [ expr { $bug_list_numb - 1 } ]
|
|
}
|
|
set bug_list_elem [ expr { $bug_list_elem + 1 } ]
|
|
}
|
|
|
|
if { $start != $end } {
|
|
puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)"
|
|
} else {
|
|
puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|