File: base.t

package info (click to toggle)
libencode-detect-perl 1.01-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 720 kB
  • sloc: cpp: 4,032; perl: 27; ansic: 21; makefile: 3
file content (22 lines) | stat: -r--r--r-- 438 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use strict;
use warnings;
use Test::More qw(no_plan);

BEGIN { use_ok('Encode::Detect::Detector') }

our $d;

ok($d = new Encode::Detect::Detector, 'new');

can_ok('Encode::Detect::Detector', 'detect');

can_ok($d, qw(handle getresult DESTROY));

is($d->handle("\x82\xb7\x82\xb2\x82\xa2\x82\xcc\x82\xdd\x82\xc2"), 0, 'handle');

$d->eof;

is($d->getresult, "Shift_JIS", 'getresult');

is(detect("j\xc2\x92aimerais"), "UTF-8", 'detect');