The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
# vim: set ft=perl :

use strict;
use warnings;

use Test::More tests => 5;

use_ok('Java::JCR');
use_ok('Java::JCR::Jackrabbit');

my $repository = Java::JCR::Jackrabbit->new;
ok($repository);

my $session = $repository->login(
    Java::JCR::SimpleCredentials->new('username', 'password'));
ok($session);

Java::JCR::Jackrabbit->register_node_types($session, 't/nodetypes.cnd');

my $root = $session->get_root_node;
my $node = $root->add_node('testing', 'test:unstructured');
ok($node);

$root->save;

$node->remove;
$root->save;

$session->logout;