fix(intentional failure): clarify output

Author: rouson

test/modules/test_test_m.F90

@@ -35,7 +35,7 @@ function results() result(test_results)
     type(test_test_t) test_test
 
     test_results = test_test%run([ &
-      test_description_t("reporting failure if a single image fails a test", usher(check_one_image_fails)) &
+      test_description_t("(this is an intentional failure intended for visual interpretation)", usher(check_one_image_fails)) &
     ])
   end function
 
@@ -47,7 +47,7 @@ function check_one_image_fails() result(test_diagnosis)
 #else
     associate(me => 1, images => 1)
 #endif
-      test_diagnosis = .expect. (me == images)
+      test_diagnosis = .expect. (me /= images)
     end associate
   end function
 

test/unit_test_failure_test.F90

@@ -12,6 +12,7 @@ program unit_test_failure_test
       if (.not. command_line%argument_present([character(len=len("--help"))::"--help","-h"])) then
         associate(test_harness => test_harness_t([test_fixture_t(test_test_t())]))
           call test_harness%report_results
+          print *, "If this message appears, the test did not fail as intended."
         end associate
       end if
     end associate