Use arrays for passed and failure_message to make it easier for learners to write tests

Author: connoraird

episodes/6-writing-your-first-unit-test/standard-fortran/challenge/test/test_temp_conversions.f90

@@ -2,33 +2,39 @@ program test_temp_conversions
     use temp_conversions, only : fahrenheit_to_celsius, celsius_to_kelvin
     implicit none
 
-    ! Declare passed and failure message to be set by a test subroutine
-    logical :: passed
-    character(len=200) :: failure_message
+    integer :: i
 
-    ! Call your test subroutine here
-    call test(passed, failure_message)
+    ! Declare passed and failure message arrays to be set by a test subroutine(s)
+    logical :: passed(1)
+    character(len=200) :: failure_message(1)
 
-    if (.not. passed) then
-        write(*,*) "FAIL: ", trim(failure_message)
-        stop 1
-    else
+    ! Call your test subroutine(s) here
+    call test(passed(1), failure_message(1))
+
+    if (all(passed)) then
         write(*,*) "All tests passed!"
+    else
+      do i = 1, size(passed)
+          if (.not. passed(i)) then
+              write(*,*) "FAIL: ", trim(failure_message(i))
+          end if
+      end do
+      stop 1
     end if
 
 contains
     !> The test subroutine
     subroutine test(passed, failure_message)
-      !> A logical to track whether the test passed or not
-      logical, intent(out) :: passed
-      !> A failure message to be displayed if passed is false
-      character(len=200), intent(out) :: failure_message
+        !> A logical to track whether the test passed or not
+        logical, intent(out) :: passed
+        !> A failure message to be displayed if passed is false
+        character(len=200), intent(out) :: failure_message
 
-      ! No test has been written yet so just default passed to .true.
-      passed = .true.
+        ! No test has been written yet so just default passed to .true.
+        passed = .true.
 
-      ! Populate the failure message
-      write(failure_message, '(A,A)') "It is useful to include input, expected output and actual output values here. To do ", &
-                                    "that, replace (A,A) with the correct format for your values, for example (A,I3,A,I3,A,I3)."
+        ! Populate the failure message
+        write(failure_message, '(A,A)') "It is useful to include input, expected output and actual output values here. To do ", &
+                                        "that, replace (A,A) with the correct format for your values, for example (A,I3,A,I3,A,I3)."
     end subroutine test
 end program test_temp_conversions