From e4b5c45aa6477264c1cf8051eaee552b01197d54 Mon Sep 17 00:00:00 2001
From: apv <apv@opencascade.com>
Date: Thu, 31 Jul 2014 13:26:42 +0400
Subject: [PATCH] 0023010: Error with a .stp model during transfer from
 STEPCAFControl_Reader to document

Adding test case
---
 src/QABugs/QABugs_19.cxx | 41 ++++++++++++++++++++++++++++++++++++++++
 tests/bugs/xde/bug23010  | 10 ++++++++++
 2 files changed, 51 insertions(+)
 create mode 100644 tests/bugs/xde/bug23010

diff --git a/src/QABugs/QABugs_19.cxx b/src/QABugs/QABugs_19.cxx
index e108b6fc8d..b4c9700a4d 100755
--- a/src/QABugs/QABugs_19.cxx
+++ b/src/QABugs/QABugs_19.cxx
@@ -2640,6 +2640,46 @@ static Standard_Integer OCC24925 (Draw_Interpretor& theDI,
   return 0;
 }
 
+//=======================================================================
+//function : OCC23010
+//purpose  :
+//=======================================================================
+#include <STEPCAFControl_Reader.hxx>
+
+class mOcafApplication : public TDocStd_Application
+{
+  void Formats(TColStd_SequenceOfExtendedString& Formats)
+  {
+    Formats.Append(TCollection_ExtendedString("mOcafApplication"));
+  }
+  Standard_CString ResourcesName()
+  {
+    return Standard_CString("Resources");
+  }
+};
+
+static Standard_Integer OCC23010 (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
+{
+  if (argc != 2) {
+    di << "Usage: " << argv[0] << " invalid number of arguments" << "\n";
+    return 1;
+  }
+  std::string fileName=argv[1];
+  mOcafApplication *mCasApp = new mOcafApplication();
+  Handle(TDocStd_Document) doc;
+  mCasApp->NewDocument("MDTV-XCAF", doc);
+  STEPCAFControl_Reader stepReader;
+  IFSelect_ReturnStatus status = stepReader.ReadFile (fileName.c_str());
+  if (status != IFSelect_RetDone)
+    return false;
+  stepReader.SetColorMode(Standard_True);
+  stepReader.SetLayerMode(Standard_True);
+  stepReader.SetNameMode(Standard_True);
+  stepReader.Transfer(doc); // ERROR HERE!!!
+  delete mCasApp;
+  return 0;
+}
+
 /*****************************************************************************/
 
 void QABugs::Commands_19(Draw_Interpretor& theCommands) {
@@ -2693,5 +2733,6 @@ void QABugs::Commands_19(Draw_Interpretor& theCommands) {
                    "OCC24925 filename [pluginLib=TKXml storageGuid retrievalGuid]"
                    "\nOCAF persistence without setting environment variables",
                    __FILE__, OCC24925, group);
+  theCommands.Add ("OCC23010", "OCC23010 STEP_file", __FILE__, OCC23010, group);
   return;
 }
diff --git a/tests/bugs/xde/bug23010 b/tests/bugs/xde/bug23010
new file mode 100644
index 0000000000..d40aabd543
--- /dev/null
+++ b/tests/bugs/xde/bug23010
@@ -0,0 +1,10 @@
+puts "============"
+puts "OCC23010"
+puts "============"
+puts ""
+##################################################################################
+# Error with a .stp model during transfer from STEPCAFControl_Reader to document
+##################################################################################
+
+pload QAcommands
+OCC23010 [locate_data_file occ23010.step]