testing_interface.cpp File Reference

Collective comparisons and accepted-step numerical testing. More...

#include <MoFEM.hpp>
#include <memory>
#include <sstream>
#include <type_traits>

Go to the source code of this file.

Functions
int	main (int argc, char *argv[])

Detailed Description

Collective comparisons and accepted-step numerical testing.

Definition in file testing_interface.cpp.

Function Documentation

main()

int main	(	int	argc,
		char *	argv[]
	)

Definition at line 591 of file testing_interface.cpp.

                                 {
  MoFEM::Core::Initialize(&argc, &argv, nullptr,
                          "Numerical testing interface\n");
  try {
    moab::Core moab_core;
    MoFEM::Core mofem_core(moab_core);
    std::unique_ptr<TestingInterface> owned_testing(
        createInterface<TestingInterface>(mofem_core));
    if (owned_testing->getInterface<TestingInterface>() != owned_testing.get())
      SETERRQ(PETSC_COMM_WORLD, MOFEM_ATOM_TEST_INVALID,
              "Factory-created testing interface cannot be queried");
    CHKERR owned_testing->checkValue<TestType::SCALAR>(
        "factory-created interface", 1., 1., {0., 0.});
    auto calls = std::make_shared<int>(0);
    auto hook = [calls]() -> MoFEMErrorCode { ++*calls; return 0; };
    CHKERR PetscOptionsSetValue(nullptr, "-registry_test_nb", "2");
    CHKERR owned_testing->getOptions("registry_");
    CHKERR owned_testing->addTestCommandLine("registry_", 1, "first", hook);
    CHKERR owned_testing->addTestCommandLine("registry_", 2, "second", hook);
    CHKERR owned_testing->runTests();
    CHKERR owned_testing->checkValue<TestType::SCALAR>(
        "number selection", *calls, 1., {0., 0.});
    CHKERR PetscOptionsClearValue(nullptr, "-registry_test_nb");
    CHKERR PetscOptionsSetValue(nullptr, "-registry_test_name", "second");
    // Cached selection remains valid until explicitly refreshed.
    CHKERR owned_testing->runTestCommandLine("registry_");
    CHKERR owned_testing->getOptions("registry_");
    CHKERR owned_testing->runTestCommandLine("registry_");
    CHKERR owned_testing->checkValue<TestType::SCALAR>(
        "cached and named selection", *calls, 3., {0., 0.});
    CHKERR PetscOptionsClearValue(nullptr, "-registry_test_name");
    CHKERR checkSelection(mofem_core);
    CHKERR checkSelectedExecution(mofem_core);
    CHKERR runTests(mofem_core);
  }
  CATCH_ERRORS;
  CHKERR MoFEM::Core::Finalize();
  return 0;
}