test.h

#ifndef SOURCEMETA_CORE_TEST_H_
#define SOURCEMETA_CORE_TEST_H_
 
#ifndef SOURCEMETA_CORE_TEST_EXPORT
#include <sourcemeta/core/test_export.h>
#endif
 
#include <sourcemeta/core/numeric_util.h>
 
#include <functional>      // std::function
#include <ostream>         // std::ostream
#include <source_location> // std::source_location
#include <sstream>         // std::ostringstream
#include <string>          // std::string
#include <string_view>     // std::string_view
#include <type_traits> // std::is_integral_v, std::is_same_v, std::remove_cv_t, std::is_convertible_v, std::is_pointer_v, std::remove_cvref_t
#include <utility> // std::cmp_equal, std::cmp_not_equal, std::cmp_less, std::cmp_greater, std::cmp_less_equal, std::cmp_greater_equal

 
namespace sourcemeta::core {
 
// Exporting symbols that depends on the standard C++ library is considered
// safe.
// https://learn.microsoft.com/en-us/cpp/error-messages/compiler-warnings/compiler-warning-level-2-c4275?view=msvc-170&redirectedfrom=MSDN
#if defined(_MSC_VER)
#pragma warning(disable : 4251 4275)
#endif

struct SOURCEMETA_CORE_TEST_EXPORT TestAbortError {
  std::string message;
};

SOURCEMETA_CORE_TEST_EXPORT
auto test_register(std::string_view suite, std::string_view name,
                   std::string_view file, int line, std::function<void()> body)
    -> int;

SOURCEMETA_CORE_TEST_EXPORT
auto test_register(
    std::string_view name, std::function<void()> body,
    std::source_location location = std::source_location::current()) -> int;

[[noreturn]] SOURCEMETA_CORE_TEST_EXPORT auto
test_report_failure(std::string_view file, int line, std::string_view message)
    -> void;

SOURCEMETA_CORE_TEST_EXPORT
auto test_suite_from_path(std::string_view path) -> std::string;

SOURCEMETA_CORE_TEST_EXPORT
auto test_run(int argc, char **argv) -> int;
 
template <typename Type>
concept test_comparable_integer =
    std::is_integral_v<Type> && !std::is_same_v<std::remove_cv_t<Type>, bool> &&
    !std::is_same_v<std::remove_cv_t<Type>, char> &&
    !std::is_same_v<std::remove_cv_t<Type>, wchar_t> &&
    !std::is_same_v<std::remove_cv_t<Type>, char8_t> &&
    !std::is_same_v<std::remove_cv_t<Type>, char16_t> &&
    !std::is_same_v<std::remove_cv_t<Type>, char32_t>;
 
template <typename Left, typename Right>
auto test_compare_equal(const Left &left, const Right &right) -> bool {
  if constexpr (test_comparable_integer<Left> &&
                test_comparable_integer<Right>) {
    return std::cmp_equal(left, right);
  } else {
    return left == right;
  }
}
 
template <typename Left, typename Right>
auto test_compare_not_equal(const Left &left, const Right &right) -> bool {
  if constexpr (test_comparable_integer<Left> &&
                test_comparable_integer<Right>) {
    return std::cmp_not_equal(left, right);
  } else {
    return left != right;
  }
}
 
template <typename Left, typename Right>
auto test_compare_less(const Left &left, const Right &right) -> bool {
  if constexpr (test_comparable_integer<Left> &&
                test_comparable_integer<Right>) {
    return std::cmp_less(left, right);
  } else {
    return left < right;
  }
}
 
template <typename Left, typename Right>
auto test_compare_greater(const Left &left, const Right &right) -> bool {
  if constexpr (test_comparable_integer<Left> &&
                test_comparable_integer<Right>) {
    return std::cmp_greater(left, right);
  } else {
    return left > right;
  }
}
 
template <typename Left, typename Right>
auto test_compare_less_equal(const Left &left, const Right &right) -> bool {
  if constexpr (test_comparable_integer<Left> &&
                test_comparable_integer<Right>) {
    return std::cmp_less_equal(left, right);
  } else {
    return left <= right;
  }
}
 
template <typename Left, typename Right>
auto test_compare_greater_equal(const Left &left, const Right &right) -> bool {
  if constexpr (test_comparable_integer<Left> &&
                test_comparable_integer<Right>) {
    return std::cmp_greater_equal(left, right);
  } else {
    return left >= right;
  }
}
 
template <typename Type>
concept test_streamable =
    requires(std::ostream &stream, const Type &value) { stream << value; };
 
// A pointer is not taken as text, as it may be null and as comparing two of
// them compares addresses rather than the characters they point to
template <typename Type>
concept test_diffable_string =
    test_streamable<Type> && !std::is_pointer_v<std::remove_cvref_t<Type>> &&
    std::is_convertible_v<const Type &, std::string_view>;
 
template <typename Type> auto test_stringify(const Type &value) -> std::string {
  if constexpr (test_streamable<Type>) {
    std::ostringstream stream;
    stream << value;
    return stream.str();
  } else {
    return "<unprintable>";
  }
}

SOURCEMETA_CORE_TEST_EXPORT
auto test_stringify_difference(std::string_view actual,
                               std::string_view expected) -> std::string;
 
template <typename Left, typename Right>
auto test_describe_mismatch(std::string_view expression, const Left &left,
                            const Right &right) -> std::string {
  if constexpr (test_diffable_string<Left> && test_diffable_string<Right>) {
    const auto difference{test_stringify_difference(left, right)};
    if (!difference.empty()) {
      return std::string{"expected "} + std::string{expression} + "\n" +
             difference;
    }
  }
 
  return std::string{"expected "} + std::string{expression} +
         "\n  actual:   " + test_stringify(left) +
         "\n  expected: " + test_stringify(right);
}
 
inline auto test_c_string_equal(const char *const left, const char *const right)
    -> bool {
  // A null pointer is not a valid string to view, so compare pointers directly
  if (left == nullptr || right == nullptr) {
    return left == right;
  }
 
  return std::string_view{left} == std::string_view{right};
}
 
inline auto test_c_string_label(const char *const value) -> std::string_view {
  return value == nullptr ? std::string_view{"(null)"}
                          : std::string_view{value};
}
 
// References, rather than values, so that the operands bind without copying and
// without rejecting comparisons of non-copyable types. This aggregate only ever
// lives for the duration of a single comparison call, so the usual hazards of
// reference members do not apply here.
template <typename Left, typename Right> struct test_operands {
  // NOLINTBEGIN(cppcoreguidelines-avoid-const-or-ref-data-members)
  const Left &left;
  const Right &right;
  // NOLINTEND(cppcoreguidelines-avoid-const-or-ref-data-members)
};
 
// Collecting both operands through a single braced initializer keeps their
// temporaries alive for the whole comparison and pins their evaluation to
// left-to-right order. Binding each operand to its own reference inside the
// macro guarantees neither
template <typename Left, typename Right, typename Comparator>
auto test_expect_comparison(std::string_view file, int line,
                            std::string_view expression,
                            const test_operands<Left, Right> &operands,
                            Comparator comparator) -> void {
  if (!comparator(operands.left, operands.right)) {
    test_report_failure(
        file, line,
        test_describe_mismatch(expression, operands.left, operands.right));
  }
}
 
} // namespace sourcemeta::core
 
#define SOURCEMETA_CORE_TEST_REGISTER(name)                                    \
  static auto sourcemeta_test_body_##name()->void;                             \
  [[maybe_unused]] static const int sourcemeta_test_registration_##name =      \
      ::sourcemeta::core::test_register(                                       \
          ::sourcemeta::core::test_suite_from_path(__FILE__), #name, __FILE__, \
          __LINE__, &sourcemeta_test_body_##name);                             \
  static auto sourcemeta_test_body_##name()->void
 
#define TEST(name) SOURCEMETA_CORE_TEST_REGISTER(name)
 
// The fixture name is used as a base class and in token pasting, neither of
// which can be parenthesized. The registration symbol is keyed on the test name
// alone so that reusing a name within a file is a redefinition error, matching
// the behavior of a plain test.
// NOLINTBEGIN(bugprone-macro-parentheses)
#define SOURCEMETA_CORE_TEST_REGISTER_FIXTURE(fixture, name)                   \
  namespace {                                                                  \
  struct sourcemeta_test_fixture_##fixture##_##name final : public fixture {   \
    auto sourcemeta_test_body() -> void;                                       \
  };                                                                           \
  }                                                                            \
  [[maybe_unused]] static const int sourcemeta_test_registration_##name =      \
      ::sourcemeta::core::test_register(                                       \
          ::sourcemeta::core::test_suite_from_path(__FILE__), #name, __FILE__, \
          __LINE__, [] {                                                       \
            sourcemeta_test_fixture_##fixture##_##name instance;               \
            instance.sourcemeta_test_body();                                   \
          });                                                                  \
  auto sourcemeta_test_fixture_##fixture##_##name::sourcemeta_test_body()->void
