NAME

TestCommon::Utils - Common Test Utils

Synopsis

use TestCommon::Utils;

# test whether some SV is tainted
$b->read(my $data);
ok TestCommon::Utils::is_tainted($data);

my $data = TestCommon::Utils::read_post($r);

Description

Various handy testing utils

API

is_tainted

is_tainted(@data);

returns TRUE if at least one element in @data is tainted, FALSE otherwise.

read_post

my $data = TestCommon::Utils::read_post($r);
my $data = TestCommon::Utils::read_post($r, $debug);

reads the posted data using bucket brigades manipulation.

To enable debug pass a true argument $debug