File: 7.t

package info (click to toggle)
libtext-quoted-perl 2.05-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 136 kB
  • ctags: 89
  • sloc: perl: 979; makefile: 43
file content (18 lines) | stat: -rw-r--r-- 410 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;

use Test::More;
if ( eval { require Encode } ) {
    plan tests => 2;
} else {
    plan skip_all => "No Encode module, old perl";
}

use_ok('Text::Quoted');

$a = Encode::decode_utf8("x\303\203 \tz");
is_deeply( extract($a), [ { 
    text   => Encode::decode_utf8("x\303\203      z"),
    empty  => '',
    quoter => '',
    raw    => Encode::decode_utf8("x\303\203      z"),
} ], "No segfault");