#!perl
use Cassandane::Tiny;

sub test_tspecial_resource_name
{
    my ($self) = @_;

    my $carddav = $self->{carddav};
    my $card = <<EOF;
BEGIN:VCARD
VERSION:3.0
UID:123456789
N:Gump;Forrest;;Mr.
FN:Forrest Gump
ORG:Bubba Gump Shrimp Co.
TITLE:Shrimp Man
REV:2008-04-24T19:52:43Z
END:VCARD
EOF

    my $href = "Default/()<>@,;:\"[]?=.vcf";
    $carddav->Request('PUT', $href, $card, 'Content-Type' => 'text/vcard');
    my $res = $carddav->Request('GET', $href);
    $self->assert_matches(qr/\r\nUID:123456789\r\n/, $res->{content});
}
