1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!perl -w
use strict;
use lib qw(t);
use Cal::DAV;
use Test::More;
use CalDAVTest;
use Data::ICal;
#use HTTP::DAV;
#HTTP::DAV::DebugLevel(3);
for (qw(CAL_DAV_USER CAL_DAV_PASS CAL_DAV_URL_BASE)) {
if (!defined $ENV{$_}) {
plan skip_all => "Need to provide a $_ environment variable";
}
}
plan tests => 14;
my $cal;
ok($cal = get_cal_dav('birthday.ics'), "Instantiated ok");
# Parse
ok($cal->parse(filename => 't/ics/birthdays.ics'), "Parsed a file");
# Save
ok($cal->save, "Saved");
# Get
$cal = undef;
ok($cal = get_cal_dav('birthday.ics'), "Instantiated again");
# Check
my $entries;
ok($entries = $cal->entries, "Got entries");
is(scalar(@$entries), 1, "Got 1 entry");
# Modify
ok($cal->add_entry(make_entry()), "Added an entry");
# Save
ok($cal->save, "Save modified calendar");
# Get
ok($entries = $cal->entries, "Got entries after modification");
is(scalar(@$entries), 2, "Got 2 entries");
# Check
$cal = undef;
ok($cal = get_cal_dav('birthday.ics'), "Instantiated yet again");
ok($entries = $cal->entries, "Got entries after modification and destroy");
is(scalar(@$entries), 2, "Still got 2 entries");
# Delete
ok($cal->delete, "Deleted");
sub make_entry {
my $d = Data::ICal->new( filename => 't/ics/new.ics' );
return $d->entries->[0];
}
|
