#!perl
use Cassandane::Tiny;

sub test_calendarevent_get_properties
    :min_version_3_1
{
    my ($self) = @_;

    my ($id, $ical) = $self->icalfile('simple');

    my $event = $self->putandget_vevent($id, $ical, ["x-href", "calendarIds"]);
    $self->assert_not_null($event);
    $self->assert_not_null($event->{id});
    $self->assert_not_null($event->{uid});
    $self->assert_not_null($event->{"x-href"});
    $self->assert_not_null($event->{calendarIds});
    $self->assert_num_equals(5, scalar keys %$event);
}
