diff options
author | dakkar <dakkar@thenautilus.net> | 2016-10-23 18:34:19 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-10-23 18:34:19 +0100 |
commit | c9129ed66317abfcd8e7689ef77199bd86bf5309 (patch) | |
tree | a3de54e37250d3a2a507aa7d1806f3467993b421 /t | |
parent | first stab (diff) | |
download | Data-QRCode-c9129ed66317abfcd8e7689ef77199bd86bf5309.tar.gz Data-QRCode-c9129ed66317abfcd8e7689ef77199bd86bf5309.tar.bz2 Data-QRCode-c9129ed66317abfcd8e7689ef77199bd86bf5309.zip |
works
Diffstat (limited to 't')
-rw-r--r-- | t/base.t | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/t/base.t b/t/base.t new file mode 100644 index 0000000..25bda6a --- /dev/null +++ b/t/base.t @@ -0,0 +1,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; |