From 080fcebfcacaacafcf28ec527fa7acfb75d03d47 Mon Sep 17 00:00:00 2001
From: nbv <nbv@opencascade.com>
Date: Wed, 7 Nov 2018 16:56:57 +0300
Subject: [PATCH] 0026928: Edges are meshed too coarsly

Adding test case for the problem.
The issue has been fixed by a patch for #26106.
---
 tests/bugs/mesh/bug26928 | 78 +++++-----------------------------------
 1 file changed, 8 insertions(+), 70 deletions(-)

diff --git a/tests/bugs/mesh/bug26928 b/tests/bugs/mesh/bug26928
index efe0aeea03..192343c1ab 100644
--- a/tests/bugs/mesh/bug26928
+++ b/tests/bugs/mesh/bug26928
@@ -1,96 +1,34 @@
-puts "TODO CR26928 All: Error: Edges are meshed too coarsly"
-puts "REQUIRED CR26928 All: Error : Colors are not equal in default coordinate and in the near coordinates too"
-
 puts "========="
-puts "CR26928"
+puts "0026928: Edges are meshed too coarsly"
 puts "========="
 puts ""
-###############################
-# Edges are meshed too coarsly
-###############################
 
 restore [locate_data_file bug27356_comp.brep] c
-
-set x 168
-set y 298
+tclean c
 
 vinit
 vdisplay c
-vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
+vviewparams -scale 44.578446 -proj 8.964134e-4 0.055037 -0.998484 -up -0.951475 0.307306 0.016085 -at 44.487383 37.608231 -3.232527 -eye 44.517406 37.608231 -3.232527
 vsetdispmode c 1
 checkview -screenshot -3d -path ${imagedir}/${test_image}-vdisplay.png
-if { [checkcolor $x $y 1 0 0] == 1 } {
-  puts "" 
-  puts "vdisplay.png" 
-  puts "Error: Edges are meshed too coarsly" 
-  puts "" 
-} else {
-  puts "" 
-  puts "vdisplay.png" 
-  puts "OK: Edges are meshed good" 
-  puts "" 
-}
 
+tclean c
+vdefaults -autoTriang 0
 incmesh c 0.715 -a 11.459
 vdisplay -redisplay c
-vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
 checkview -screenshot -3d -path ${imagedir}/${test_image}-0715.png
-if { [checkcolor $x $y 1 0 0] == 1 } {
-  puts "" 
-  puts "0715.png" 
-  puts "Error: Edges are meshed too coarsly" 
-  puts "" 
-} else {
-  puts "" 
-  puts "0715.png" 
-  puts "OK: Edges are meshed good" 
-  puts "" 
-}
 
+tclean c
 incmesh c 0.5 -a 11.459
 vdisplay -redisplay c
-vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
 checkview -screenshot -3d -path ${imagedir}/${test_image}-05.png
-if { [checkcolor $x $y 1 0 0] == 1 } {
-  puts "" 
-  puts "05.png" 
-  puts "Error: Edges are meshed too coarsly" 
-  puts "" 
-} else {
-  puts "" 
-  puts "05.png" 
-  puts "OK: Edges are meshed good" 
-  puts "" 
-}
 
+tclean c
 incmesh c 0.3 -a 11.459
 vdisplay -redisplay c
-vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
 checkview -screenshot -3d -path ${imagedir}/${test_image}-03.png
-if { [checkcolor $x $y 1 0 0] == 1 } {
-  puts "" 
-  puts "03.png" 
-  puts "Error: Edges are meshed too coarsly" 
-  puts "" 
-} else {
-  puts "" 
-  puts "03.png" 
-  puts "OK: Edges are meshed good" 
-  puts "" 
-}
 
+tclean c
 incmesh c 0.1 -a 11.459
 vdisplay -redisplay c
-vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
 checkview -screenshot -3d -path ${imagedir}/${test_image}-01.png
-if { [checkcolor $x $y 1 0 0] == 1 } {
-  puts "" 
-  puts "01.png" 
-  puts "Error: Edges are meshed too coarsly" 
-  puts "" 
-} else {
-  puts "" 
-  puts "01.png" 
-  puts "OK: Edges are meshed good" 
-  puts "" 
-}