--- /dev/null
+puts "============"
+puts "OCC4894"
+puts "============"
+puts ""
+#######################################################################
+# Problems with sharding in vdisplay
+#######################################################################
+
+restore [locate_data_file bug4894_face_cyl] result
+
+vinit
+vdisplay result
+tclean result
+trinfo result
+vsetdispmode 1
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tr
+regexp { +([-0-9.+eE]+) +nodes} $info full nd
+
+if { $tr <= 0 || $nd <= 0 } {
+ puts "Error : Problems with shading"
+}
+
+set 3dviewer 2