Add note() to put informational notes into the TAP (from Test::More)
authorMichael G. Schwern <schwern@pobox.com>
Tue, 14 Sep 2010 02:14:30 +0000 (19:14 -0700)
committerFlorian Ragwitz <rafl@debian.org>
Wed, 15 Sep 2010 16:59:41 +0000 (18:59 +0200)
t/test.pl

index f6ad09c..1d4a8cd 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -77,19 +77,29 @@ END {
     }
 }
 
-# Use this instead of "print STDERR" when outputing failure diagnostic
-# messages
 sub _diag {
     return unless @_;
-    my @mess = map { /^#/ ? "$_\n" : "# $_\n" }
-               map { split /\n/ } @_;
+    my @mess = _comment(@_);
     $TODO ? _print(@mess) : _print_stderr(@mess);
 }
 
+# Use this instead of "print STDERR" when outputing failure diagnostic
+# messages
 sub diag {
     _diag(@_);
 }
 
+# Use this instead of "print" when outputing informational messages
+sub note {
+    return unless @_;
+    _print( _comment(@_) );
+}
+
+sub _comment {
+    return map { /^#/ ? "$_\n" : "# $_\n" }
+           map { split /\n/ } @_;
+}
+
 sub skip_all {
     if (@_) {
         _print "1..0 # Skip @_\n";