More tests for the 3-arg open

[p5sagit/p5-mst-13.2.git] / t / lib / TieOut.pm

diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm
index 0da80cb..072e8fd 100644 (file)
--- a/t/lib/TieOut.pm
+++ b/t/lib/TieOut.pm
@@ -9,6 +9,12 @@ sub PRINT {
        $$self .= join('', @_);
 }
 
+sub PRINTF {
+       my $self = shift;
+    my $fmt  = shift;
+       $$self .= sprintf $fmt, @_;
+}
+
 sub read {
        my $self = shift;
        return substr($$self, 0, length($$self), '');