Merge pull request #17 from JHenneberg/master

added function test_case_get_assert_results()

Author: dongli

src/assert_test.F90

@@ -9,6 +9,9 @@ program test_assert
   type(test_suite_type) :: test_suite_equal
   type(test_suite_type) :: test_suite_great_than
 
+  logical, allocatable :: test_suite_assert_results(:)
+  logical, allocatable :: test_case_assert_results(:)
+
   ! test assert_approximate routines
   call test_suite_init('Approximate', test_suite_approximate)
 
@@ -191,6 +194,14 @@ program test_assert
   call assert_great_than(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([0.0D0, 2.0D0, 0.0D0, 0.0D0], [2, 2]), __FILE__, __LINE__, test_suite_great_than)
   call assert_great_than(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([0.0D0, 0.0D0, 0.0D0, 0.0D0], [2, 2]), __FILE__, __LINE__, test_suite_great_than)
 
+  test_case_assert_results = test_case_get_assert_results('real', test_suite_great_than)
+  call assert_false(all(test_case_assert_results(1:12:2)), __FILE__, __LINE__, test_suite_great_than)
+  call assert_true(all(test_case_assert_results(2:12:2)), __FILE__, __LINE__, test_suite_great_than)
+
+  test_suite_assert_results = test_suite_get_assert_results(test_suite_great_than)
+  call assert_false(all(test_suite_assert_results(1:38:2)), __FILE__, __LINE__, test_suite_great_than)
+  call assert_true(all(test_suite_assert_results(2:38:2)), __FILE__, __LINE__, test_suite_great_than)
+
   call test_suite_report(test_suite_great_than)
   call test_suite_final(test_suite_great_than)
 

src/test_case_mod.F90

@@ -9,6 +9,7 @@ module test_case_mod
   public test_case_create
   public test_case_append_assert
   public test_case_report
+  public test_case_get_assert_results
 
 contains
 
@@ -97,7 +98,7 @@ subroutine test_case_append_assert(assert_operator, passed, left_operand, right_
       dummy_suite => default_test_suite
     end if
 
-    if (.not. associated(dummy_suite%test_case_tail)) call test_case_create('default')
+    if (.not. associated(dummy_suite%test_case_tail)) call test_case_create('default', dummy_suite)
 
     if (.not. associated(dummy_suite%test_case_tail%assert_result_head)) then
       allocate(dummy_suite%test_case_tail%assert_result_head)
@@ -143,4 +144,34 @@ function get_test_case(name, suite) result(res)
 
   end function get_test_case
 
+  function test_case_get_assert_results(name, suite) result(res)
+    implicit none
+
+    character(*), intent(in) :: name
+    type(test_suite_type), target, optional :: suite
+    logical, allocatable :: res(:)
+
+    type(test_suite_type), pointer :: dummy_suite
+    type(test_case_type), pointer :: dummy_case
+    type(assert_result_type), pointer :: dummy_assert_result
+
+    integer :: i
+
+    if (present(suite) ) then
+      dummy_suite => suite
+    else
+      dummy_suite => default_test_suite
+    end if
+
+    dummy_case => get_test_case(name, suite)
+    allocate(res(dummy_case%num_assert), source = .false.)
+
+    dummy_assert_result => dummy_case%assert_result_head
+    res(1) = dummy_assert_result%passed
+    do i = 1, dummy_case%num_assert - 1
+      dummy_assert_result => dummy_assert_result%next
+      res(i + 1) = dummy_assert_result%passed
+    end do
+  end function test_case_get_assert_results
+
 end module test_case_mod