Merge pull request #37 from mazurin/encryption

3 files changed, 30 insertions, 0 deletions

diff --git a/t/data/encryption-agile-123q.xlsx b/t/data/encryption-agile-123q.xlsx
new file mode 100644
index 0000000..be3b561
--- /dev/null
+++ b/t/data/encryption-agile-123q.xlsx
diff --git a/t/data/encryption-standard-default-password.xlsx b/t/data/encryption-standard-default-password.xlsx
new file mode 100644
index 0000000..a863c1b
--- /dev/null
+++ b/t/data/encryption-standard-default-password.xlsx
diff --git a/t/encryption.t b/t/encryption.t
new file mode 100644
index 0000000..cbd913e
--- /dev/null
+++ b/t/encryption.t
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Spreadsheet::ParseXLSX;
+
+my $parser = Spreadsheet::ParseXLSX->new();
+my $workbook = $parser->parse("t/data/encryption-agile-123q.xlsx", {password => '123q'});
+
+my $worksheet;
+my $cell;
+
+$worksheet = $workbook->worksheet(0);
+ok(defined($workbook));
+
+$cell = $worksheet->get_cell(1, 1);
+ok(defined($cell) && $cell->value() eq 'abcdefgABCDEFG');
+
+
+open FH, "t/data/encryption-standard-default-password.xlsx";
+$workbook = $parser->parse(\*FH);
+
+ok(defined($workbook));
+
+$worksheet = $workbook->worksheet(0);
+$cell = $worksheet->get_cell(22, 8);
+ok(defined($cell) && $cell->value() == 1911);
+
+done_testing;