File: 1_____loreyna126.t

package info (click to toggle)
libspreadsheet-xlsx-perl 0.18-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 256 kB
  • sloc: perl: 1,088; makefile: 7
file content (19 lines) | stat: -rw-r--r-- 381 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use Test::More tests => 3;

BEGIN {

	use Spreadsheet::XLSX;
	use warnings;
	
	my $fn = __FILE__;
	
	$fn =~ s{t$}{xlsx};

	my $excel = Spreadsheet::XLSX -> new ($fn);
			
	ok (@{$excel -> {Worksheet}} == 3);	
	ok ($excel -> {Worksheet} -> [0] -> {Name} eq 'POST_DSENDS');
	ok ($excel -> {Worksheet} -> [0] -> {Cells} [112] [0] -> {Val} eq 'RCS Thrust Vector Uncertainties ');

};