diff options
Diffstat (limited to 'libical/src/Net-ICal-Libical/test/swig.pl')
-rwxr-xr-x | libical/src/Net-ICal-Libical/test/swig.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/libical/src/Net-ICal-Libical/test/swig.pl b/libical/src/Net-ICal-Libical/test/swig.pl new file mode 100755 index 0000000000..939f5ce936 --- /dev/null +++ b/libical/src/Net-ICal-Libical/test/swig.pl @@ -0,0 +1,29 @@ +#!/usr/bin/perl + +use lib "../blib/lib"; +use lib "../blib/arch"; +use lib "../"; + +use Net::ICal::Libical; + + +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 + +$c = Net::ICal::Libical::icalparser_parse_string($comp_str); + +print Net::ICal::Libical::icalcomponent_as_ical_string($c)."\n"; |