index 9498c18d7d16dc45af2e8584be84ddc8990be93c..16570a4e2cb4b4c109c8e0ab0446f212cb9772e9 100644 (file)
# named parameters are passed to connect_ok/fails as-is.
sub test_role
{
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
my ($node, $role, $method, $expected_res, %params) = @_;
my $status_string = 'failed';
$status_string = 'success' if ($expected_res eq 0);
index 4799e927dbb9f6de74c064283f18b6617f8655d0..acd379df31666624a3fd1333bedcdc4a2a4b3c04 100644 (file)
# Test access for a single role, useful to wrap all tests into one.
sub test_login
{
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
my $node = shift;
my $role = shift;
my $password = shift;
index 2c81a26ac73da666ccdb2c318bfd7c76eb070d00..c484237d07848ff5e32bdbde93b57686738e2caf 100644 (file)
# Test connection success or failure, and if success, that query returns true.
sub test_access
{
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
my ($node, $role, $query, $expected_res, $gssencmode, $test_name,
@expect_log_msgs)
= @_;
index 1d1282f8dca9a16cb5a8cd108002b69d393bcf31..f670bc5e0d52f5d48a1b87fa1fd4d837b4600f5b 100644 (file)
sub test_access
{
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
my ($node, $role, $expected_res, $test_name, %params) = @_;
my $connstr = "user=$role";