diff options
| author | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-07-18 20:41:42 +0100 |
|---|---|---|
| committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-07-18 20:41:42 +0100 |
| commit | 5bb10cf303762530d847b2d9879e6b0fdf32603f (patch) | |
| tree | 028b559e572d030bf98c541306819c4248985576 /src/Net-ICal-Libical/test/libical.pl | |
| download | libical-5bb10cf303762530d847b2d9879e6b0fdf32603f.tar.gz | |
Tarball conversion
Diffstat (limited to 'src/Net-ICal-Libical/test/libical.pl')
| -rwxr-xr-x | src/Net-ICal-Libical/test/libical.pl | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/src/Net-ICal-Libical/test/libical.pl b/src/Net-ICal-Libical/test/libical.pl new file mode 100755 index 0000000..9499dd9 --- /dev/null +++ b/src/Net-ICal-Libical/test/libical.pl @@ -0,0 +1,94 @@ +#!/usr/bin/perl + +use lib "../blib/lib"; +use lib "../blib/arch"; +use lib "../"; + +use Time::Local; + +use Net::ICal::Libical; + +use POSIX; + + +my $comp_str=<<EOM; +BEGIN:VCALENDAR +METHOD:PUBLISH +VERSION:2.0 +PRODID:-//ACME/DesktopCalendar//EN +BEGIN:VEVENT +ORGANIZER:mailto:a\@example.com +DTSTAMP:19970612T190000Z +DTSTART:19970701T210000Z +DTEND:19970701T230000Z +SEQUENCE:1 +UID:0981234-1234234-23\@example.com +SUMMARY:ST. PAUL SAINTS -VS- DULUTH-SUPERIOR DUKES +END:VEVENT +END:VCALENDAR +EOM + +my $comp_str_error=<<EOM; +BEGIN:VCALENDAR +METHOD:REQUEST +VERSION:2.0 +PRODID:-//ACME/DesktopCalendar//EN +BEGIN:VEVENT +ORGANIZER:mailto:a\@example.com +DTSTAMP:19970612T190000Z +DTSTART:19970701T210000Z +DTEND:19970701T230000Z +SEQENCE:1 +UID:0981234-1234234-23\@example.com +SUMMARY:ST. PAUL SAINTS -VS- DULUTH-SUPERIOR DUKES +END:VEVENT +END:VCALENDAR +EOM + +print "-- Good Component --\n"; +print Net::ICal::Libical::validate_component($comp_str); + +print "-- BadComponent --\n"; +print Net::ICal::Libical::validate_component($comp_str_error); + + +print "-- Generate Occurrences --\n"; +$rule = "FREQ=MONTHLY;UNTIL=19971224T000000Z;INTERVAL=1;BYDAY=TU,2FR,3SA"; +$limit = 25; +$start = timelocal(0,0,9,5,8,1997); # 19970905T090000Z + +@occur = Net::ICal::Libical::generate_occurrences($rule,$start,$limit); + +print $rule."\n"; + +foreach $i (@occur){ + + my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($i); + + printf("%s %s %2d %02d:%02d:%02d %d\n", + (Sun,Mon,Tue,Wed,Thur,Fri,Sat)[$wday], + (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon], + $mday, + $hour,$min,$sec, + $year); + +} + +print "-- Interpret iCal data --\n"; + + +my $comp_str=<<EOM; +BEGIN:VEVENT +ORGANIZER:mailto:a\@example.com +DTSTAMP:19970612T190000Z +DTSTART:19970701T210000Z +DTEND:19970701T230000Z +SEQUENCE:1 +UID:0981234-1234234-23\@example.com +SUMMARY:ST. PAUL SAINTS -VS- DULUTH-SUPERIOR DUKES +END:VEVENT + +EOM + + + |