flap_test_utils

Source: src/third_party/FLAP/src/tests/flap_test_utils.F90

Dependencies

Contents

• assert_equal
• assert
• assert_contains
• assert_equal_character
• assert_equal_logical
• assert_equal_I4P
• assert_equal_R8P
• assert_equal_I4P_1d
• assert_equal_R8P_1d
• capture_open
• capture_close
• write_file
• delete_file
• run_command
• reinvoke
• fail
• read_back
• read_file
• scratch_file
• child_case
• read_all
• integer_to_string
• real_to_string
• logical_to_string
• reals_match

Variables

Name	Type	Attributes	Description
CASE_ENV	character(len=*)	parameter

Interfaces

assert_equal

Module procedures: assert_equal_character, assert_equal_logical, assert_equal_I4P, assert_equal_R8P, assert_equal_I4P_1d, assert_equal_R8P_1d

Subroutines

assert

subroutine assert(condition, message)

Arguments

Name	Type	Intent	Attributes	Description
condition	logical	in
message	character(len=*)	in

Call graph

assert_contains

subroutine assert_contains(text, substring, message)

Arguments

Name	Type	Intent	Attributes	Description
text	character(len=*)	in
substring	character(len=*)	in
message	character(len=*)	in

Call graph

assert_equal_character

subroutine assert_equal_character(actual, expected, message)

Arguments

Name	Type	Intent	Attributes	Description
actual	character(len=*)	in
expected	character(len=*)	in
message	character(len=*)	in

Call graph

assert_equal_logical

subroutine assert_equal_logical(actual, expected, message)

Arguments

Name	Type	Intent	Attributes	Description
actual	logical	in
expected	logical	in
message	character(len=*)	in

Call graph

assert_equal_I4P

subroutine assert_equal_I4P(actual, expected, message)

Arguments

Name	Type	Intent	Attributes	Description
actual	integer(kind=I4P)	in
expected	integer(kind=I4P)	in
message	character(len=*)	in

Call graph

assert_equal_R8P

subroutine assert_equal_R8P(actual, expected, message, tol)

Arguments

Name	Type	Intent	Attributes	Description
actual	real(kind=R8P)	in
expected	real(kind=R8P)	in
message	character(len=*)	in
tol	real(kind=R8P)	in	optional

Call graph

assert_equal_I4P_1d

subroutine assert_equal_I4P_1d(actual, expected, message)

Arguments

Name	Type	Intent	Attributes	Description
actual	integer(kind=I4P)	in
expected	integer(kind=I4P)	in
message	character(len=*)	in

Call graph

assert_equal_R8P_1d

subroutine assert_equal_R8P_1d(actual, expected, message, tol)

Arguments

Name	Type	Intent	Attributes	Description
actual	real(kind=R8P)	in
expected	real(kind=R8P)	in
message	character(len=*)	in
tol	real(kind=R8P)	in	optional

Call graph

capture_open

subroutine capture_open(lun)

Arguments

Name	Type	Intent	Attributes	Description
lun	integer(kind=I4P)	out

Call graph

capture_close

subroutine capture_close(lun)

Arguments

Name	Type	Intent	Attributes	Description
lun	integer(kind=I4P)	in

write_file

subroutine write_file(path, text)

Arguments

Name	Type	Intent	Attributes	Description
path	character(len=*)	in
text	character(len=*)	in

Call graph

delete_file

subroutine delete_file(path)

Arguments

Name	Type	Intent	Attributes	Description
path	character(len=*)	in

Call graph

run_command

subroutine run_command(cmd, exitstat, out)

Arguments

Name	Type	Intent	Attributes	Description
cmd	character(len=*)	in
exitstat	integer(kind=I4P)	out
out	character(len=:)	out	allocatable

Call graph

reinvoke

subroutine reinvoke(case, exitstat, out, err, args, env, stdin)

Arguments

Name	Type	Intent	Attributes	Description
case	integer(kind=I4P)	in
exitstat	integer(kind=I4P)	out
out	character(len=:)	out	allocatable
err	character(len=:)	out	allocatable
args	character(len=*)	in	optional
env	character(len=*)	in	optional
stdin	character(len=*)	in	optional

Call graph

fail

subroutine fail(message)

Arguments

Name	Type	Intent	Attributes	Description
message	character(len=*)	in

Call graph

Functions

read_back

Returns: character(len=:)

function read_back(lun) result(text)

Arguments

Name	Type	Intent	Attributes	Description
lun	integer(kind=I4P)	in

Call graph

read_file

Returns: character(len=:)

function read_file(path) result(text)

Arguments

Name	Type	Intent	Attributes	Description
path	character(len=*)	in

Call graph

scratch_file

Returns: character(len=:)

function scratch_file(name) result(path)

Arguments

Name	Type	Intent	Attributes	Description
name	character(len=*)	in

Call graph

child_case

Returns: integer(kind=I4P)

function child_case() result(case)

Call graph

read_all

Returns: character(len=:)

function read_all(lun) result(text)

Arguments

Name	Type	Intent	Attributes	Description
lun	integer(kind=I4P)	in

Call graph

integer_to_string

Attributes: pure

Returns: character(len=:)

function integer_to_string(n) result(string)

Arguments

Name	Type	Intent	Attributes	Description
n	integer(kind=I4P)	in

Call graph

real_to_string

Attributes: pure

Returns: character(len=:)

function real_to_string(x) result(string)

Arguments

Name	Type	Intent	Attributes	Description
x	real(kind=R8P)	in

Call graph

logical_to_string

Attributes: pure

Returns: character(len=:)

function logical_to_string(l) result(string)

Arguments

Name	Type	Intent	Attributes	Description
l	logical	in

Call graph

reals_match

Attributes: pure

Returns: logical

function reals_match(actual, expected, tol) result(match)

Arguments

Name	Type	Intent	Attributes	Description
actual	real(kind=R8P)	in
expected	real(kind=R8P)	in
tol	real(kind=R8P)	in	optional

Call graph