File: expand_tab_segfault.t

package info (click to toggle)
libtext-quoted-perl 2.10-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 184 kB
  • sloc: perl: 1,536; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 392 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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"),
    quoter => '',
    raw    => Encode::decode_utf8("x\303\203      z"),
} ], "No segfault");