Merge branch 'changes'

Author: dongli

src/test/test_assert.F90

@@ -41,7 +41,7 @@ program test_assert
   call assert_approximate(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([1.0D0, 1.01D0, 1.0D0, 1.0D0], [2, 2]), eps=0.01D0, suite=test_suite_approximate)
 
   call test_suite_report(test_suite_approximate)
-  call test_case_final(test_suite_approximate)
+  call test_suite_final(test_suite_approximate)
 
   ! test assert_false/_true routines
   test_suite_boolean%name = 'Boolean'
@@ -57,7 +57,7 @@ program test_assert
   call assert_true(.true., __FILE__, __LINE__, test_suite_boolean)
 
   call test_suite_report(test_suite_boolean)
-  call test_case_final(test_suite_boolean)
+  call test_suite_final(test_suite_boolean)
 
   ! test assert_equal routines
   test_suite_equal%name = 'Equal'
@@ -128,7 +128,7 @@ program test_assert
   call assert_equal(reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), reshape([1.0D0, 1.0D0, 1.0D0, 1.0D0], [2, 2]), __FILE__, __LINE__, test_suite_equal)
 
   call test_suite_report(test_suite_equal)
-  call test_case_final(test_suite_equal)
+  call test_suite_final(test_suite_equal)
 
   ! test assert_great_than routines
   test_suite_great_than%name = 'great_then'
@@ -191,6 +191,6 @@ program test_assert
   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)
 
   call test_suite_report(test_suite_great_than)
-  call test_case_final(test_suite_great_than)
+  call test_suite_final(test_suite_great_than)
 
 end program test_assert

src/test_case_mod.F90

@@ -7,12 +7,12 @@ module test_case_mod
 
   private
 
-  public test_case_init
+  public test_suite_init
+  public test_suite_final
+  public test_suite_report
   public test_case_create
   public test_case_append_assert
   public test_case_report
-  public test_suite_report
-  public test_case_final
   public test_suite_type
 
   type assert_result_type
@@ -46,13 +46,15 @@ module test_case_mod
 
 contains
 
-  subroutine test_case_init()
+  subroutine test_suite_init(name)
+
+    character(*), intent(in) :: name
 
-    default_test_suite%name = "Default test suite"
+    default_test_suite%name = name
 
-  end subroutine test_case_init
+  end subroutine test_suite_init
 
-  subroutine test_case_final(suite)
+  subroutine test_suite_final(suite)
 
     type(test_suite_type), optional, target :: suite
     type(test_suite_type), pointer :: dummy_suite
@@ -81,7 +83,7 @@ subroutine test_case_final(suite)
     end do
     nullify(dummy_suite%test_case_tail)
 
-  end subroutine test_case_final
+  end subroutine test_suite_final
 
   subroutine test_case_create(name, suite)