#!/usr/bin/env perl use strict; use warnings; use Test::More; use Spreadsheet::ParseXLSX; my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-5.xlsx'); is($wb->worksheet_count, 1); done_testing;