test_is_valid_year Subroutine

public subroutine test_is_valid_year()

Arguments

None

Calls

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

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