#!perl
use Cassandane::Tiny;

sub test_carddavcreate ($self)
{
    my $CardDAV = $self->{carddav};

    my $Id = $CardDAV->NewAddressBook('foo');
    $self->assert_not_null($Id);
}
