t/base.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

#!perl 
use strict;
use warnings;
use Test2::Bundle::Extended;
use Data::QRCode;
 
my $qr = Data::QRCode->new('some words','M');
 
my $text;
for my $y (0..$qr->width-1) {
    for my $x (0..$qr->width-1) {
        my $data = $qr->data_at($x,$y);
        $text .= (
            !$data->{color} ? ' ' :
                $data->{in_data} ? 'D' :
                $data->{in_format} ? 'F' :
                $data->{in_version} ? 'V' :
                $data->{in_timing} ? 'T' :
                $data->{in_alignment} ? 'A' :
                $data->{in_finder} ? 'R' :
                '*'
            );
    }
    $text .= "\n";
}
 
note $text;
 
ok($text);
 
done_testing;