view release on metacpan or  search on metacpan

t/01-database.t  view on Meta::CPAN

# -*- cperl -*-
use Arango::Tango;
use Test2::V0;
use Test2::Tools::Exception qw/dies lives/;

do "./t/helper.pl";

skip_all "No ArangoDB environment variables for testing. See README" unless valid_env_vars();
skip_all "Can't reach ArangoDB Server" unless server_alive();

my $arango = Arango::Tango->new( );
skip_all "Credentials problems" unless auth_ok($arango);

clean_test_environment($arango);

## -- version
my $version = $arango->version;
is $version->{server} => 'arango';
is ($arango->http_status(), 200, "Version returns a 200 status");

$version = $arango->version( details => 1 );
ok (exists($version->{details}));

$version = $arango->version( details => 0 );
ok (!exists($version->{details}));

## -- status
my $status = $arango->status;
is $status->{server} => 'arango';

## -- time
my $time = $arango->time;
like $time->{time}, qr/^\d+(?:\.\d+)?$/;

## -- statistics
my $stats = $arango->statistics;
like $stats->{time}, qr/^\d+(?:\.\d+)?$/;
like $stats->{http}{requestsTotal}, qr/^\d+$/;

my $stats_desc = $arango->statistics_description;
ok exists($stats_desc->{groups});
is ref($stats_desc->{groups}), "ARRAY";

## -- target version

my $target_version = $arango->target_version;
ok exists($target_version->{version});

## -- logs

my $logs = $arango->log;
ok exists($logs->{level});

my $log_level = $arango->log_level;
ok exists($log_level->{config});

## -- availability

my $availability = $arango->server_availability;
ok !$availability->{error};
ok exists($availability->{mode});

my $mode = $arango->server_mode;
ok !$mode->{error};
ok exists($mode->{mode});

## --- Cluster mode

my $id = eval { $arango->server_id };