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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Decoder.t'
use warnings;
use strict;
use Test::More tests => 17;
#########################
BEGIN { use_ok('Barcode::ZBar') }
#########################
my $decoder = Barcode::ZBar::Decoder->new();
isa_ok($decoder, 'Barcode::ZBar::Decoder', 'decoder');
$decoder->parse_config('enable');
#########################
can_ok($decoder, qw(set_config parse_config reset new_scan decode_width
get_color get_configs get_direction get_data get_modifiers
get_type set_handler));
#########################
my $sym = $decoder->decode_width(5);
is($sym, Barcode::ZBar::Symbol::NONE, 'enum/enum compare');
#########################
ok($sym == 0, 'enum/numeric compare');
#########################
is($sym, 'None', 'enum/string compare');
#########################
my $handler_type = 0;
my $explicit_closure = 0;
$decoder->set_handler(sub {
if(!$handler_type) {
is($_[0], $decoder, 'handler decoder');
}
my $type = $_[0]->get_type();
$handler_type = $type
if(!$handler_type or $type > Barcode::ZBar::Symbol::PARTIAL);
${$_[1]} += 1
}, \$explicit_closure);
#########################
$decoder->reset();
is($decoder->get_color(), Barcode::ZBar::SPACE, 'reset color');
#########################
is($decoder->get_direction(), 0, 'reset direction');
#########################
$decoder->set_config(Barcode::ZBar::Symbol::QRCODE,
Barcode::ZBar::Config::ENABLE, 0);
my $encoded =
'9 111 212241113121211311141132 11111 311213121312121332111132 111 9';
foreach my $width (split(/ */, $encoded)) {
my $tmp = $decoder->decode_width($width);
if($tmp > Barcode::ZBar::Symbol::PARTIAL) {
$sym = ($sym == Barcode::ZBar::Symbol::NONE) ? $tmp : -1;
}
}
is($sym, Barcode::ZBar::Symbol::EAN13, 'EAN-13 type');
#########################
is_deeply([$decoder->get_configs($sym)],
[Barcode::ZBar::Config::ENABLE,
Barcode::ZBar::Config::EMIT_CHECK],
'read configs');
#########################
is_deeply([$decoder->get_modifiers()], [], 'read modifiers');
#########################
is($decoder->get_data(), '6268964977804', 'EAN-13 data');
#########################
is($decoder->get_color(), Barcode::ZBar::BAR, 'post-scan color');
#########################
is($decoder->get_direction(), 1, 'decode direction');
#########################
is($handler_type, Barcode::ZBar::Symbol::EAN13, 'handler type');
#########################
is($explicit_closure, 2, 'handler explicit closure');
#########################
|
