Rename subroutine names

Author: dongli

src/test/test_assert.F90

@@ -42,7 +42,7 @@ program test_assert
 
   ! -> report
   call test_suite_report(test_suite_approximate)
-  call test_case_final(test_suite_approximate)
+  call test_suite_final(test_suite_approximate)
 
   ! assert_false/_true
   test_suite_boolean%name = 'Boolean'
@@ -59,7 +59,7 @@ program test_assert
 
   ! report
   call test_suite_report(test_suite_boolean)
-  call test_case_final(test_suite_boolean)
+  call test_suite_final(test_suite_boolean)
 
   ! assert_equal  
   test_suite_equal%name = 'Equal'
@@ -99,7 +99,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]), suite=test_suite_equal)
 
   call test_suite_report(test_suite_equal)
-  call test_case_final(test_suite_equal)
+  call test_suite_final(test_suite_equal)
 
   ! assert_great_than
   test_suite_great_than%name = 'great_then'
@@ -121,6 +121,6 @@ program test_assert
 
   ! report
   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)