forgex_test_m Module

The forgex_test_m module provides helper procedures to unit testing for Forgex.


Uses


Functions

public function is_eqv_str(str, ret)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: str
character(len=*), intent(in) :: ret

Return Value logical

public function is_valid__error(pattern, text, expected_err_code, return_code) result(res)

This function checks whether it returns the correct error for a given pattern and text.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: text
integer, intent(in) :: expected_err_code
integer, intent(inout) :: return_code

Return Value logical

public function is_valid__in(pattern, str, correct_answer) result(res)

This function checks if a pattern is found within a string and compares the result to the correct_answer.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: str
logical, intent(in) :: correct_answer

Return Value logical

public function is_valid__match(pattern, str, correct_answer) result(res)

This function checks if a pattern matches exactly a string and compares the result to the correct answer.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: str
logical, intent(in) :: correct_answer

Return Value logical

public function is_valid__pattern(pattern, correct_answer) result(res)

This function checks if the given pattern is valid as a regex pattern and compares the result to the correct_answer.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
logical, intent(in) :: correct_answer

Return Value logical

public function is_valid__prefix(pattern, expected_prefix, resulting) result(res)

This function checks whether the correct prefix is extracted for a given pattern.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: expected_prefix
character(len=:), allocatable :: resulting

Return Value logical

public function is_valid__regex(pattern, str, answer, substr) result(res)

This function checks if a pattern matches a string using the regex function and compares the result to the expected answer.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: str
character(len=*), intent(in) :: answer
character(len=:), intent(inout), allocatable :: substr

Return Value logical

public function is_valid__suffix(pattern, expected_suffix, resulting) result(res)

This function checks whether the correct suffix is extracted for a given pattern.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: expected_suffix
character(len=:), intent(inout), allocatable :: resulting

Return Value logical

public pure function nchar(i) result(chara)

nchar means 'negative char'.

Arguments

Type IntentOptional Attributes Name
integer(kind=int8), intent(in) :: i

Return Value character(len=1)

private function repeat(chara, num) result(txt)

This function generates a string by repeating a given pattern a specified number of times.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: chara
integer, intent(in) :: num

Return Value character(len=:), allocatable


Subroutines

public subroutine print_hex(str)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: str

public subroutine runner_error(pattern, text, code, result)

This subroutine runs is_valid_error function and prints its result.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: text
integer, intent(in) :: code
logical, intent(inout) :: result

public subroutine runner_in(pattern, str, answer, result)

This subroutine runs the is_valid__in function and prints the result.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: str
logical, intent(in) :: answer
logical, intent(inout) :: result

public subroutine runner_match(pattern, str, answer, result)

This subroutine runs the is_valid__match function and prints the result.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: str
logical, intent(in) :: answer
logical, intent(inout) :: result

public subroutine runner_prefix(pattern, prefix, result)

This subroutine runs the is_valid_prefix function and prints the result.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: prefix
logical, intent(inout) :: result

public subroutine runner_regex(pattern, str, answer, result)

This subroutine runs the is_valid__regex function and prints the result.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: str
character(len=*), intent(in) :: answer
logical, intent(inout) :: result

public subroutine runner_suffix(pattern, suffix, result)

This function runs the is_valid_suffix function and prints the result.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
character(len=*), intent(in) :: suffix
logical, intent(inout) :: result

public subroutine runner_validate(pattern, answer, result)

This subroutine runs the is_valid__pattern function and prints the result.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: pattern
logical, intent(in) :: answer
logical, intent(inout) :: result