From c9129ed66317abfcd8e7689ef77199bd86bf5309 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 23 Oct 2016 18:34:19 +0100
Subject: works

---
 t/base.t | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 t/base.t

(limited to 't')

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;
-- 
cgit v1.2.3