Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

BAYASHI / Duadua-0.34 / t / 20_util.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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

              
use strict;
use warnings;
use Test::More;
use Duadua;
use Duadua::Util;
{
    my $d = Duadua->new('Mozilla/5.0 Android');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_android}, $ret->{is_android};
}
{
    my $d = Duadua->new('Mozilla/5.0 Linux');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_linux}, $ret->{is_linux};
}
{
    my $d = Duadua->new('Mozilla/5.0 Win32');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_windows}, $ret->{is_windows};
}
{
    my $d = Duadua->new('Mozilla/5.0 Windows');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_windows}, $ret->{is_windows};
}
{
    my $d = Duadua->new('Mozilla/5.0 iPhone');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_ios}, $ret->{is_ios};
}
{
    my $d = Duadua->new('Mozilla/5.0 iPad');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_ios}, $ret->{is_ios};
}
{
    my $d = Duadua->new('Mozilla/5.0 iPod');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_ios}, $ret->{is_ios};
}
{
    my $d = Duadua->new('Mozilla/5.0 Macintosh');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_ios}, $ret->{is_ios};
}
{
    my $d = Duadua->new('Mozilla/5.0 Mac OS');
    my $h = {};
    my $ret = Duadua::Util->set_os($d, $h);
    is $h->{is_ios}, $ret->{is_ios};
}
{
    my $d = Duadua->new('Mozilla/5.0 Ordering Match');
    ok( Duadua::Util->ordering_match($d, ['Mozilla/', 'Ordering', 'Match']) );
    ok( !Duadua::Util->ordering_match($d, ['Match', 'Ordering', 'Mozilla/']) );
}
done_testing;