0028097: Test system does not recognize 'fail...' messages as errors
[occt.git] / tests / bugs / mesh / bug24923
1 puts "========"
2 puts "OCC24923"
3 puts "========"
4 puts ""
5 ############################################
6 # BRepMesh_CircleTool produces bad circles
7 ############################################
8
9 pload QAcommands
10
11 set bug_info [OCC24923]
12 set num_failed [string range [lindex $bug_info 12] 0 [expr {[string first "%" [lindex $bug_info 12]] - 1}]]
13 set max_failed [string range [lindex $bug_info 14] 0 [expr {[string first "%" [lindex $bug_info 14]] - 1}]]
14 if {$num_failed > $max_failed} {
15   puts "ERROR: OCC24923 is reproduced. Number of incorrect tests is too large ($num_failed > $max_failed)."
16 }