From 82bbb7b09ccf3451033f17b2de9f6f17c030b974 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 19 Jul 2013 16:41:52 -0400
Subject: add a basic test

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

(limited to 't/basic.t')

diff --git a/t/basic.t b/t/basic.t
new file mode 100644
index 0000000..1cf1851
--- /dev/null
+++ b/t/basic.t
@@ -0,0 +1,327 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use lib 't/lib';
+
+use Catalyst::Test 'MyApp';
+use Spreadsheet::ParseXLSX;
+
+my $res = request('basic.xlsx');
+is($res->code, 200);
+
+my $data = $res->content;
+open my $fh, '<', \$data;
+my $wb = Spreadsheet::ParseXLSX->new->parse($fh);
+
+is($wb->worksheet_count, 1);
+
+my $ws = $wb->worksheet(0);
+is($ws->get_name, 'Sheet1');
+is_deeply([$ws->row_range], [0, 5]);
+is_deeply([$ws->col_range], [0, 4]);
+
+{
+    my $cell = $ws->get_cell(0, 0);
+    is($cell->unformatted, "Colored Cell");
+    is($cell->value, "Colored Cell");
+    is($cell->type, 'Text');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [1, '#9BBB59', '#FFFFFF']);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    is($font->{Height}, 12);
+    is($font->{Color}, '#FFFF00');
+}
+
+{
+    my $cell = $ws->get_cell(0, 1);
+    is($cell->unformatted, "Wide Cell (25.00)");
+    is($cell->value, "Wide Cell (25.00)");
+    is($cell->type, 'Text');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+{
+    my $cell = $ws->get_cell(0, 2);
+    is($cell->unformatted, "Bordered Cell w/ Text Wrap");
+    is($cell->value, "Bordered Cell w/ Text Wrap");
+    is($cell->type, 'Text');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 2);
+    ok($format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(1) x 4]);
+    is_deeply($format->{BdrColor}, [('#000000') x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+{
+    my $cell = $ws->get_cell(0, 3);
+    is($cell->unformatted, "Middle Valigned");
+    is($cell->value, "Middle Valigned");
+    is($cell->type, 'Text');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 1);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+{
+    my $cell = $ws->get_cell(0, 4);
+    is($cell->unformatted, "Right Aligned and text wrapped");
+    is($cell->value, "Right Aligned and text wrapped");
+    is($cell->type, 'Text');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 3);
+    is($format->{AlignV}, 2);
+    ok($format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+for my $i (0..4) {
+    is($ws->get_cell(1, $i), undef);
+}
+
+{
+    my $cell = $ws->get_cell(2, 0);
+    is($cell->unformatted, 10);
+    is($cell->value, 10);
+    is($cell->type, 'Numeric');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+for my $i (1..4) {
+    is($ws->get_cell(2, $i), undef);
+}
+
+{
+    my $cell = $ws->get_cell(3, 0);
+    is($cell->unformatted, 20);
+    is($cell->value, 20);
+    is($cell->type, 'Numeric');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+for my $i (1..2) {
+    is($ws->get_cell(3, $i), undef);
+}
+
+{
+    my $cell = $ws->get_cell(3, 3);
+    is($cell->unformatted, 2.5);
+    is($cell->value, "\$2.50");
+    is($cell->type, 'Numeric');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+{
+    my $cell = $ws->get_cell(3, 4);
+    is($cell->unformatted, "<< currency cell");
+    is($cell->value, "<< currency cell");
+    is($cell->type, 'Text');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 2);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    is($font->{Height}, 12);
+    is($font->{Color}, '#4BACC6');
+}
+
+{
+    my $cell = $ws->get_cell(4, 0);
+    is($cell->unformatted, 30);
+    is($cell->value, 30);
+    is($cell->type, 'Numeric');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+for my $i (1..4) {
+    is($ws->get_cell(4, $i), undef);
+}
+
+{
+    my $cell = $ws->get_cell(5, 0);
+    is($cell->unformatted, 60);
+    is($cell->value, 60);
+    is($cell->type, 'Numeric');
+    is($cell->{Formula}, 'SUM(A3:A5)');
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 0);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [0, undef, undef]);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    { local $TODO = "defaults don't work properly yet";
+    is($font->{Height}, 12);
+    }
+    is($font->{Color}, '#000000');
+}
+
+{
+    my $cell = $ws->get_cell(5, 1);
+    is($cell->unformatted, "<< formula cell");
+    is($cell->value, "<< formula cell");
+    is($cell->type, 'Text');
+    is($cell->{Formula}, undef);
+
+    my $format = $cell->get_format;
+    is($format->{AlignH}, 3);
+    is($format->{AlignV}, 2);
+    ok(!$format->{Wrap});
+    is_deeply($format->{Fill}, [1, '#EEECE1', '#FFFFFF']);
+    is_deeply($format->{BdrStyle}, [(0) x 4]);
+    is_deeply($format->{BdrColor}, [(undef) x 4]);
+    is_deeply($format->{BdrDiag}, [0, 0, undef]);
+
+    my $font = $format->{Font};
+    is($font->{Name}, 'Calibri');
+    is($font->{Height}, 12);
+    is($font->{Color}, '#F79646');
+}
+
+for my $i (2..4) {
+    is($ws->get_cell(5, $i), undef);
+}
+
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf