test_logging_mod Module Reference

Functions/Subroutines
subroutine	test_logging_level
subroutine	test_logging_preamble ()
character(len=15) function	str (k)

Function/Subroutine Documentation

str()

character(len=15) function test_logging_mod::str

(

integer, intent(in)

k

)

Definition at line 57 of file test_logging.F90.

      integer, intent(in) :: k
      write (str, *) k
      str = adjustl(str)

Here is the caller graph for this function:

test_logging_level()

subroutine test_logging_mod::test_logging_level

(

)

Definition at line 15 of file test_logging.F90.

      character(len=30) :: outpt
      
      integer i, j, space
      
      do i=1,4
         call log_set_logging_level(i)
         call assert_equals(i, log_get_logging_level(), "Logging level has been set correctly")
         do j=1,4
            call log_log(j, str(j)//" level", outpt)
            if (j .le. i) then
               space = index(outpt, "] ")
               call assert_true(space .gt. 0, "The logging_mod message terminates")
               outpt = outpt(space+2 : len(outpt))
               call assert_equals(str(j)//" level", outpt, &
                    "Message included for specific logging_mod level")
            else
               call assert_not_equals(str(j)//" level", outpt, &
                    "Message ignored for specific logging_mod level")
            end if
         end do
      end do

Here is the call graph for this function:

Here is the caller graph for this function:

test_logging_preamble()

subroutine test_logging_mod::test_logging_preamble

(

)

Definition at line 40 of file test_logging.F90.

      character(len=7) :: preamble
      
      preamble = get_logging_preamble(log_error)
      call assert_equals(error_preamble, preamble)

      preamble = get_logging_preamble(log_warn)
      call assert_equals(warn_preamble, preamble)

      preamble = get_logging_preamble(log_info)
      call assert_equals(info_preamble, preamble)

      preamble = get_logging_preamble(log_debug)
      call assert_equals(debug_preamble, preamble)

Here is the call graph for this function:

Here is the caller graph for this function: