Added new tests, fixed a bug, and cleaned up more code: Intermediate check-in

[p5sagit/Excel-Template.git] / t / Spreadsheet / WriteExcel / Worksheet.pm

diff --git a/t/Spreadsheet/WriteExcel/Worksheet.pm b/t/Spreadsheet/WriteExcel/Worksheet.pm
index aa02220..450f401 100644 (file)
--- a/t/Spreadsheet/WriteExcel/Worksheet.pm
+++ b/t/Spreadsheet/WriteExcel/Worksheet.pm
@@ -88,5 +88,14 @@ sub set_column {
     }
 }
 
+sub keep_leading_zeros {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::keep_leading_zeros( '@_' )";
+    }
+}
+
 1;
 __END__