view release on metacpan or  search on metacpan

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

## -- 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 };
SKIP: {
    skip "Not running in cluster mode" if $@ =~ /Internal Server Error/;

    is ref($id), "HASH"; ## not sure, until some cluster user can confirm me

    my $eps = $arango->cluster_endpoints;
    ok exists($eps->{endpoints}); ## not sure, until some cluster user can confirm me
}

my $role = $arango->server_role;
ok !$role->{error};

### engine

my $engine = $arango->engine;
like $engine->{name}, qr/^(mmfiles|rocksdb)$/;


## ---

my $ans = $arango->list_databases;

is ref($ans), "ARRAY", "Databases list is an array";
ok grep { /^_system$/ } @$ans, "System database is present";

$ans = $arango->create_database('tmp_');

isa_ok($ans => "Arango::Tango::Database");

$ans = $arango->list_databases;
ok grep { /^tmp_$/ } @$ans, "tmp_ database was created";

$arango->delete_database('tmp_');

$ans = $arango->list_databases;
ok !grep { /^tmp_$/ } @$ans, "tmp_ database was deleted";

like(
    dies { my $system_db = $arango->database("system"); },
    qr/Arango::Tango.*Database not found/,
    "Got exception"
);

my $system = $arango->database("_system");
isa_ok($system => "Arango::Tango::Database");

my $db = $arango->create_database('tmp_', users => [ {username => 'tmp_user_', active => 1, extra => { email => 'me@there.com' } } ]);  ## Recreate for more tests
$ans = $arango->list_databases;
ok grep { /^tmp_$/ } @$ans, "tmp_ database was created";

my $user = $arango->user('tmp_user_');
is ($user->{extra}{email}, 'me@there.com');

my $current = $arango->current_database;
is $current->{result}{name}, "_system";
ok $current->{result}{isSystem};

$db->delete;  ## Delete database using method.
$ans = $arango->list_databases;
ok !grep { /^tmp_$/ } @$ans, "tmp_ database was deleted";


done_testing;