54f37133b7
Mostly mechanical changes in preparation of extracting the Flang-RT "subproject" in #110217. This PR intends to only move pre-existing files to the new folder structure, with no behavioral change. Common files (headers, testing, cmake) shared by Flang-RT and Flang remain in `flang/`. Some cosmetic changes and files paths were necessary: * Relative paths to the new path for the source files and `add_subdirectory`. * Add the new location's include directory to `include_directories` * The unittest/Evaluate directory has unitests for flang-rt and Flang. A new `CMakeLists.txt` was introduced for the flang-rt tests. * Change the `#include` paths relative to the include directive * clang-format on the `#include` directives * Since the paths are part if the copyright header and include guards, a script was used to canonicalize those * `test/Runtime` and runtime tests in `test/Driver` are moved, but the lit.cfg.py mechanism to execute the will only be added in #110217.
101 lines
3.8 KiB
C++
101 lines
3.8 KiB
C++
//===-- unittests/Runtime/Stop.cpp ------------------------------*- C++ -*-===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
/// Test runtime API for STOP statement and runtime API to kill the program.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "flang/Runtime/stop.h"
|
|
#include "CrashHandlerFixture.h"
|
|
#include "flang-rt/runtime/environment.h"
|
|
#include <cstdlib>
|
|
#include <gtest/gtest.h>
|
|
|
|
using namespace Fortran::runtime;
|
|
|
|
struct TestProgramEnd : CrashHandlerFixture {};
|
|
|
|
TEST(TestProgramEnd, StopTest) {
|
|
EXPECT_EXIT(RTNAME(StopStatement)(), testing::ExitedWithCode(EXIT_SUCCESS),
|
|
"Fortran STOP");
|
|
}
|
|
|
|
TEST(TestProgramEnd, StopTestNoStopMessage) {
|
|
putenv(const_cast<char *>("NO_STOP_MESSAGE=1"));
|
|
Fortran::runtime::executionEnvironment.Configure(
|
|
0, nullptr, nullptr, nullptr);
|
|
EXPECT_EXIT(
|
|
RTNAME(StopStatement)(), testing::ExitedWithCode(EXIT_SUCCESS), "");
|
|
}
|
|
|
|
TEST(TestProgramEnd, StopMessageTest) {
|
|
static const char *message{"bye bye"};
|
|
EXPECT_EXIT(RTNAME(StopStatementText)(message, std::strlen(message),
|
|
/*isErrorStop=*/false, /*quiet=*/false),
|
|
testing::ExitedWithCode(EXIT_SUCCESS), "Fortran STOP: bye bye");
|
|
|
|
EXPECT_EXIT(RTNAME(StopStatementText)(message, std::strlen(message),
|
|
/*isErrorStop=*/false, /*quiet=*/true),
|
|
testing::ExitedWithCode(EXIT_SUCCESS), "");
|
|
|
|
EXPECT_EXIT(RTNAME(StopStatementText)(message, std::strlen(message),
|
|
/*isErrorStop=*/true, /*quiet=*/false),
|
|
testing::ExitedWithCode(EXIT_FAILURE), "Fortran ERROR STOP: bye bye");
|
|
|
|
EXPECT_EXIT(RTNAME(StopStatementText)(message, std::strlen(message),
|
|
/*isErrorStop=*/true, /*quiet=*/true),
|
|
testing::ExitedWithCode(EXIT_FAILURE), "");
|
|
}
|
|
|
|
TEST(TestProgramEnd, NoStopMessageTest) {
|
|
putenv(const_cast<char *>("NO_STOP_MESSAGE=1"));
|
|
Fortran::runtime::executionEnvironment.Configure(
|
|
0, nullptr, nullptr, nullptr);
|
|
static const char *message{"bye bye"};
|
|
EXPECT_EXIT(RTNAME(StopStatementText)(message, std::strlen(message),
|
|
/*isErrorStop=*/false, /*quiet=*/false),
|
|
testing::ExitedWithCode(EXIT_SUCCESS), "bye bye");
|
|
|
|
EXPECT_EXIT(RTNAME(StopStatementText)(message, std::strlen(message),
|
|
/*isErrorStop=*/false, /*quiet=*/true),
|
|
testing::ExitedWithCode(EXIT_SUCCESS), "");
|
|
|
|
EXPECT_EXIT(RTNAME(StopStatementText)(message, std::strlen(message),
|
|
/*isErrorStop=*/true, /*quiet=*/false),
|
|
testing::ExitedWithCode(EXIT_FAILURE), "Fortran ERROR STOP: bye bye");
|
|
|
|
EXPECT_EXIT(RTNAME(StopStatementText)(message, std::strlen(message),
|
|
/*isErrorStop=*/true, /*quiet=*/true),
|
|
testing::ExitedWithCode(EXIT_FAILURE), "");
|
|
}
|
|
|
|
TEST(TestProgramEnd, FailImageTest) {
|
|
EXPECT_EXIT(
|
|
RTNAME(FailImageStatement)(), testing::ExitedWithCode(EXIT_FAILURE), "");
|
|
}
|
|
|
|
TEST(TestProgramEnd, ExitTest) {
|
|
EXPECT_EXIT(RTNAME(Exit)(), testing::ExitedWithCode(EXIT_SUCCESS), "");
|
|
EXPECT_EXIT(
|
|
RTNAME(Exit)(EXIT_FAILURE), testing::ExitedWithCode(EXIT_FAILURE), "");
|
|
}
|
|
|
|
TEST(TestProgramEnd, AbortTest) { EXPECT_DEATH(RTNAME(Abort)(), ""); }
|
|
|
|
TEST(TestProgramEnd, CrashTest) {
|
|
static const std::string crashMessage{"bad user code"};
|
|
static const std::string fileName{"file name"};
|
|
static const std::string headMessage{"fatal Fortran runtime error\\("};
|
|
static const std::string tailMessage{":343\\): "};
|
|
static const std::string fullMessage{
|
|
headMessage + fileName + tailMessage + crashMessage};
|
|
EXPECT_DEATH(
|
|
RTNAME(ReportFatalUserError)(crashMessage.c_str(), fileName.c_str(), 343),
|
|
fullMessage.c_str());
|
|
}
|