File: 06a-encoding2.t

package info (click to toggle)
libtext-vcard-perl 3.06-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 352 kB
  • ctags: 110
  • sloc: perl: 1,535; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 357 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
use Test::Most;
use lib 'lib';

use Text::vCard::Addressbook;

my $card_type = 'encoding2.vcf';

my $address_book = Text::vCard::Addressbook    #
    ->new( { source_file => "t/$card_type" } );

foreach my $vcard ( $address_book->vcards() ) {
    my $string = $vcard->as_string();
    ok $string !~ /Gau=C3=83=C2=9F/, "no double encoding";
}

done_testing;