view release on metacpan or  search on metacpan

t/03-document.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);

my $db = $arango->create_database("tmp_");

my $collection = $db->create_collection("collection");

$collection->create_document( { Hello => 'World' });

my $count = $collection->count;
is $count->{count}, 1;

my $list = $collection->document_paths();

is ref($list) => "ARRAY" => "List of paths is an array";
like $list->[0] => qr!/_db/tmp_/_api/document/collection/\d+! => "path looks right";

$collection->create_document( q!{ "Hello" : "World", "_key" : "baz" }! );
$list = $collection->document_paths();

is scalar(@$list), 2;

my $document = $collection->document("baz");
is ref($document) => "HASH" => "document retrieved correctly";

$collection->bulk_import([{"name" => "Euler", "_key" => "E"}], waitForSync => 1);
$list = $collection->document_paths();
is scalar(@$list), 3;

$collection->bulk_import([{"name" => "Pythagoras", "_key" => "P"}, {"name" => "Kant", "_key" => "K"}]);
my $pythagoras = $collection->document("P");
is ref($pythagoras) => "HASH" => "document from bulk import is there";
is $pythagoras->{name} => "Pythagoras";
$list = $collection->document_paths();
is scalar(@$list), 5;

$collection->bulk_import([{"name" => "Prometheus", "_key" => "P"}], onDuplicate => 'replace');
$list = $collection->document_paths();
is scalar(@$list), 5;
my $prometheus = $collection->document("P");
is $prometheus->{name} => "Prometheus";

$collection->delete_document("P");
$list = $collection->document_paths();
is scalar(@$list), 4;
eval {
    my $prometheus2 = $collection->document("P");
};
ok ( $@ =~ /404/);



my $ans = $collection->truncate;
is $ans->{name}, "collection";

$list = $collection->document_paths();
is scalar(@$list), 0;

$arango->delete_database("tmp_");

done_testing;