From 422849b42ee491b681e26db851d9cdd38cb96cb0 Mon Sep 17 00:00:00 2001
From: andy <a.heather@opencfd.co.uk>
Date: Fri, 23 May 2008 11:24:57 +0100
Subject: [PATCH] added test for dataEntry

---
 applications/test/dataEntry/Make/files      |  3 +
 applications/test/dataEntry/Make/options    | 11 +++
 applications/test/dataEntry/files           |  4 +
 applications/test/dataEntry/testDataEntry.C | 89 +++++++++++++++++++++
 4 files changed, 107 insertions(+)
 create mode 100644 applications/test/dataEntry/Make/files
 create mode 100644 applications/test/dataEntry/Make/options
 create mode 100644 applications/test/dataEntry/files
 create mode 100644 applications/test/dataEntry/testDataEntry.C

diff --git a/applications/test/dataEntry/Make/files b/applications/test/dataEntry/Make/files
new file mode 100644
index 0000000000..abbd55d349
--- /dev/null
+++ b/applications/test/dataEntry/Make/files
@@ -0,0 +1,3 @@
+testDataEntry.C
+
+EXE = $(FOAM_APPBIN)/testDataEntry
diff --git a/applications/test/dataEntry/Make/options b/applications/test/dataEntry/Make/options
new file mode 100644
index 0000000000..cde1970d78
--- /dev/null
+++ b/applications/test/dataEntry/Make/options
@@ -0,0 +1,11 @@
+EXE_INC = \
+    -I$(LIB_SRC)/finiteVolume/lnInclude \
+    -I$(LIB_SRC)/lagrangian/intermediate/lnInclude \
+    -I$(LIB_SRC)/thermophysicalModels/radiation/lnInclude \
+    -I$(LIB_SRC)/thermophysicalModels/thermophysicalFunctions/lnInclude
+
+EXE_LIBS = \
+    -lfiniteVolume \
+    -llagrangianIntermediate \
+    -lradiation \
+    -lthermophysicalFunctions
\ No newline at end of file
diff --git a/applications/test/dataEntry/files b/applications/test/dataEntry/files
new file mode 100644
index 0000000000..c7e4dc9043
--- /dev/null
+++ b/applications/test/dataEntry/files
@@ -0,0 +1,4 @@
+testTable.C
+
+EXE=$(FOAM_USER_APPBIN)/testTable
+
diff --git a/applications/test/dataEntry/testDataEntry.C b/applications/test/dataEntry/testDataEntry.C
new file mode 100644
index 0000000000..0c7d9ba353
--- /dev/null
+++ b/applications/test/dataEntry/testDataEntry.C
@@ -0,0 +1,89 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 OpenCFD Ltd.
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+License
+    This file is part of OpenFOAM.
+
+    OpenFOAM is free software; you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by the
+    Free Software Foundation; either version 2 of the License, or (at your
+    option) any later version.
+
+    OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
+    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+    for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with OpenFOAM; if not, write to the Free Software Foundation,
+    Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+Application
+    testDataEntry
+
+Description
+    Tests lagrangian/intermediate/submodels/IO/DataEntry
+
+\*---------------------------------------------------------------------------*/
+
+#include "fvCFD.H"
+#include "DataEntry.H"
+#include "IOdictionary.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+int main(int argc, char *argv[])
+{
+#   include "setRootCase.H"
+#   include "createTime.H"
+#   include "createMesh.H"
+
+    IOdictionary dataEntryProperties
+    (
+        IOobject
+        (
+            "dataEntryProperties",
+            runTime.constant(),
+            mesh,
+            IOobject::MUST_READ,
+            IOobject::NO_WRITE
+        )
+    );
+
+    autoPtr<DataEntry<scalar> > dataEntry
+    (
+        DataEntry<scalar>::New
+        (
+            "dataEntry",
+            dataEntryProperties
+        )
+    );
+
+    scalar x0 = readScalar(dataEntryProperties.lookup("x0"));
+    scalar x1 = readScalar(dataEntryProperties.lookup("x1"));
+
+    Info<< "Data entry type: " << dataEntry().type() << nl << endl;
+
+    Info<< "Inputs" << nl
+        << "    x0 = " << x0 << nl
+        << "    x1 = " << x1 << nl
+        << endl;
+
+    Info<< "Interpolation" << nl
+        << "    f(x0) = " << dataEntry().value(x0) << nl
+        << "    f(x1) = " << dataEntry().value(x1) << nl
+        << endl;
+
+    Info<< "Integration" << nl
+        << "    int(f(x)) lim(x0->x1) = " << dataEntry().integrate(x0, x1) << nl
+        << endl;
+
+    return(0);
+}
+
+
+// ************************************************************************* //