diff options
Diffstat (limited to 't/encryption.t')
-rw-r--r-- | t/encryption.t | 30 |
1 files changed, 30 insertions, 0 deletions
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; |