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
|
#!/usr/bin/perl -w
use warnings;
use strict;
use Test::More tests => 6;
use Test::LongString;
use Test::NoWarnings;
my $encoded_vcal = <<END_VCAL;
BEGIN:VCALENDAR
VERSION:2.0
PRODID:Data::ICal @{[$Data::ICal::VERSION]}
BEGIN:VTODO
DESCRIPTION;ENCODING=QUOTED-PRINTABLE:interesting things =0D=0AYeah
!!=3D cbla=0D=0A=0D=0A=0D=0AGo team syncml!=0D=0A=0D=0A=0D=0A
END:VTODO
END:VCALENDAR
END_VCAL
my $decoded_desc = <<'END_DESC';
interesting things
Yeah!!= cbla
Go team syncml!
END_DESC
BEGIN { use_ok('Data::ICal') }
my $cal = Data::ICal->new(data => $encoded_vcal);
isa_ok($cal, 'Data::ICal');
is_string($cal->entries->[0]->property("description")->[0]->decoded_value, $decoded_desc);
$cal = Data::ICal->new;
BEGIN { use_ok 'Data::ICal::Entry::Todo' }
my $todo = Data::ICal::Entry::Todo->new;
$cal->add_entry($todo);
$todo->add_property(description => $decoded_desc);
$cal->entries->[0]->property('description')->[0]->encode('QUotED-PRintabLE');
is_string($cal->as_string( crlf => "\n" ), $encoded_vcal);
|
