From: Wolfgang Bangerth <bangerth@colostate.edu>
Date: Wed, 11 Sep 2024 19:35:15 +0000 (-0600)
Subject: Add a new test for ParsedFunction.
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=34cf806d0b061b9506ad0e6bb20573678c636da7;p=dealii.git

Add a new test for ParsedFunction.
---

diff --git a/tests/bits/parsed_function_constants.cc b/tests/bits/parsed_function_constants.cc
new file mode 100644
index 0000000000..0be4abab95
--- /dev/null
+++ b/tests/bits/parsed_function_constants.cc
@@ -0,0 +1,54 @@
+// ------------------------------------------------------------------------
+//
+// SPDX-License-Identifier: LGPL-2.1-or-later
+// Copyright (C) 2007 - 2018 by the deal.II authors
+//
+// This file is part of the deal.II library.
+//
+// Part of the source code is dual licensed under Apache-2.0 WITH
+// LLVM-exception OR LGPL-2.1-or-later. Detailed license information
+// governing the source code and code contributions can be found in
+// LICENSE.md and CONTRIBUTING.md at the top level directory of deal.II.
+//
+// ------------------------------------------------------------------------
+
+
+
+// This program tests the functionality of the function parser
+// wrapper.
+
+#include <deal.II/base/parameter_handler.h>
+#include <deal.II/base/parsed_function.h>
+#include <deal.II/base/utilities.h>
+
+#include <map>
+
+#include "../tests.h"
+
+void
+test()
+{
+  // A parameter handler
+  ParameterHandler prm;
+
+  Functions::ParsedFunction<1>::declare_parameters(prm, 1);
+  prm.set("Function constants", "f=2");
+
+  prm.set("Function expression", "f*f+2*x");
+
+  Functions::ParsedFunction<1> function(1);
+  function.parse_parameters(prm);
+
+  const double value = function.value(Point<1>(3.0));
+  deallog << "Value at x=3: " << value << std::endl;
+
+  prm.log_parameters(deallog);
+}
+
+int
+main()
+{
+  initlog();
+
+  test();
+}
diff --git a/tests/bits/parsed_function_constants.with_muparser=true.output b/tests/bits/parsed_function_constants.with_muparser=true.output
new file mode 100644
index 0000000000..11c21dfc2c
--- /dev/null
+++ b/tests/bits/parsed_function_constants.with_muparser=true.output
@@ -0,0 +1,5 @@
+
+DEAL::Value at x=3: 10.0000
+DEAL:parameters::Function constants: f=2
+DEAL:parameters::Function expression: f*f+2*x
+DEAL:parameters::Variable names: x,t