test/testspreadsheet.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 =pod
   6
   7 =head1 NAME $RCSfile: testspreadsheet.pl,v $
   8
   9 Test the SpreadSheet libary
  10
  11 This script tests various functions of the SpreadSheet libary
  12
  13 =head1 VERSION
  14
  15 =over
  16
  17 =item Author
  18
  19 Andrew DeFaria <Andrew@ClearSCM.com>
  20
  21 =item Revision
  22
  23 $Revision: 1.1 $
  24
  25 =item Created:
  26
  27 Mon Nov 12 16:50:44 PST 2012
  28
  29 =item Modified:
  30
  31 $Date: 2012/11/21 02:53:28 $
  32
  33 =back
  34
  35 =head1 SYNOPSIS
  36
  37  Usage: testclearquest.pl [-u|sage] [-v|erbose] [-d|ebug]
  38                           -filename <spreadsheet file>
  39
  40  Where:
  41    -usa|ge:     Displays usage
  42    -v|erbose:   Be verbose
  43    -de|bug:     Output debug messages
  44
  45    -filename:   Spreadsheet file
  46
  47 =cut
  48
  49 use FindBin;
  50 use Getopt::Long;
  51
  52 use lib "$FindBin::Bin/../lib";
  53
  54 use SpreadSheet;
  55 use Display;
  56 use Utils;
  57
  58 sub displayData (@) {
  59   my (@rows) = @_;
  60
  61   my $row = 2;
  62
  63   foreach (@rows) {
  64     my %row = %$_;
  65
  66     display "Row: $row"; $row++;
  67
  68     foreach (keys %row) {
  69       my $value = $row{$_} || '';
  70
  71       display "$_: $value";
  72     } # foreach
  73   } # foreach
  74
  75   return;
  76 } # displayRecord
  77
  78 ## Main
  79 local $| = 1;
  80
  81 my %opts;
  82
  83 GetOptions (
  84   \%opts,
  85   usage   => sub { Usage },
  86   verbose => sub { set_verbose },
  87   debug   => sub { set_debug },
  88   'filename=s',
  89 ) || Usage;
  90
  91 Usage "Must specify -filename <filename>" unless $opts{filename};
  92
  93 my $spreadSheet = SpreadSheet->new ($opts{filename});
  94
  95 displayData ($spreadSheet->getSheet);