The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

MSCHILLI / Text-Language-Guess-0.02 / t / 001Basic.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

              
######################################################################
# Test suite for Text::Language::Guess
# by Mike Schilli <cpan@perlmeister.com>
######################################################################
use warnings;
use strict;
use Test::More tests => 11;
BEGIN { use_ok('Text::Language::Guess') };
my $canned = "canned";
$canned = "t/canned" unless -d $canned;
######################################################################
# file versions
######################################################################
my $guesser = Text::Language::Guess->new();
is($guesser->language_guess("$canned/de.txt"), 'de', "Guess German");
is($guesser->language_guess("$canned/en.txt"), 'en', "Guess English");
######################################################################
# string versions
######################################################################
my $data = Text::Language::Guess::slurp("$canned/de.txt");
is($guesser->language_guess_string($data), 'de', "Guess German");
$data = Text::Language::Guess::slurp("$canned/en.txt");
is($guesser->language_guess_string($data), 'en', "Guess English");
######################################################################
# scores
######################################################################
my $scores = $guesser->scores("$canned/de.txt");
ok(exists $scores->{de}, "de in score table");
$scores = $guesser->scores("$canned/en.txt");
ok(exists $scores->{en}, "en in score table");
    # string versions
$data = Text::Language::Guess::slurp("$canned/de.txt");
$scores = $guesser->scores_string($data);
ok(exists $scores->{de}, "de in score table");
$data = Text::Language::Guess::slurp("$canned/en.txt");
$scores = $guesser->scores_string($data);
ok(exists $scores->{en}, "en in score table");
######################################################################
# limited choices
######################################################################
$guesser = Text::Language::Guess->new(languages => ['da', 'nl']);
like($guesser->language_guess("$canned/de.txt"), qr/da|nl/,
        "Limited choice");
like($guesser->language_guess("$canned/en.txt"), qr/da|nl/,
        "Limited choice");