test_is_valid_year Subroutine

public subroutine test_is_valid_year()

Arguments

None

Calls

proc~~test_is_valid_year~2~~CallsGraph proc~test_is_valid_year~2 test_is_valid_year assertfalse assertfalse proc~test_is_valid_year~2->assertfalse asserttrue asserttrue proc~test_is_valid_year~2->asserttrue proc~is_valid_year is_valid_year proc~test_is_valid_year~2->proc~is_valid_year proc~is_between is_between proc~is_valid_year->proc~is_between

Source Code

   subroutine test_is_valid_year()
      integer :: i

      @assertFalse(is_valid_year(-1))
      @assertFalse(is_valid_year(10000))
      do i = 0, 9999
         @assertTrue(is_valid_year(i))
      end do
   end subroutine test_is_valid_year