Adding new testing cases for chl grid

[occt.git] / tests / bugs / vis / bug155_1

diff --git a/tests/bugs/vis/bug155_1 b/tests/bugs/vis/bug155_1
index 9172176..731a0cb 100755 (executable)
--- a/tests/bugs/vis/bug155_1
+++ b/tests/bugs/vis/bug155_1
@@ -15,14 +15,15 @@ v2ddisplay v_v
 v2ddisplay v_v1
 v2dfit
 
-set color [QAAISGetPixelColor2d 405 7]
-regexp {RED +: +([-0-9.+eE]+)} $color full rd
-regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
-regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
+set x_coord 405
+set y_coord 7
+set color2d 1
 
-if { ${rd} != 1 || ${gr} != 1 || ${bl} != 0 } {
-    puts "Error : colors are not equal"
+checkcolor $x_coord $y_coord 1 1 0
+
+if { $stat != 1 } {
     puts "Error : Vertexes 2D were NOT LOADED properly"
 }
 
 set only_screen2d 1
+