r1955 - packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t

[Gunnar Wolf]

Author: gwolf
Date: 2006-01-17 00:26:50 +0000 (Tue, 17 Jan 2006)
New Revision: 1955

Added:
   packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/02_merge_formats.t
Removed:
   packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/01_merge_formats.t
Log:
To prepare to load /tmp/tmp.X5Rz70/libspreadsheet-writeexcel-perl-2.16
into packages/libspreadsheet-writeexcel-perl/branches/upstream/current,
perform 1 rename.

*
  packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/0
  2_merge_formats.t: Renamed from
  packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/0
  1_merge_formats.t.


Deleted: packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/01_merge_formats.t
===================================================================
--- packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/01_merge_formats.t	2006-01-17 00:12:52 UTC (rev 1954)
+++ packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/01_merge_formats.t	2006-01-17 00:26:50 UTC (rev 1955)
@@ -1,125 +0,0 @@
-#!/usr/bin/perl -w
-
-###############################################################################
-#
-# A test for Spreadsheet::WriteExcel.
-#
-# Tests to ensure merge formats aren't used in non-merged cells and
-# vice-versa. This is temporary feature to prevent users from inadvertently
-# making this error.
-#
-# reverse('©'), April 2005, John McNamara, jmcnamara at cpan.org
-#
-
-
-use strict;
-
-use Spreadsheet::WriteExcel;
-use Test::More tests => 8;
-
-
-###############################################################################
-#
-# Tests setup
-#
-my $test_file           = "temp_test_file.xml";
-my $workbook            = Spreadsheet::WriteExcel->new($test_file);
-my $worksheet           = $workbook->add_worksheet();
-my $merged_format       = $workbook->add_format(bold => 1);
-my $non_merged_format   = $workbook->add_format(bold => 1);
-
-
-$worksheet->set_row(5, undef, $merged_format);
-$worksheet->set_column('G:G', undef, $merged_format);
-
-###############################################################################
-#
-# Test
-#
-eval {
-    $worksheet->write      ('A1',    'Test', $non_merged_format);
-    $worksheet->merge_range('A3:B4', 'Test', $merged_format    );
-};
-ok(! $@, " \tNormal usage.");
-
-
-###############################################################################
-#
-# Test
-#
-eval {
-    $worksheet->write      ('D1',    'Test', $merged_format    );
-};
-ok(  $@, " \tMerge format in non-merged cell.");
-
-
-###############################################################################
-#
-# Test
-#
-eval {
-    $worksheet->merge_range('D3:E4', 'Test', $non_merged_format);
-};
-ok(  $@, " \tNon merge format in merged cells.");
-
-
-###############################################################################
-#
-# Test
-#
-eval {
-    $worksheet->write('G1', 'Test',);
-};
-ok(  $@, " \tMerge format in column.");
-
-
-###############################################################################
-#
-# Test
-#
-eval {
-    $worksheet->write('A6', 'Test',);
-};
-ok(  $@, " \tMerge format in row.");
-
-
-###############################################################################
-#
-# Test
-#
-eval {
-    $worksheet->write('G6', 'Test',);
-};
-ok(  $@, " \tMerge format in column and row.");
-
-
-###############################################################################
-#
-# Test
-#
-eval {
-    $worksheet->write('H7', 'Test',);
-};
-ok(! $@, " \tNo merge format in column and row.");
-
-###############################################################################
-#
-# Test
-#
-eval {
-    $worksheet->write      ('A1',    'Test', $non_merged_format);
-    $worksheet->merge_range('A3:B4', 'Test', $merged_format    );
-};
-ok(! $@, " \tNormal usage again.");
-
-
-
-
-$workbook->close();
-unlink $test_file;
-
-
-__END__
-
-
-

Copied: packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/02_merge_formats.t (from rev 1954, packages/libspreadsheet-writeexcel-perl/branches/upstream/current/t/01_merge_formats.t)