test_verify Subroutine

public subroutine test_verify()

Arguments

None

Calls

proc~~test_verify~~CallsGraph proc~test_verify test_verify assert_that assert_that proc~test_verify->assert_that equal_to equal_to proc~test_verify->equal_to

Source Code

   subroutine test_verify()
      type(String) :: s, set

      s = 'abcdabcd'
      @assert_that(s%verify('da'), is(equal_to(2)))
      @assert_that(s%verify('da', back=.true.), is(equal_to(7)))

      set = 'da'
      @assert_that(s%verify(set), is(equal_to(2)))
      @assert_that(s%verify(set, back=.true.), is(equal_to(7)))
      
   end subroutine test_verify