diff options
Diffstat (limited to 'libical/src/Net-ICal-Libical/test/component.pl')
-rw-r--r-- | libical/src/Net-ICal-Libical/test/component.pl | 106 |
1 files changed, 0 insertions, 106 deletions
diff --git a/libical/src/Net-ICal-Libical/test/component.pl b/libical/src/Net-ICal-Libical/test/component.pl deleted file mode 100644 index 2fdaf41d65..0000000000 --- a/libical/src/Net-ICal-Libical/test/component.pl +++ /dev/null @@ -1,106 +0,0 @@ -#!/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 -PRODID - :-//ACME/DesktopCalendar//EN -VERSION - :2.0 -BEGIN:VEVENT -ORGANIZER - :mailto:a\@example.com -ATTENDEE - ;RSVP=TRUE - ;ROLE=REQ-PARTICIPANT - ;CUTYPE=GROUP - :MAILTO:employee-A\@host.com -DTSTART - :19970701T200000Z -DURATION - :P3DT4H50M36S -DTSTAMP - :19970611T190000Z -SUMMARY - :ST. PAUL SAINTS -VS- DULUTH-SUPERIOR DUKES -UID - :0981234-1234234-23\@example.com -END:VEVENT -END:VCALENDAR -EOM - -my $c; - -$c = new Net::ICal::Libical::Component($comp_str); - -my @props = $c->properties(); - -my $p; -foreach $p (@props) { - print $p->name()." ".$p->value()."\n"; - -} - -$inner = ($c->components())[0]; - -print "\n"; - -print " -------- Attendee \n"; - -$p = ($inner->properties('ATTENDEE'))[0]; - -print $p->as_ical_string(),"\n"; - -print $p->get_parameter('ROLE'),"\n"; - -die if $p->get_parameter('ROLE') ne 'REQ-PARTICIPANT'; - -$p->set_parameter('ROLE','INDIVIDUAL'); - -print $p->as_ical_string(),"\n"; - -print " -------- DTSTART \n"; - -$p = ($inner->properties('DTSTART'))[0]; - -print $p->as_ical_string()."\n"; -print $p->as_ical_string()."\n"; - -print "hour: ". $p->hour()." \n"; - -$p->hour($p->hour() - 10); - -print $p->hour(),"\n"; - -$p->timezone('America/Los_Angeles'); - -print $p->as_ical_string()."\n"; - - -print "----------- DURATION \n"; - -$p = ($inner->properties('DURATION'))[0]; - -print $p->as_ical_string()."\n"; - -print $p->seconds(),"\n"; - -$p->seconds(3630); - -print $p->as_ical_string()."\n"; -print $p->seconds(),"\n"; - - - |