test_time Subroutine

public subroutine test_time()

Arguments

None

Calls

proc~~test_time~~CallsGraph proc~test_time test_time assert_that assert_that proc~test_time->assert_that false false proc~test_time->false proc~is_valid_time is_valid_time proc~test_time->proc~is_valid_time true true proc~test_time->true

Source Code

   subroutine test_time()

      integer :: time

      time = 000000
      @assert_that(is_valid_time(time), is(true()))

      time = 235959
      @assert_that(is_valid_time(time), is(true()))

      time = 240000
      @assert_that(is_valid_time(time), is(true()))

      time = -000001
      @assert_that(is_valid_time(time), is(false()))

      time = 240001
      @assert_that(is_valid_time(time), is(false()))

      time = 006000
      @assert_that(is_valid_time(time), is(false()))

      time = 000060
      @assert_that(is_valid_time(time), is(false()))

      time = 234567
      @assert_that(is_valid_time(time), is(false()))

   end subroutine test_time