1 #ifndef FORTRAN_EVALUATE_TESTING_H_ 2 #define FORTRAN_EVALUATE_TESTING_H_ 3 4 #include <cinttypes> 5 #include <string> 6 7 namespace testing { 8 9 // Returns EXIT_SUCCESS or EXIT_FAILURE, so a test's main() should end 10 // with "return testing::Complete()". 11 int Complete(); 12 13 // Pass/fail testing. These macros return a pointer to a printf-like 14 // function that can be optionally called to print more detail, e.g. 15 // COMPARE(x, ==, y)("z is 0x%llx", z); 16 // will also print z after the usual failure message if x != y. 17 #define TEST(predicate) \ 18 testing::Test(__FILE__, __LINE__, #predicate, (predicate)) 19 #define MATCH(want, got) testing::Match(__FILE__, __LINE__, (want), #got, (got)) 20 #define COMPARE(x, rel, y) \ 21 testing::Compare(__FILE__, __LINE__, #x, #rel, #y, (x), (y)) 22 23 // Functions called by these macros; do not call directly. 24 using FailureDetailPrinter = void (*)(const char *, ...); 25 FailureDetailPrinter Test( 26 const char *file, int line, const char *predicate, bool pass); 27 FailureDetailPrinter Match(const char *file, int line, std::uint64_t want, 28 const char *gots, std::uint64_t got); 29 FailureDetailPrinter Match(const char *file, int line, const char *want, 30 const char *gots, const std::string &got); 31 FailureDetailPrinter Match(const char *file, int line, const std::string &want, 32 const char *gots, const std::string &got); 33 FailureDetailPrinter Compare(const char *file, int line, const char *xs, 34 const char *rel, const char *ys, std::uint64_t x, std::uint64_t y); 35 } // namespace testing 36 #endif // FORTRAN_EVALUATE_TESTING_H_ 37