diff options
author | dakkar <dakkar@thenautilus.net> | 2016-11-10 13:27:18 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-11-10 13:39:29 +0000 |
commit | 61f964216b16b25200e2a2ac961f7444c0570daf (patch) | |
tree | a39731665727a5f0a5aaa20c1c8c92a8f1a1ffcc /t/base.t | |
parent | try using more magic (diff) | |
download | Data-QRCode-61f964216b16b25200e2a2ac961f7444c0570daf.tar.gz Data-QRCode-61f964216b16b25200e2a2ac961f7444c0570daf.tar.bz2 Data-QRCode-61f964216b16b25200e2a2ac961f7444c0570daf.zip |
split into input / qrcode
Diffstat (limited to 't/base.t')
-rw-r--r-- | t/base.t | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/t/base.t b/t/base.t deleted file mode 100644 index 25bda6a..0000000 --- a/t/base.t +++ /dev/null @@ -1,31 +0,0 @@ -#!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; |