// NOLINTEND(bugprone-macro-parentheses)
 
#define TEST_F(fixture, name)                                                  \
  SOURCEMETA_CORE_TEST_REGISTER_FIXTURE(fixture, name)
 
#define SOURCEMETA_CORE_TEST_COMPARE(actual, expected, comparator, operation)  \
  ::sourcemeta::core::test_expect_comparison(                                  \
      __FILE__, __LINE__, #actual " " operation " " #expected,                 \
      ::sourcemeta::core::test_operands{(actual), (expected)},                 \
      [](const auto &sourcemeta_test_left,                                     \
         const auto &sourcemeta_test_right) {                                  \
        return ::sourcemeta::core::comparator(sourcemeta_test_left,            \
                                              sourcemeta_test_right);          \
      })
 
#define EXPECT_EQ(actual, expected)                                            \
  SOURCEMETA_CORE_TEST_COMPARE(actual, expected, test_compare_equal, "==")
#define EXPECT_NE(actual, expected)                                            \
  SOURCEMETA_CORE_TEST_COMPARE(actual, expected, test_compare_not_equal, "!=")
#define EXPECT_LT(actual, expected)                                            \
  SOURCEMETA_CORE_TEST_COMPARE(actual, expected, test_compare_less, "<")
#define EXPECT_GT(actual, expected)                                            \
  SOURCEMETA_CORE_TEST_COMPARE(actual, expected, test_compare_greater, ">")
#define EXPECT_LE(actual, expected)                                            \
  SOURCEMETA_CORE_TEST_COMPARE(actual, expected, test_compare_less_equal, "<=")
#define EXPECT_GE(actual, expected)                                            \
  SOURCEMETA_CORE_TEST_COMPARE(actual, expected, test_compare_greater_equal,   \
                               ">=")
 
#define SOURCEMETA_CORE_TEST_COMPARE_FLOATING(actual, expected, type)          \
  do {                                                                         \
    const type sourcemeta_test_actual{static_cast<type>(actual)};              \
    const type sourcemeta_test_expected{static_cast<type>(expected)};          \
    if (!::sourcemeta::core::real_equal(sourcemeta_test_actual,                \
                                        sourcemeta_test_expected)) {           \
      ::sourcemeta::core::test_report_failure(                                 \
          __FILE__, __LINE__,                                                  \
          ::sourcemeta::core::test_describe_mismatch(                          \
              #actual " ~= " #expected, sourcemeta_test_actual,                \
              sourcemeta_test_expected));                                      \
    }                                                                          \
  } while (false)
 
#define EXPECT_DOUBLE_EQ(actual, expected)                                     \
  SOURCEMETA_CORE_TEST_COMPARE_FLOATING(actual, expected, double)
#define EXPECT_FLOAT_EQ(actual, expected)                                      \
  SOURCEMETA_CORE_TEST_COMPARE_FLOATING(actual, expected, float)
 
#define EXPECT_STREQ(actual, expected)                                         \
  do {                                                                         \
    const char *const sourcemeta_test_actual{(actual)};                        \
    const char *const sourcemeta_test_expected{(expected)};                    \
    if (!::sourcemeta::core::test_c_string_equal(sourcemeta_test_actual,       \
                                                 sourcemeta_test_expected)) {  \
      ::sourcemeta::core::test_report_failure(                                 \
          __FILE__, __LINE__,                                                  \
          ::sourcemeta::core::test_describe_mismatch(                          \
              #actual " == " #expected,                                        \
              ::sourcemeta::core::test_c_string_label(sourcemeta_test_actual), \
              ::sourcemeta::core::test_c_string_label(                         \
                  sourcemeta_test_expected)));                                 \
    }                                                                          \
  } while (false)
 
#define EXPECT_TRUE(condition)                                                 \
  do {                                                                         \
    if (!(condition)) {                                                        \
      ::sourcemeta::core::test_report_failure(__FILE__, __LINE__,              \
                                              "expected true: " #condition);   \
    }                                                                          \
  } while (false)
 
#define EXPECT_FALSE(condition)                                                \
  do {                                                                         \
    if ((condition)) {                                                         \
      ::sourcemeta::core::test_report_failure(__FILE__, __LINE__,              \
                                              "expected false: " #condition);  \
    }                                                                          \
  } while (false)
 
#define FAIL()                                                                 \
  ::sourcemeta::core::test_report_failure(__FILE__, __LINE__,                  \
                                          "explicit failure")
 
#endif