r63381 - in /trunk/libspreadsheet-parseexcel-perl: ./ debian/ debian/source/ lib/Spreadsheet/ lib/Spreadsheet/ParseExcel/ lib/Spreadsheet/ParseExcel/SaveParser/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Oct 5 01:49:55 UTC 2010
Author: jawnsy-guest
Date: Tue Oct 5 01:49:48 2010
New Revision: 63381
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63381
Log:
* New upstream release
* Use new 3.0 (quilt) source format
* Standards-Version 3.9.1 (no changes)
Added:
trunk/libspreadsheet-parseexcel-perl/debian/source/
trunk/libspreadsheet-parseexcel-perl/debian/source/format
Modified:
trunk/libspreadsheet-parseexcel-perl/Changes
trunk/libspreadsheet-parseexcel-perl/META.yml
trunk/libspreadsheet-parseexcel-perl/debian/changelog
trunk/libspreadsheet-parseexcel-perl/debian/control
trunk/libspreadsheet-parseexcel-perl/debian/rules
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Cell.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Dump.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtDefault.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan2.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtUnicode.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Font.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Format.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Utility.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Workbook.pm
trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Worksheet.pm
trunk/libspreadsheet-parseexcel-perl/t/21_number_format_user.t
Modified: trunk/libspreadsheet-parseexcel-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/Changes?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/Changes (original)
+++ trunk/libspreadsheet-parseexcel-perl/Changes Tue Oct 5 01:49:48 2010
@@ -1,4 +1,21 @@
Revision history for Perl module Spreadsheet::ParseExcel.
+
+0.58 September 17 2010
+
+ ! Fix for text cells formatted with a leading apostrophe.
+ http://rt.cpan.org/Public/Bug/Display.html?id=61299
+
+ ! Documentation fixes. Thanks to Dan Dascalescu
+ Fix RT #61320 (typos)
+ http://rt.cpan.org/Public/Bug/Display.html?id=61320
+
+ ! Fix for currency locales in format strings.
+ Reported by wjaguar.
+ http://rt.cpan.org/Public/Bug/Display.html?id=60547
+
+ ! Fix for incomplete SETUP records.
+ Reported by M.C. Deurloo.
+
0.57 January 24 2010
@@ -21,6 +38,10 @@
! Made version 0.19 of OLE::Storage_Lite a prerequisite to avoid
issues when writing OLE header in SaveParser.
+
+ ! Changed Parse() method name to parse() for consistency with the
+ rest of the API. The older method name is still supported but
+ not documented.
0.55 August 25 2009
Modified: trunk/libspreadsheet-parseexcel-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/META.yml?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/META.yml (original)
+++ trunk/libspreadsheet-parseexcel-perl/META.yml Tue Oct 5 01:49:48 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Spreadsheet-ParseExcel
-version: 0.57
+version: 0.58
abstract: Read information from an Excel file.
author:
- John McNamara (jmcnamara at cpan.org)
Modified: trunk/libspreadsheet-parseexcel-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/changelog?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/changelog (original)
+++ trunk/libspreadsheet-parseexcel-perl/debian/changelog Tue Oct 5 01:49:48 2010
@@ -1,8 +1,14 @@
-libspreadsheet-parseexcel-perl (0.5700-2) UNRELEASED; urgency=low
-
+libspreadsheet-parseexcel-perl (0.5800-1) UNRELEASED; urgency=low
+
+ [ Jonathan Yu ]
+ * New upstream release
+ * Use new 3.0 (quilt) source format
+ * Standards-Version 3.9.1 (no changes)
+
+ [ gregor herrmann ]
* debian/rules: switch order of arguments to dh.
- -- gregor herrmann <gregoa at debian.org> Wed, 28 Jul 2010 14:33:18 -0400
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 04 Oct 2010 22:01:03 -0400
libspreadsheet-parseexcel-perl (0.5700-1) unstable; urgency=low
Modified: trunk/libspreadsheet-parseexcel-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/control?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/control (original)
+++ trunk/libspreadsheet-parseexcel-perl/debian/control Tue Oct 5 01:49:48 2010
@@ -1,7 +1,7 @@
Source: libspreadsheet-parseexcel-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7.0.50), quilt (>= 0.46-7)
+Build-Depends: debhelper (>= 7.0.50)
Build-Depends-Indep: perl, libole-storage-lite-perl (>= 0.19),
libspreadsheet-writeexcel-perl, libjcode-pm-perl, libtest-pod-perl (>= 1.26),
perl (>= 5.10.1) | libpod-simple-perl (>= 3.07), libtest-minimumversion-perl,
@@ -10,7 +10,7 @@
Uploaders: Gunnar Wolf <gwolf at debian.org>, Niko Tyni <ntyni at iki.fi>,
Damyan Ivanov <dmn at debian.org>, gregor herrmann <gregoa at debian.org>,
Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/Spreadsheet-ParseExcel/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libspreadsheet-parseexcel-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/
Modified: trunk/libspreadsheet-parseexcel-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/rules?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/rules (original)
+++ trunk/libspreadsheet-parseexcel-perl/debian/rules Tue Oct 5 01:49:48 2010
@@ -1,7 +1,8 @@
#!/usr/bin/make -f
%:
- dh $@ --with quilt
+ dh $@
override_dh_auto_test:
AUTOMATED_TESTING=1 dh_auto_test
+
Added: trunk/libspreadsheet-parseexcel-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/debian/source/format?rev=63381&op=file
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/debian/source/format (added)
+++ trunk/libspreadsheet-parseexcel-perl/debian/source/format Tue Oct 5 01:49:48 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel.pm Tue Oct 5 01:49:48 2010
@@ -18,7 +18,7 @@
use OLE::Storage_Lite;
use IO::File;
use Config;
-our $VERSION = '0.57';
+our $VERSION = '0.58';
use Spreadsheet::ParseExcel::Workbook;
use Spreadsheet::ParseExcel::Worksheet;
@@ -1621,6 +1621,10 @@
my ( $oBook, $bOp, $bLen, $sWk ) = @_;
return undef unless ( defined $oBook->{_CurSheet} );
+ # Workaround for some apps and older Excels that don't write a
+ # complete SETUP record.
+ return undef if $bLen != 34;
+
my $oWkS = $oBook->{Worksheet}[ $oBook->{_CurSheet} ];
my $iGrBit;
@@ -2261,7 +2265,7 @@
=head2 parse($filename, [$formatter])
-The Parser C<parse()> method return a L</Workbook> object.
+The Parser C<parse()> method returns a L</Workbook> object.
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('Book1.xls');
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Cell.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Cell.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Cell.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Cell.pm Tue Oct 5 01:49:48 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.57';
+our $VERSION = '0.58';
###############################################################################
#
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Dump.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Dump.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Dump.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Dump.pm Tue Oct 5 01:49:48 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.57';
+our $VERSION = '0.58';
my %NameTbl = (
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtDefault.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtDefault.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtDefault.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtDefault.pm Tue Oct 5 01:49:48 2010
@@ -19,7 +19,7 @@
use warnings;
use Spreadsheet::ParseExcel::Utility qw(ExcelFmt);
-our $VERSION = '0.57';
+our $VERSION = '0.58';
my %hFmtDefault = (
0x00 => '@',
@@ -105,6 +105,12 @@
$oThis->FmtStringDef( $oBook->{Format}[ $oCell->{FormatNo} ]->{FmtIdx},
$oBook );
+ # Special case for cells that use Lotus123 style leading
+ # apostrophe to designate text formatting.
+ if ( $oBook->{Format}[ $oCell->{FormatNo} ]->{Key123} ) {
+ $sFmtStr = '@';
+ }
+
unless ( defined($sFmtStr) ) {
if ( $oCell->{Type} eq 'Numeric' ) {
if ( int( $oCell->{Val} ) != $oCell->{Val} ) {
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan.pm Tue Oct 5 01:49:48 2010
@@ -21,7 +21,7 @@
use Encode qw(find_encoding decode);
use base 'Spreadsheet::ParseExcel::FmtDefault';
-our $VERSION = '0.57';
+our $VERSION = '0.58';
my %FormatTable = (
0x00 => '@',
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan2.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan2.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtJapan2.pm Tue Oct 5 01:49:48 2010
@@ -21,7 +21,7 @@
use Jcode;
use Unicode::Map;
use base 'Spreadsheet::ParseExcel::FmtJapan';
-our $VERSION = '0.57';
+our $VERSION = '0.58';
#------------------------------------------------------------------------------
# new (for Spreadsheet::ParseExcel::FmtJapan2)
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtUnicode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtUnicode.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtUnicode.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/FmtUnicode.pm Tue Oct 5 01:49:48 2010
@@ -21,7 +21,7 @@
use Unicode::Map;
use base 'Spreadsheet::ParseExcel::FmtDefault';
-our $VERSION = '0.57';
+our $VERSION = '0.58';
#------------------------------------------------------------------------------
# new (for Spreadsheet::ParseExcel::FmtUnicode)
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Font.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Font.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Font.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Font.pm Tue Oct 5 01:49:48 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.57';
+our $VERSION = '0.58';
sub new {
my ( $class, %rhIni ) = @_;
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Format.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Format.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Format.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Format.pm Tue Oct 5 01:49:48 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.57';
+our $VERSION = '0.58';
sub new {
my ( $class, %rhIni ) = @_;
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser.pm Tue Oct 5 01:49:48 2010
@@ -24,7 +24,7 @@
use Spreadsheet::WriteExcel;
use base 'Spreadsheet::ParseExcel';
-our $VERSION = '0.57';
+our $VERSION = '0.58';
###############################################################################
#
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Workbook.pm Tue Oct 5 01:49:48 2010
@@ -19,7 +19,7 @@
use warnings;
use base 'Spreadsheet::ParseExcel::Workbook';
-our $VERSION = '0.57';
+our $VERSION = '0.58';
#==============================================================================
# Spreadsheet::ParseExcel::SaveParser::Workbook
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/SaveParser/Worksheet.pm Tue Oct 5 01:49:48 2010
@@ -23,7 +23,7 @@
#==============================================================================
use base 'Spreadsheet::ParseExcel::Worksheet';
-our $VERSION = '0.57';
+our $VERSION = '0.58';
sub new {
my ( $sClass, %rhIni ) = @_;
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Utility.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Utility.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Utility.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Utility.pm Tue Oct 5 01:49:48 2010
@@ -24,7 +24,7 @@
@EXPORT_OK = qw(ExcelFmt LocaltimeExcel ExcelLocaltime
col2int int2col sheetRef xls2csv);
-our $VERSION = '0.57';
+our $VERSION = '0.58';
my $qrNUMBER = qr/(^[+-]?\d+(\.\d+)?$)|(^[+-]?\d+\.?(\d*)[eE][+-](\d+))$/;
@@ -186,9 +186,16 @@
# Remove the locale, such as [$-409], from the format string.
my $locale = '';
- if ( $format =~ s/^(\[\$-\d+\])// ) {
+ if ( $format =~ s/^(\[\$?-\d+\])// ) {
$locale = $1;
}
+
+ # Replace currency locale, such as [$$-409], with $ in the format string.
+ # See the RT#60547 test cases in 21_number_format_user.t.
+ if ( $format =~ s/(\[\$([^-]+)(-\d+)?\])/$2/s ) {
+ $locale = $1;
+ }
+
# Remove leading # from '# ?/?', '# ??/??' fraction formats.
$format =~ s{# \?}{?}g;
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Workbook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Workbook.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Workbook.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Workbook.pm Tue Oct 5 01:49:48 2010
@@ -18,7 +18,7 @@
use strict;
use warnings;
-our $VERSION = '0.57';
+our $VERSION = '0.58';
###############################################################################
#
Modified: trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Worksheet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Worksheet.pm?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Worksheet.pm (original)
+++ trunk/libspreadsheet-parseexcel-perl/lib/Spreadsheet/ParseExcel/Worksheet.pm Tue Oct 5 01:49:48 2010
@@ -19,7 +19,7 @@
use warnings;
use Scalar::Util qw(weaken);
-our $VERSION = '0.57';
+our $VERSION = '0.58';
###############################################################################
#
@@ -625,15 +625,6 @@
Returns a two-element list C<($min, $max)> containing the minimum and maximum of defined columns in the worksheet. If there is no column defined C<$max> is smaller than C<$min>.
my ( $col_min, $col_max ) = $worksheet->col_range();
-
-
-=head2 col_range()
-
-The C<col_range()> method returns TODO.
-
- my $col_range = $worksheet->col_range();
-
-Returns 0 if the property isn't set.
=head2 get_name()
Modified: trunk/libspreadsheet-parseexcel-perl/t/21_number_format_user.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libspreadsheet-parseexcel-perl/t/21_number_format_user.t?rev=63381&op=diff
==============================================================================
--- trunk/libspreadsheet-parseexcel-perl/t/21_number_format_user.t (original)
+++ trunk/libspreadsheet-parseexcel-perl/t/21_number_format_user.t Tue Oct 5 01:49:48 2010
@@ -12,7 +12,7 @@
use strict;
use Spreadsheet::ParseExcel::Utility qw( ExcelFmt LocaltimeExcel );
-use Test::More tests => 139;
+use Test::More tests => 142;
my $is_1904 = 1;
@@ -195,6 +195,12 @@
[ 138, 36898, 'Sun', 'ddd' ],
[ 139, 2958103,'Sun', 'ddd' ],
+
+ # http://rt.cpan.org/Public/Bug/Display.html?id=60547
+ [ 140, 27400, '$27,400.00', '[$$-409]#,##0.00' ],
+ [ 141, 826331.94, '826,331.94 руб.', '#,##0.00\ [$руб.-419]' ],
+ [ 142, 826331.94, '826,331.94 RUR', '#,##0.00\ [$RUR]' ],
+
);
###############################################################################
More information about the Pkg-perl-cvs-commits
mailing list