Merge between correction test case in issue 27119 and 26939
authorbugmaster <bugmaster@opencascade.com>
Fri, 12 Feb 2016 08:33:08 +0000 (11:33 +0300)
committerbugmaster <bugmaster@opencascade.com>
Fri, 12 Feb 2016 08:33:08 +0000 (11:33 +0300)
tests/bugs/moddata_1/bug22759

index dfaf8ab..f8a34fb 100755 (executable)
@@ -21,72 +21,7 @@ tclean result
 set Deflection 0.001
 incmesh result ${Deflection}
 
-checktrinfo result -tri 615414 -nod 311438 -defl 0.0032657364637550075 -tol_rel_defl 0.001 -tol_rel_tri 0.001 -tol_rel_nod 0.001
-
-regexp {deflection +([-0-9.+eE]+)} $tri_info full defl
-
-set env(os_type) $tcl_platform(platform)
-if { [string compare $env(os_type) "windows"] != 0 } {
-   puts "OS = Linux"
-   set good_tri  616054
-   set good_nod  311758
-   set good_defl 0.0032657364637550023
-} else {
-   puts "OS = Windows NT"
-   set good_tri  616054
-   set good_nod  311758
-   set good_defl 0.0032657364637550023
-}
-
-proc GetPercent {Value GoodValue} {
-    set Percent 0.
-    if {${GoodValue} != 0.} {
-        set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
-    } elseif {${Value} != 0.} {
-       set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
-    } else {
-       set Percent 0.
-    }
-    return ${Percent}
-}
-
-set percent_max 0.1
-set status 0
-
-set triangle_percent [GetPercent ${tri} ${good_tri}]
-puts "triangle_percent = ${triangle_percent}"
-if { ${triangle_percent} > ${percent_max} } {
-   puts "triangle: Faulty ${BugNumber}"
-   set status 1
-} else {
-   puts "triangle: OK ${BugNumber}"
-}
-
-set node_percent [GetPercent ${nod} ${good_nod}]
-puts "node_percent = ${node_percent}"
-if { ${node_percent} > ${percent_max} } {
-   puts "node: Faulty ${BugNumber}"
-   set status 1
-} else {
-   puts "node: OK ${BugNumber}"
-}
-
-set deflection_percent [GetPercent ${defl} ${good_defl}]
-puts "deflection_percent = ${deflection_percent}"
-if { ${deflection_percent} > ${percent_max} } {
-   puts "deflection: Faulty ${BugNumber}"
-   set status 1
-} else {
-   puts "deflection: OK ${BugNumber}"
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
-   puts "Faulty ${BugNumber}"
-} else {
-   puts "OK ${BugNumber}"
-}
+checktrinfo result -tri 616054 -nod 311758 -defl 0.0032657364637550023 -tol_rel_defl 0.001 -tol_rel_tri 0.001 -tol_rel_nod 0.001
 
 vinit
 vdisplay result