diff --git a/tests/bugs/modalg_4/bug23076 b/tests/bugs/modalg_4/bug23076
new file mode 100755
index 0000000000..67b438cf15
--- /dev/null
+++ b/tests/bugs/modalg_4/bug23076
@@ -0,0 +1,21 @@
+puts "========================"
+puts "OCC23076"
+puts "========================"
+puts ""
+########################################################################
+## Empty result done by intersection algorithm for a curve and a surface 
+########################################################################
+
+set BugNumber OCC23076
+
+restore [locate_data_file bug23076_c1.draw] c
+restore [locate_data_file bug23076_s2.draw] s
+intersect i c s
+set info [directory]
+set nb [regexp -all {i_[-0-9.+eE]+} $info]
+if { $nb != 26 } {
+    puts "Faulty ${BugNumber}"
+} else {
+    puts "OK ${BugNumber}"
+}
+
diff --git a/tests/bugs/moddata_2/bug22165 b/tests/bugs/moddata_2/bug22165
new file mode 100755
index 0000000000..404adac2f2
--- /dev/null
+++ b/tests/bugs/moddata_2/bug22165
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22165"
+puts "================"
+puts ""
+#######################################################################################
+# IGES transaltor does not produce any shape
+######################################################################################
+
+set BugNumber OCC22165
+
+catch { pload XDE }
+
+igesbrep [locate_data_file OCC22165-cub_spain.igs] result *
+
+set Log [data c]
+
+set LogLength [llength ${Log}]
+
+if { ${LogLength} < 21 } {
+    puts "Bad format of data-command"
+    puts "Faulty ${BugNumber}"
+} else {
+    regexp -all {1[ \t]*F: Syntax error in IGES file at line ([-0-9.+eE]+) in section ([A-Z]).} $Log full word1 word2
+    if { ${word1} != "206" || ${word2} != "P" } {
+	puts "Faulty ${BugNumber}"
+    }
+}
+
diff --git a/tests/bugs/moddata_2/bug22572 b/tests/bugs/moddata_2/bug22572
new file mode 100755
index 0000000000..d440ed81e6
--- /dev/null
+++ b/tests/bugs/moddata_2/bug22572
@@ -0,0 +1,42 @@
+puts "============"
+puts "OCC22572"
+puts "============"
+puts ""
+###########################################################################
+# Support of progress indicator in RWStl and optimization of reading Ascii.
+###########################################################################
+
+set BugNumber OCC22572
+
+catch { pload XSDRAW }
+vinit
+XProgress -t
+set List1 [meshfromstl result [locate_data_file bearing.stl]]
+puts "----------------------"
+XProgress +t
+set List2 [meshfromstl result [locate_data_file bearing.stl]]
+
+set status 0
+
+if { ${List1} != ${List2}} {
+   set status 0
+} else {
+    set status 1
+}
+
+if { [ regexp {Progress:} $List2 ] } {
+    puts "${BugNumber} OK"
+    set status 0
+} else {
+    puts "${BugNumber} Faulty"
+    set status 1
+}
+if { $status != 0 } {
+    puts  "Faulty $BugNumber"
+} else {
+    puts  "OK $BugNumber"
+}
+
+set 3dviewer 0
+
+
diff --git a/tests/bugs/moddata_2/bug22746_1 b/tests/bugs/moddata_2/bug22746_1
new file mode 100755
index 0000000000..5d4d3febd6
--- /dev/null
+++ b/tests/bugs/moddata_2/bug22746_1
@@ -0,0 +1,44 @@
+puts "============"
+puts "OCC22746"
+puts "============"
+puts ""
+###########################################################################
+# Progress indicator in ShapeHealing
+###########################################################################
+
+set BugNumber OCC22746
+
+catch { pload XSDRAW }
+restore [locate_data_file OCC22746-om.brep] a 
+vinit
+XProgress -t
+set List1 [fixshape result a]
+puts "----------------------"
+XProgress +t
+set List2 [fixshape result a]
+
+set status 0
+
+if { ${List1} != ${List2}} {
+    set status 0
+} else {
+    set status 1
+}
+
+if { [ regexp {Progress:} $List2 ] } {    
+    puts "${BugNumber} OK"
+    set status 0
+} else {
+    puts "${BugNumber} Faulty"
+    set status 1
+}
+
+if { $status != 0 } {
+    puts  "Faulty $BugNumber"
+} else {
+    puts  "OK $BugNumber"
+}
+
+set 3dviewer 0
+set square 16473.3
+
diff --git a/tests/bugs/moddata_2/bug22746_2 b/tests/bugs/moddata_2/bug22746_2
new file mode 100755
index 0000000000..db5c157385
--- /dev/null
+++ b/tests/bugs/moddata_2/bug22746_2
@@ -0,0 +1,44 @@
+puts "============"
+puts "OCC22746"
+puts "============"
+puts ""
+###########################################################################
+# Progress indicator in ShapeHealing
+###########################################################################
+
+set BugNumber OCC22746
+
+catch { pload XSDRAW }
+restore [locate_data_file OCC22746-trampafus-notfixed.brep] a
+vinit
+XProgress -t
+set List1 [fixshape result a]
+puts "----------------------"
+XProgress +t
+set List2 [fixshape result a]
+
+set status 0
+
+if { ${List1} != ${List2}} {
+    set status 0
+} else {
+    set status 1
+}
+
+if { [ regexp {Progress:} $List2 ] } {
+    puts "${BugNumber} OK"
+    set status 0
+} else {
+    puts "${BugNumber} Faulty"
+    set status 1
+}
+
+if { $status != 0 } {
+    puts  "Faulty $BugNumber"
+} else {
+    puts  "OK $BugNumber"
+}
+
+set 3dviewer 0
+set square 1.13819e+07
+
diff --git a/tests/bugs/moddata_2/bug22746_3 b/tests/bugs/moddata_2/bug22746_3
new file mode 100755
index 0000000000..1f82cb4aaa
--- /dev/null
+++ b/tests/bugs/moddata_2/bug22746_3
@@ -0,0 +1,46 @@
+puts "============"
+puts "OCC22746"
+puts "============"
+puts ""
+###########################################################################
+# Progress indicator in ShapeHealing
+###########################################################################
+
+set BugNumber OCC22746
+
+set Min_ListLength 11
+
+catch { pload XSDRAW }
+
+restore [locate_data_file OCC22761-TransmissionTestModel5-notfixed.brep] a 
+vinit
+XProgress -t
+set List1 [fixshape result a]
+puts "----------------------"
+XProgress +t
+set List2 [fixshape result a]
+
+set status 0
+
+if { ${List1} != ${List2}} {
+    set status 0
+} else {
+    set status 1
+}
+
+if { [ regexp {Progress:} $List2 ] } {
+    puts "${BugNumber} OK"
+    set status 0
+} else {
+    puts "${BugNumber} Faulty"
+    set status 1
+}
+
+if { $status != 0 } {
+    puts  "Faulty $BugNumber"
+} else {
+    puts  "OK $BugNumber"
+}
+set 3dviewer 0
+set square 7.46496e+06
+
diff --git a/tests/bugs/moddata_2/bug22758 b/tests/bugs/moddata_2/bug22758
new file mode 100755
index 0000000000..9c52ac0505
--- /dev/null
+++ b/tests/bugs/moddata_2/bug22758
@@ -0,0 +1,58 @@
+puts "========================"
+puts "OCC22758"
+puts "========================"
+puts ""
+#######################################################################
+# Problem in BRepExtrema_DistShapeShape
+#
+# This script tries to reproduce the bug in BRepExtrema_DistanceSS class reported
+# by Rob Bacnrach on OCCT Forum: http://www.opencascade.org/org/forum/thread_23040
+# (when first shape is edge and second is vertex, the points are returned
+# for the solutions are swapped)
+#
+#######################################################################
+
+set BugNumber OCC22758
+
+bsplinecurve c1 2   2 0 3 1 3       0 2 0 1  1 1 0 1  2 2 0 1
+mkedge e c1
+vertex v 0 0 1
+
+set res [distmini r e v]
+
+set status 0
+# result should contain one edge, starting on e and ending on v
+if { [llength $res] != 2 } {
+    puts "Error: result has structure different from expected: $res"
+    set status 1
+}
+
+# get start and end vertices -- these should be solutions on e1 and e2
+set sol [explode [lindex $res 1] v]
+
+# check distances in correct order
+set d1 [dval [lindex [distmini d1 [lindex $sol 0] e] 0]]
+set d2 [dval [lindex [distmini d2 [lindex $sol 1] v] 0]]
+puts "Distances from solutions to relevant objecte: $d1, $d2"
+if { $d1 > 1e-7 || $d2 > 1e-7 } {
+    puts "Error: distances are non-zero!"
+    set status 1
+}
+
+# check distances in swapped order
+set d1 [dval [lindex [distmini d1 [lindex $sol 0] v] 0]]
+set d2 [dval [lindex [distmini d2 [lindex $sol 1] e] 0]]
+puts "Distances from solutions to swapped objecte: $d1, $d2"
+if { $d1 < 0.1 || $d2 < 0.1 } {
+    puts "Error: swapped distances are zero, i.e. solutions are swapped!"
+    set status 1
+}
+
+# Resume
+puts ""
+if { ${status} == 1 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
diff --git a/tests/bugs/moddata_2/bug23051 b/tests/bugs/moddata_2/bug23051
new file mode 100755
index 0000000000..6fad76c568
--- /dev/null
+++ b/tests/bugs/moddata_2/bug23051
@@ -0,0 +1,55 @@
+puts "================"
+puts "OCC23051"
+puts "================"
+puts ""
+######################################################################################
+# Bug in BRepExtrema_DistShapeShape (through BRepExtrema_DistanceSS0
+######################################################################################
+
+set BugNumber OCC23051
+
+# create edges and find minimal distance
+plane p 0 0 0 0 0 1
+mkface f p -10 10 -10 10
+vertex v 0 0 1
+set res [distmini r f v]
+
+# result should contain one edge, starting on f and ending on v
+if { [llength $res] != 2 } {
+    puts "Error: result has structure different from expected: $res"
+}
+
+# get start and end vertices -- these should be solutions on f and v
+set sol [explode [lindex $res 1] v]
+
+set status1 0
+# check distances in correct order
+set d1 [dval [lindex [distmini d1 [lindex $sol 0] f] 0]]
+set d2 [dval [lindex [distmini d2 [lindex $sol 1] v] 0]]
+
+puts "Distances from solutions to relevant objecte: $d1, $d2"
+if { $d1 > 1e-7 || $d2 > 1e-7 } {
+    puts "Error: distances are non-zero!"
+    set status1 1
+}
+
+set status2 0
+# check distances in swapped order
+set d1 [dval [lindex [distmini d1 [lindex $sol 0] v] 0]]
+set d2 [dval [lindex [distmini d2 [lindex $sol 1] f] 0]]
+
+puts "Distances from solutions to swapped objecte: $d1, $d2"
+if { $d1 < 0.1 || $d2 < 0.1 } {
+    puts "Error: swapped distances are zero, i.e. solutions are swapped!"
+    set status2 1
+}
+
+# Resume
+puts ""
+if { ${status1} != 0 && ${status2} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+
diff --git a/tests/bugs/moddata_2/bug378 b/tests/bugs/moddata_2/bug378
deleted file mode 100755
index 4e065f12cf..0000000000
--- a/tests/bugs/moddata_2/bug378
+++ /dev/null
@@ -1,23 +0,0 @@
-puts "========================"
-puts "BUC61058"
-puts " OCC378 "
-puts "========================"
-puts ""
-########################################################################
-##Regression on KAS:dev:ros. Draw hangs after try to load 6381.brep  shape to 3D Viewer. Case : cgg/004/S2
-########################################################################
-
-restore [locate_data_file OCC378.brep] result
-
-tclean result
-vinit
-
-if [catch {vdisplay result } catch_result] {
-    puts "Faulty  OCC378: function VDISPLAY works wrongly"
-} else {
-    puts " OCC378 OK : function VDISPLAY works properly"
-}
-
-set 3dviewer 1
-
-
diff --git a/tests/bugs/vis/bug1629 b/tests/bugs/vis/bug1629
new file mode 100755
index 0000000000..ccc71ce922
--- /dev/null
+++ b/tests/bugs/vis/bug1629
@@ -0,0 +1,101 @@
+puts "TODO OCC11111 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
+puts "================"
+puts "OCC1629"
+puts "OCC2707"
+puts "================"
+puts ""
+#######################################################################################
+# Viewer is always updated on closing local contexts
+#######################################################################################
+# Various improvements of RINA LH3D-3H project
+#######################################################################################
+
+box b1 10 10 10
+box b2 50 50 50 10 10 10
+vinit
+vdisplay b1 b2
+vfit
+
+# box b2
+set x1 321
+set y1 120
+
+set x2 336
+set y2 145
+
+set x3 367
+set y3 144
+
+# box b1
+set x4 44
+set y4 314
+
+set x5 72
+set y5 314
+
+set Selection_R 0.8
+set Selection_G 0.8
+set Selection_B 0.8
+
+#QASetChoiceMode EDGE ON
+vselmode 2 1
+
+set BeforeNbSelected [vnbselected]
+
+vselect 0 0 1
+
+vselect ${x1} ${y1} 1
+vselect ${x2} ${y2} 1 
+vselect ${x3} ${y3} 1
+vselect ${x4} ${y4} 1
+vselect ${x5} ${y5} 1
+
+set AfterNbSelected [vnbselected]
+
+checkcolor ${x1} ${y1} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x2} ${y2} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x3} ${y3} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x4} ${y4} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x5} ${y5} ${Selection_R} ${Selection_G} ${Selection_B}
+
+if {${BeforeNbSelected} == 0} {
+    puts "OCC1629: OK (case 6: before selection)"
+} else {
+    puts "OCC1629: Error (case 6: before selection)"
+}
+
+if {${AfterNbSelected} == 5} {
+    puts "OCC1629: OK (case 7: after selection)"
+} else {
+    puts "OCC1629: Error (case 7: after selection)"
+}
+
+vselmode 0 1
+
+#
+puts "NOTES:"
+puts ""
+puts "Viewer is not updated on closing local context,"
+puts "but we can not check it by automatic test!"
+puts ""
+puts "5 edges must be selected on the viewer,"
+puts "but must be CloseNbSelected = 0 !"
+puts ""
+#
+
+set CloseNbSelected [vnbselected]
+
+checkcolor ${x1} ${y1} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x2} ${y2} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x3} ${y3} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x4} ${y4} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x5} ${y5} ${Selection_R} ${Selection_G} ${Selection_B}
+
+if {${CloseNbSelected} == 0} {
+    puts "OCC1629: OK (case 13: after close local context)"
+} else {
+    puts "OCC1629: Error (case 13: after close local context)"
+}
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug1786 b/tests/bugs/vis/bug1786
new file mode 100755
index 0000000000..cd3d14b201
--- /dev/null
+++ b/tests/bugs/vis/bug1786
@@ -0,0 +1,72 @@
+puts "================"
+puts "OCC1786"
+puts "OCC2707"
+puts "================"
+#######################################################################################
+# AIS_LC::AddOrRemoveSelected(Handle(SelectMgr_EntityOwner), ..) works too slow
+# Various improvements of RINA LH3D-3H project
+#######################################################################################
+
+box b1 10 10 10
+box b2 20 20 20 10 10 10
+vinit
+vdisplay b1 b2
+vfit
+
+# box b1
+set x11  57 ; set y11 322
+set x12 118 ; set y12 322
+
+# box b2
+set x21 290 ; set y21 186
+set x22 352 ; set y22 186
+
+set Selection_R 0.8
+set Selection_G 0.8
+set Selection_B 0.8
+
+set Idle_R 1
+set Idle_G 1
+set Idle_B 0
+
+#QASetChoiceMode EDGE ON
+vselmode 2 1
+set AutoHilight 0
+OCC1786 ${AutoHilight}
+set BeforeNbSelected [vnbselected]
+
+checkcolor ${x12} ${y12} ${Idle_R} ${Idle_G} ${Idle_B}
+checkcolor ${x21} ${y21} ${Idle_R} ${Idle_G} ${Idle_B}
+checkcolor ${x22} ${y22} ${Idle_R} ${Idle_G} ${Idle_B}
+
+if {${BeforeNbSelected} == 0} {
+    puts "OCC1786: OK (case 4: before selection)"
+} else {
+    puts "OCC1786: Error (case 4: before selection)"
+}
+
+# Select edges
+
+vselect 0 0 1
+
+vselect ${x11} ${y11} 1
+vselect ${x12} ${y12} 1
+
+vselect ${x21} ${y21} 1
+vselect ${x22} ${y22} 1
+
+vselect 0 0 1
+set AfterNbSelected [vnbselected]
+
+checkcolor ${x11} ${y11} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x12} ${y12} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x21} ${y21} ${Selection_R} ${Selection_G} ${Selection_B}
+checkcolor ${x22} ${y22} ${Selection_R} ${Selection_G} ${Selection_B}
+
+if {${AfterNbSelected} == 4} {
+  puts "OCC1786: OK (case 9: after selection)"
+} else {
+  puts "OCC1786: Error (case 9: after selection)"
+}
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug21798 b/tests/bugs/vis/bug21798
new file mode 100755
index 0000000000..bdfe780d11
--- /dev/null
+++ b/tests/bugs/vis/bug21798
@@ -0,0 +1,19 @@
+puts "============"
+puts "OCC21798"
+puts "============"
+puts ""
+#######################################################################
+# Attached face hangs during vizualization in OCC Viewer 3D .
+#######################################################################
+
+set BugNumber OCC21798
+
+restore [locate_data_file OCC21798.brep] result
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+vfit
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug22304 b/tests/bugs/vis/bug22304
new file mode 100755
index 0000000000..5ff01cd894
--- /dev/null
+++ b/tests/bugs/vis/bug22304
@@ -0,0 +1,48 @@
+puts "==========="
+puts "OCC22304"
+puts "==========="
+puts ""
+#######################################################################
+# Incorrect triangulation on face of the attached file
+#######################################################################
+
+set BugNumber OCC22304
+
+restore [locate_data_file OCC22304-face_976_badvisu.brep] result
+
+tclean result
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+
+set status 0
+
+if { ${tri} > 0 } {
+   puts "triangles: OK ${BugNumber}"
+} else {
+   puts "triangles: Faulty ${BugNumber}"
+   set status 1
+}
+
+if { ${nod} > 0 } {
+   puts "nodes: OK ${BugNumber}"
+} else {
+   puts "nodes: Faulty ${BugNumber}"
+   set status 1
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug22313 b/tests/bugs/vis/bug22313
new file mode 100755
index 0000000000..e28ef87acc
--- /dev/null
+++ b/tests/bugs/vis/bug22313
@@ -0,0 +1,52 @@
+puts "============"
+puts "OCC22313"
+puts "============"
+puts ""
+#######################################################################
+# Bug in shading mode with attached shape
+#######################################################################
+
+set BugNumber OCC22313
+
+# Data
+
+set scale    2.9701073117025172
+set center_X -1339.0679502864409
+set center_Y -2077.3454643258542
+set proj_X   0.4096425473690033
+set proj_Y   0.77340573072433472
+set proj_Z   0.48377299308776855
+set up_X     -0.83569550514221191
+set up_Y     0.1055084615945816
+set up_Z     0.538962721824646
+set at_X     -2857.961669921875
+set at_Y     -1655.37939453125
+set at_Z     -1782.80908203125
+
+
+set x1 300
+set y1 230
+
+set Artifact_R 0
+set Artifact_G 0
+set Artifact_B 0
+
+# Start
+
+restore [locate_data_file OCC22313-face_shading_problem.brep] result
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+vfit
+
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+		${proj_X} ${proj_Y} ${proj_Z} \
+		${up_X} ${up_Y} ${up_Z} \
+		${at_X} ${at_Y} ${at_Z}
+
+checkcolor ${x1} ${y1} ${Artifact_R} ${Artifact_G} ${Artifact_B}
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug22368 b/tests/bugs/vis/bug22368
new file mode 100755
index 0000000000..8a60bb20fe
--- /dev/null
+++ b/tests/bugs/vis/bug22368
@@ -0,0 +1,34 @@
+puts "========================"
+puts "OCC22368"
+puts "========================"
+puts ""
+#######################################################################
+# AIS_Trihedron's highlight presentation isn't updated on trihedron relocation
+#######################################################################
+
+set BugNumber OCC22368
+
+vinit
+vtrihedron trihedron
+OCC74_set trihedron 3
+
+set x1 200
+set x2 220
+set x3 210
+
+set y 190
+
+vselect ${x3} ${y}
+
+set new_x 100
+set new_y 100
+set new_z 100
+
+vsetlocation trihedron ${new_x} ${new_y} ${new_z}
+
+set status 0
+for {set i ${x1} } {$i <= ${x2} } {incr i} {
+    checkcolor ${i} ${y} 0 0 0
+}
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug22502 b/tests/bugs/vis/bug22502
new file mode 100755
index 0000000000..b896930a6c
--- /dev/null
+++ b/tests/bugs/vis/bug22502
@@ -0,0 +1,88 @@
+puts "TODO OCC11111 ALL: Faulty OCC22502"
+
+puts "============"
+puts "OCC22502"
+puts "============"
+puts ""
+#######################################################################
+# Triangulation cannot be built on valid face
+#######################################################################
+
+set BugNumber OCC22502
+
+pload ALL
+
+restore [locate_data_file OCC22502-bug601_noshading.brep] result
+checkshape result
+tolerance result
+tclean result
+
+set Deflection 0.001
+incmesh result ${Deflection}
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
+
+set good_tri  170
+set good_nod  172
+set good_defl 0.00061201255663038154
+
+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}"
+}
+
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug22507 b/tests/bugs/vis/bug22507
new file mode 100755
index 0000000000..7641428784
--- /dev/null
+++ b/tests/bugs/vis/bug22507
@@ -0,0 +1,29 @@
+puts "============"
+puts "OCC22507"
+puts "============"
+puts ""
+#######################################################################
+# Regression: shading of face is bad (wrong normals)
+#######################################################################
+
+set BugNumber OCC22507
+
+restore [locate_data_file OCC22507-bug589_f77_badshading.brep] result
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+
+set x 200
+set y 220
+
+set RED_R1   0.96470499038696289
+set GREEN_R1 0.68627399206161499
+set BLUE_R1  0.12156800180673599
+
+vmoveto $x $y
+
+checkcolor $x $y ${RED_R1} ${GREEN_R1} ${BLUE_R1}
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug22652 b/tests/bugs/vis/bug22652
new file mode 100755
index 0000000000..7ca99a517d
--- /dev/null
+++ b/tests/bugs/vis/bug22652
@@ -0,0 +1,49 @@
+puts "============"
+puts "OCC22652"
+puts "============"
+puts ""
+#######################################################################
+# No mesh for face (regression)
+#######################################################################
+
+set BugNumber OCC22652
+
+pload ALL
+
+restore [locate_data_file OCC22652-faceNoMesh.brep] result
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
+
+set status 0
+
+if { ${tri} > 0 } {
+   puts "triangles: OK ${BugNumber}"
+} else {
+   puts "triangles: Faulty ${BugNumber}"
+   set status 1
+}
+
+if { ${nod} > 0 } {
+   puts "nodes: OK ${BugNumber}"
+} else {
+   puts "nodes: Faulty ${BugNumber}"
+   set status 1
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug22701 b/tests/bugs/vis/bug22701
new file mode 100755
index 0000000000..e6885499cc
--- /dev/null
+++ b/tests/bugs/vis/bug22701
@@ -0,0 +1,58 @@
+puts "============"
+puts "OCC22701"
+puts "============"
+puts ""
+#######################################################################
+# Regression in 6.5.1 - Wrong visualization
+#######################################################################
+
+set BugNumber OCC22701
+
+# Data
+
+set scale 276.45658048904141
+set center_X 0.41566799352988693
+set center_Y -1.4232027731292387
+set proj_X -0.8895147442817688
+set proj_Y -0.37965071201324463
+set proj_Z 0.25422060489654541
+set up_X -0.055201318114995956
+set up_Y 0.64161688089370728
+set up_Z 0.76503568887710571
+set at_X -0.018965641036629677
+set at_Y 1.2994236946105957
+set at_Z -0.41784921288490295
+
+set x1 105
+set y1 275
+
+set x2 112
+set y2 248
+
+set Hole1_R 1
+set Hole1_G 0.76470500230789185
+set Hole1_B 0.16078400611877441
+set Hole2_R 0.68235200643539429
+set Hole2_G 0.48235198855400085
+set Hole2_B 0.078431002795696259
+
+# Start
+
+restore [locate_data_file PFS04041r1.brep] result
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+vfit
+
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+		${proj_X} ${proj_Y} ${proj_Z} \
+		${up_X} ${up_Y} ${up_Z} \
+		${at_X} ${at_Y} ${at_Z}
+
+checkcolor ${x1} ${y1} ${Hole1_R} ${Hole1_G} ${Hole1_B}
+checkcolor ${x2} ${y2} ${Hole2_R} ${Hole2_G} ${Hole2_B}
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug22735 b/tests/bugs/vis/bug22735
new file mode 100755
index 0000000000..d440be9e0c
--- /dev/null
+++ b/tests/bugs/vis/bug22735
@@ -0,0 +1,78 @@
+puts "========"
+puts "OCC22735"
+puts "========"
+puts ""
+###########################################################
+# Data races in BRepMesh working in parallel mode
+###########################################################
+
+set BugNumber OCC22735
+
+vinit
+vsetdispmode 1
+mpparallel 1
+
+restore [locate_data_file OCC22735-march_cube.brep] result
+
+vdisplay result
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
+
+set good_tri  48
+set good_nod  96
+set good_defl 0
+
+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}"
+}
+
+vfit
+set only_screen 1
diff --git a/tests/bugs/vis/bug23186 b/tests/bugs/vis/bug23186
new file mode 100755
index 0000000000..64f01a1e69
--- /dev/null
+++ b/tests/bugs/vis/bug23186
@@ -0,0 +1,20 @@
+puts "============"
+puts "OCC23186"
+puts "============"
+puts ""
+############################################################################
+# Unable to display Graphic3d_ArrayOfPoints after migrating from OCCT 6.5.2
+############################################################################
+
+set BugNumber OCC23186
+
+vinit
+vdrawparray a points 0 v 0 0 0 v 0 0 10 v 0 10 10 v 0 10 0
+vfit
+
+checkcolor 321 2 1 1 0
+checkcolor 321 271 1 1 0
+checkcolor 87 137 1 1 0
+checkcolor 87 406 1 1 0
+
+set only_screen 1
diff --git a/tests/bugs/vis/bug349_1 b/tests/bugs/vis/bug349_1
new file mode 100755
index 0000000000..c7bd63ee1b
--- /dev/null
+++ b/tests/bugs/vis/bug349_1
@@ -0,0 +1,110 @@
+puts "========"
+puts "OCC349"
+puts "========"
+puts ""
+puts "2. Fitall with hidden line removal algorithm works incorrect in the perspective view"
+
+vinit
+box b 100 900 300
+vdisplay b
+
+OCC280 1 1
+
+vfit
+
+set x1 165
+set y1 109
+
+set x2 380
+set y2 26
+
+set x3 215
+set y3 130
+
+set x4 31
+set y4 199
+
+set x5 188
+set y5 254
+
+set x6 351
+set y6 177
+
+set x7 216
+set y7 287
+
+set x8 22
+set y8 373
+
+set x9 2
+set y9 249
+
+set x10 345
+set y10 92
+
+set x11 393
+set y11 109
+
+set x12 52
+set y12 284
+
+set Black_R 0
+set Black_G 0
+set Black_B 0
+
+set Yellow_R 1
+set Yellow_G 1
+set Yellow_B 0
+
+#
+#              ___________2________________
+#             /|                          /|
+#            / |                         / |
+#           /  |                        /  |
+#          /   |                       /   |
+#         /    |                      /    |
+#        1     |                     3     |
+#       /      |                    /      |
+#      /       |                   /       |
+#     /        |                  /        |
+#    /         |                 /         |
+#   ----------------4------------          |
+#   |          |                |          |
+#   |          |                |          |
+#   |          |                |          |
+#   |         10                |         11
+#   |          |                |          |
+#   |          |                |          |
+#   |          |                |          |
+#   |          |                |          |
+#   |          |                |          |
+#   9          |               12          |
+#   |          |___________6____|__________|
+#   |         /                 |         /
+#   |        /                  |        /
+#   |       /                   |       /
+#   |      /                    |      /
+#   |     5                     |     /
+#   |    /                      |    7
+#   |   /                       |   /
+#   |  /                        |  /
+#   | /                         | /
+#   |/                          |/
+#   |--------------8------------|
+#
+#
+
+checkcolor ${x1}  ${y1}  ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x2}  ${y2}  ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x3}  ${y3}  ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x4}  ${y4}  ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x7}  ${y7}  ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x8}  ${y8}  ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x9}  ${y9}  ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x11} ${y11} ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x12} ${y12} ${Yellow_R} ${Yellow_G} ${Yellow_B}
+checkcolor ${x5}  ${y5}  ${Black_R} ${Black_G} ${Black_B}
+checkcolor ${x6}  ${y6}  ${Black_R} ${Black_G} ${Black_B}
+checkcolor ${x10} ${y10} ${Black_R} ${Black_G} ${Black_B}
+
+set only_screen 0