From 585372424a495e905c0e4ebdc0216da42cc644b8 Mon Sep 17 00:00:00 2001
From: Lennart Ochel <lennart.ochel@liu.se>
Date: Tue, 10 Jan 2017 08:42:01 +0100
Subject: [PATCH] Add test for ticket:3446

---
 .../modelica/external_functions/Makefile      |  1 +
 .../external_functions/extObj_ticket3446.mo   | 82 +++++++++++++++++++
 .../external_functions/extObj_ticket3446.mos  | 32 ++++++++
 3 files changed, 115 insertions(+)
 create mode 100644 simulation/modelica/external_functions/extObj_ticket3446.mo
 create mode 100644 simulation/modelica/external_functions/extObj_ticket3446.mos

diff --git a/simulation/modelica/external_functions/Makefile b/simulation/modelica/external_functions/Makefile
index efd98bf31..e12352946 100644
--- a/simulation/modelica/external_functions/Makefile
+++ b/simulation/modelica/external_functions/Makefile
@@ -2,6 +2,7 @@ TEST = ../../../rtest -v
 
 TESTFILES = \
 MDD_test.mos \
+extObj_ticket3446.mos \
 ExtObj.mos \
 ExtObjStringParam.mos \
 ExternalLibraries.mos \
diff --git a/simulation/modelica/external_functions/extObj_ticket3446.mo b/simulation/modelica/external_functions/extObj_ticket3446.mo
new file mode 100644
index 000000000..5a4cf74ba
--- /dev/null
+++ b/simulation/modelica/external_functions/extObj_ticket3446.mo
@@ -0,0 +1,82 @@
+package TestMyExternalObj
+  class MyExternalObj
+    extends ExternalObject;
+    function constructor
+      input Integer size=3;
+      output MyExternalObj outMyExternalObj;
+
+      external "C" outMyExternalObj=initMyExternalObj(size);
+      annotation(Include="
+        #include <stdio.h>
+        #include <stdlib.h> /* for Linux malloc and exit */
+        #include <string.h>
+
+        void* initMyExternalObj(int size)
+        {
+          int i=0;
+
+          double *extObj = (double*)malloc(size*sizeof(double));
+          if(extObj == NULL)
+            printf(\"Not enough memory\");
+
+          for(i=0; i<size; i++)
+            if(i < 2)
+              extObj[i] = 1.0;
+            else
+              extObj[i] = extObj[i-1]+extObj[i-2];
+
+          return (void*)extObj;
+        }");
+    end constructor;
+
+    function destructor
+      input MyExternalObj inMyExternalObj;
+
+      external "C" closeMyExternalObj(inMyExternalObj) ;
+      annotation(Include="
+        #include <stdio.h>
+        #include <stdlib.h> /* for Linux malloc and exit */
+        #include <string.h>
+
+        /* Destructor */
+        void closeMyExternalObj(void *object)
+        {
+          /* Release storage */
+          double *extObj = (double*)object;
+          if (object == NULL)
+            return;
+
+          free(extObj);
+        }");
+    end destructor;
+  end MyExternalObj;
+
+  function readFromMyExternalObj
+    input MyExternalObj extObj;
+    input Integer i;
+    output Real y;
+
+    external "C" y=readFromMyExternalObj(extObj, i);
+    annotation(Include="
+      #include <stdio.h>
+      #include <stdlib.h> /* for Linux malloc and exit */
+      #include <string.h>
+
+      double readFromMyExternalObj(void* object, int i)
+      {
+        double *extObj = (double*)object;
+        return extObj[i-1];
+      }");
+  end readFromMyExternalObj;
+
+  model Test
+    parameter Integer size = 5;
+    final parameter Integer size_ = size;
+    parameter MyExternalObj MyExtObj=MyExternalObj(size_);
+    parameter Real p1 = readFromMyExternalObj(MyExtObj, 1);
+    Real p2 = readFromMyExternalObj(MyExtObj, 2);
+    Real p3 = readFromMyExternalObj(MyExtObj, 3);
+    Real p4 = readFromMyExternalObj(MyExtObj, 4);
+    Real p5 = readFromMyExternalObj(MyExtObj, 5);
+  end Test;
+end TestMyExternalObj;
diff --git a/simulation/modelica/external_functions/extObj_ticket3446.mos b/simulation/modelica/external_functions/extObj_ticket3446.mos
new file mode 100644
index 000000000..84b0ebd37
--- /dev/null
+++ b/simulation/modelica/external_functions/extObj_ticket3446.mos
@@ -0,0 +1,32 @@
+// name: extObj_ticket3446
+// keywords: initialization, external object
+// status: correct
+
+loadFile("extObj_ticket3446.mo"); getErrorString();
+simulate(TestMyExternalObj.Test); getErrorString();
+val(p1, 0.0); getErrorString();
+val(p2, 0.0); getErrorString();
+val(p3, 0.0); getErrorString();
+val(p4, 0.0); getErrorString();
+val(p5, 0.0); getErrorString();
+
+// Result:
+// true
+// ""
+// record SimulationResult
+//     resultFile = "TestMyExternalObj.Test_res.mat",
+//     simulationOptions = "startTime = 0.0, stopTime = 1.0, numberOfIntervals = 500, tolerance = 1e-06, method = 'dassl', fileNamePrefix = 'TestMyExternalObj.Test', options = '', outputFormat = 'mat', variableFilter = '.*', cflags = '', simflags = ''",
+//     messages = ""
+// end SimulationResult;
+// ""
+// 1.0
+// ""
+// 1.0
+// ""
+// 2.0
+// ""
+// 3.0
+// ""
+// 5.0
+// ""
+// endResult