r13925@rob-kinyons-powerbook58: rob | 2006-06-02 14:29:05 -0400

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

diff --git a/t/Spreadsheet/WriteExcel/Worksheet.pm b/t/Spreadsheet/WriteExcel/Worksheet.pm
index 16f3be1..a3e6d16 100644 (file)
--- a/t/Spreadsheet/WriteExcel/Worksheet.pm
+++ b/t/Spreadsheet/WriteExcel/Worksheet.pm
@@ -16,6 +16,42 @@ sub new {
     return $self;
 }
 
+sub write_string {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::write_string( '@_' )";
+    }
+}
+
+sub write_number {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::write_number( '@_' )";
+    }
+}
+
+sub write_blank {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::write_blank( '@_' )";
+    }
+}
+
+sub write_url {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::write_url( '@_' )";
+    }
+}
+
 sub write_formula {
     my $self = shift;
 
@@ -34,5 +70,50 @@ sub write {
     }
 }
 
+sub set_row {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::set_row( '@_' )";
+    }
+}
+
+sub set_column {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::set_column( '@_' )";
+    }
+}
+
+sub keep_leading_zeros {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::keep_leading_zeros( '@_' )";
+    }
+}
+
+sub insert_bitmap {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::insert_bitmap( '@_' )";
+    }
+}
+
+sub freeze_panes {
+    my $self = shift;
+
+    {
+        local $" = "', '";
+        push @mock::calls, __PACKAGE__ . "::freeze_panes( '@_' )";
+    }
+}
+
 1;
 __END__