# Test cases bugs/step/bug3883_1, bug3883_2, bug3883_3, bug3883_4, bug3883_5 creation
--- /dev/null
+puts "======="
+puts "OCC3883"
+puts "======="
+puts ""
+#######################################################
+# Problems of reading colors and layers in XDEDRAWEXE
+#######################################################
+
+set theColors ""
+set theLayers ""
+
+ReadStep D [locate_data_file bug3883_xr2-ct-214_bolt.stp]
+
+set theColors [XGetAllColors D]
+set theLayers [XGetAllLayers D]
+
+if {$theColors == ""} {
+ puts "ERROR: OCC3883 is reproduced. Colors have not been read."
+}
+if {$theLayers == ""} {
+ puts "ERROR: OCC3883 is reproduced. Layers have not been read."
+}
--- /dev/null
+puts "======="
+puts "OCC3883"
+puts "======="
+puts ""
+#######################################################
+# Problems of reading colors and layers in XDEDRAWEXE
+#######################################################
+
+set theColors ""
+set theLayers ""
+
+ReadStep D [locate_data_file bug3883_xr2-ct-214_l-bracket.stp]
+
+set theColors [XGetAllColors D]
+set theLayers [XGetAllLayers D]
+
+if {$theColors == ""} {
+ puts "ERROR: OCC3883 is reproduced. Colors have not been read."
+}
+if {$theLayers == ""} {
+ puts "ERROR: OCC3883 is reproduced. Layers have not been read."
+}
--- /dev/null
+puts "======="
+puts "OCC3883"
+puts "======="
+puts ""
+#######################################################
+# Problems of reading colors and layers in XDEDRAWEXE
+#######################################################
+
+set theColors ""
+set theLayers ""
+
+ReadStep D [locate_data_file bug3883_xr2-ct-214_nut.stp]
+
+set theColors [XGetAllColors D]
+set theLayers [XGetAllLayers D]
+
+if {$theColors == ""} {
+ puts "ERROR: OCC3883 is reproduced. Colors have not been read."
+}
+if {$theLayers == ""} {
+ puts "ERROR: OCC3883 is reproduced. Layers have not been read."
+}
--- /dev/null
+puts "======="
+puts "OCC3883"
+puts "======="
+puts ""
+#######################################################
+# Problems of reading colors and layers in XDEDRAWEXE
+#######################################################
+
+set theColors ""
+set theLayers ""
+
+ReadStep D [locate_data_file bug3883_xr2-ct-214_plate.stp]
+
+set theColors [XGetAllColors D]
+set theLayers [XGetAllLayers D]
+
+if {$theColors == ""} {
+ puts "ERROR: OCC3883 is reproduced. Colors have not been read."
+}
+if {$theLayers == ""} {
+ puts "ERROR: OCC3883 is reproduced. Layers have not been read."
+}
--- /dev/null
+puts "======="
+puts "OCC3883"
+puts "======="
+puts ""
+#######################################################
+# Problems of reading colors and layers in XDEDRAWEXE
+#######################################################
+
+set theColors ""
+set theLayers ""
+
+ReadStep D [locate_data_file bug3883_xr2-ct-214_rod.stp]
+
+set theColors [XGetAllColors D]
+set theLayers [XGetAllLayers D]
+
+if {$theColors == ""} {
+ puts "ERROR: OCC3883 is reproduced. Colors have not been read."
+}
+if {$theLayers == ""} {
+ puts "ERROR: OCC3883 is reproduced. Layers have not been read."
+}