test_is_valid_timezone_offset Subroutine

public subroutine test_is_valid_timezone_offset()

Arguments

None

Calls

proc~~test_is_valid_timezone_offset~2~~CallsGraph proc~test_is_valid_timezone_offset~2 test_is_valid_timezone_offset assertfalse assertfalse proc~test_is_valid_timezone_offset~2->assertfalse asserttrue asserttrue proc~test_is_valid_timezone_offset~2->asserttrue is_valid_timezone_offset is_valid_timezone_offset proc~test_is_valid_timezone_offset~2->is_valid_timezone_offset

Source Code

   subroutine test_is_valid_timezone_offset()
      integer, parameter :: GOOD_TZ = 0
      integer, parameter :: BAD_TZ = 60
      @assertTrue(is_valid_timezone_offset(0))
      @assertTrue(is_valid_timezone_offset(60))
      @assertTrue(is_valid_timezone_offset(-60))
      @assertFalse(is_valid_timezone_offset(4320))
      @assertFalse(is_valid_timezone_offset(-1441))
   end subroutine test_is_valid_timezone_offset