test_is_between Subroutine

public subroutine test_is_between()

Arguments

None

Calls

proc~~test_is_between~~CallsGraph proc~test_is_between test_is_between assertfalse assertfalse proc~test_is_between->assertfalse asserttrue asserttrue proc~test_is_between->asserttrue proc~is_between is_between proc~test_is_between->proc~is_between

Source Code

   subroutine test_is_between()
      integer, parameter :: lower = 36
      integer, parameter :: upper = 48
      integer, parameter :: delta = 6
      @assertTrue(is_between(lower, upper, lower + delta))
      @assertFalse(is_between(lower, upper, lower))
      @assertFalse(is_between(lower, upper, lower - 1))
      @assertFalse(is_between(lower, upper, upper))
      @assertFalse(is_between(lower, upper, upper + 1))
   end subroutine test_is_between