self_assert Module
Uses:
- iso_fortran_env
- self_object
Variables
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=*), | public, | parameter | :: | NL | = | new_line('') | |
| character(len=1), | public, | parameter | :: | ESC | = | achar(27) | |
| character(len=5), | public, | parameter | :: | mode_black | = | ESC//'[30m' | |
| character(len=5), | public, | parameter | :: | mode_red | = | ESC//'[31m' | |
| character(len=5), | public, | parameter | :: | mode_green | = | ESC//'[32m' | |
| character(len=5), | public, | parameter | :: | mode_yellow | = | ESC//'[33m' | |
| character(len=5), | public, | parameter | :: | mode_blue | = | ESC//'[34m' | |
| character(len=5), | public, | parameter | :: | mode_purple | = | ESC//'[35m' | |
| character(len=5), | public, | parameter | :: | mode_aqua | = | ESC//'[36m' | |
| character(len=5), | public, | parameter | :: | mode_dark_grey | = | ESC//'[90m' | |
| character(len=5), | public, | parameter | :: | mode_peach | = | ESC//'[91m' | |
| character(len=5), | public, | parameter | :: | mode_light_green | = | ESC//'[92m' | |
| character(len=5), | public, | parameter | :: | mode_light_yellow | = | ESC//'[93m' | |
| character(len=5), | public, | parameter | :: | mode_light_blue | = | ESC//'[94m' | |
| character(len=5), | public, | parameter | :: | mode_pink | = | ESC//'[95m' | |
| character(len=5), | public, | parameter | :: | mode_light_aqua | = | ESC//'[96m' | |
| character(len=5), | public, | parameter | :: | mode_pearl_white | = | ESC//'[97m' | |
| character(len=4), | public, | parameter | :: | mode_bold | = | ESC//'[1m' | |
| character(len=4), | public, | parameter | :: | mode_normal | = | ESC//'[0m' | |
| integer, | private | :: | counter | = | 0 |
Subroutines
public subroutine print_mode(mode, message, stderr)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | mode | |||
| character(len=*), | intent(in) | :: | message | |||
| logical, | intent(in), | optional | :: | stderr |
public subroutine print_error(message, stderr)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | message | |||
| logical, | intent(in), | optional | :: | stderr |
public subroutine print_verbose(message)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | message |
public subroutine print_footer(message, stderr)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | message | |||
| logical, | intent(in), | optional | :: | stderr |
public subroutine print_summary(message, stderr)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | message | |||
| logical, | intent(in), | optional | :: | stderr |
public subroutine assert(this, message)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| logical, | intent(in) | :: | this | |||
| character(len=*), | intent(in), | optional | :: | message |
public subroutine assert_equal(a, b, message, verbose)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(*), | intent(in) | :: | a | |||
| class(*), | intent(in) | :: | b | |||
| character(len=*) | , | optional | :: | message | ||
| logical | , | optional | :: | verbose |
public subroutine assert_not_equal(a, b, message, verbose)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(*), | intent(in) | :: | a | |||
| class(*), | intent(in) | :: | b | |||
| character(len=*) | , | optional | :: | message | ||
| logical | , | optional | :: | verbose |