The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

EZDB / Data-Table-Excel-0.5 / test.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
######################### We start with some black magic to print on failure.
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
BEGIN { $| = 1; print "1..4\n"; }
END {print "not ok 1\n" unless $loaded;}
#use strict;
use Data::Table;
use Data::Table::Excel qw(tables2xls xls2tables tables2xlsx xlsx2tables is_xlsx xls2xlsx xlsx2xls excelFileToTable);
use Data::Dumper;
$loaded = 1;
print "ok loaded\n";
# read in two CSV tables and generate an Excel file with two spreadsheets
my $t_category = Data::Table::fromFile("Category.csv");
#my $s_A = $t_A->csv;
my $t_product = Data::Table::fromFile("Product.csv");
#my $s_B = $t_B->csv;
if (-e 'NorthWind.xls') { unlink("NorthWind.xls") }
tables2xls("NorthWind.xls", [$t_category, $t_product], ["Category","Product"]);
if (-e 'NorthWind.xls') {
  print "ok 1 table2xls\n";
} else {
  print "not ok 1 table2xls\n";
}
# read in TableAB.xls file as two Data::Table objects
my ($tableObjects, $tableNames)=xls2tables("NorthWind.xls");
if (scalar @$tableObjects !=2 || scalar @$tableNames !=2) {
  print "not ok 2 xls2tables\n";
} else {
#print Dumper($tableObjects);
#print Dumper($tableNames);
  if ($tableNames->[0] eq 'Category' && $tableNames->[1] eq 'Product' &&
    $tableObjects->[0]->nofRow==$t_category->nofRow && $tableObjects->[1]->nofRow==$t_product->nofRow &&
    $tableObjects->[0]->nofCol==$t_category->nofCol && $tableObjects->[1]->nofCol==$t_product->nofCol) {
    print "ok 2 xls2tables\n";
  } else {
    print "not ok 2 xls2tables\n";
  }
}
if (-e 'NorthWind.xlsx') { unlink("NorthWind.xlsx") }
tables2xlsx("NorthWind.xlsx", [$t_category, $t_product], undef, [['silver','white','black'], [45,'white',37]]); # ["Category","Product"]);
if (-e 'NorthWind.xlsx') {
  print "ok 3 table2xlsx\n";
} else {
  print "not ok 3 table2xlsx\n";
}
# read in TableAB.xls file as two Data::Table objects
my ($tableObjects, $tableNames)=xlsx2tables("NorthWind.xlsx");
if (scalar @$tableObjects !=2 || scalar @$tableNames !=2) {
  print "not ok 4 xlsx2tables\n";
} else {
#print Dumper($tableObjects);
#print Dumper($tableNames);
  if ($tableNames->[0] eq 'Sheet1' && $tableNames->[1] eq 'Sheet2' &&
    $tableObjects->[0]->nofRow==$t_category->nofRow && $tableObjects->[1]->nofRow==$t_product->nofRow &&
    $tableObjects->[0]->nofCol==$t_category->nofCol && $tableObjects->[1]->nofCol==$t_product->nofCol) {
    print "ok 4 xlsx2tables\n";
  } else {
    print "not ok 4 xlsx2tables\n";
  }
}
if (is_xlsx('NorthWind.xlsx') and !is_xlsx('NorthWind.xls')) {
  print "ok 5 is_xlsx\n";
} else {
  print "not ok 5 is_xlsx\n";
}
my ($tableObjects2) = excelFileToTable("NorthWind.xlsx");
if ($tableObjects->[0]->nofRow==$tableObjects2->[0]->nofRow && $tableObjects->[1]->nofRow==$tableObjects2->[1]->nofRow &&
    $tableObjects->[0]->nofCol==$tableObjects2->[0]->nofCol && $tableObjects->[1]->nofCol==$tableObjects2->[1]->nofCol) {
  print "ok 6 excelFileToTable\n";
} else {
  print "not ok 6 excelFileToTable\n";
}
xls2xlsx('NorthWind.xls', 't.xlsx');
my ($tableObjects2) = xlsx2tables("t.xlsx");
if ($tableObjects->[0]->nofRow==$tableObjects2->[0]->nofRow && $tableObjects->[1]->nofRow==$tableObjects2->[1]->nofRow &&
    $tableObjects->[0]->nofCol==$tableObjects2->[0]->nofCol && $tableObjects->[1]->nofCol==$tableObjects2->[1]->nofCol) {
  print "ok 7 xls2xlsx\n";
} else {
  print "not ok 7 xlsx2xls\n";
}
if (-e 't.xlsx') { unlink("t.xlsx") }
xlsx2xls('NorthWind.xlsx', 't.xls');
my ($tableObjects2) = xls2tables("t.xls");
if ($tableObjects->[0]->nofRow==$tableObjects2->[0]->nofRow && $tableObjects->[1]->nofRow==$tableObjects2->[1]->nofRow &&
    $tableObjects->[0]->nofCol==$tableObjects2->[0]->nofCol && $tableObjects->[1]->nofCol==$tableObjects2->[1]->nofCol) {
  print "ok 8 xlsx2xls\n";
} else {
  print "not ok 8 xlsx2xls\n";
}
if (-e 't.xls') { unlink("t.xls") }
1;