about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-02-09 07:09:36 -0100
committerEric Wong <e@80x24.org>2021-02-10 06:59:10 +0000
commit0c32dadfb508e087111fb4d685add5a22e5f6cd1 (patch)
tree35ed2453f34c7640771d9b1067e75445a8087a82
parentd5502546fd0c042069db4c91ccdf4af5547efe12 (diff)
downloadpublic-inbox-0c32dadfb508e087111fb4d685add5a22e5f6cd1.tar.gz
The "#" is what TAP <https://testanything.org/> uses,
which is also consistent with what our (and many other)
test suites emit.
-rw-r--r--lib/PublicInbox/LEI.pm6
-rw-r--r--t/lei.t2
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index e29b13c3..5f265087 100644
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -559,7 +559,7 @@ sub _lei_cfg ($;$) {
                 open my $fh, '>>', $f or die "open($f): $!\n";
                 @st = stat($fh) or die "fstat($f): $!\n";
                 $cur_st = pack('dd', $st[10], $st[7]);
-                qerr($self, "I: $f created") if $self->{cmd} ne 'config';
+                qerr($self, "# $f created") if $self->{cmd} ne 'config';
         }
         my $cfg = PublicInbox::Config::git_config_dump($f);
         $cfg->{-st} = $cur_st;
@@ -619,7 +619,7 @@ sub lei_init {
         my @cur = stat($cur) if defined($cur);
         $cur = File::Spec->canonpath($cur // $dir);
         my @dir = stat($dir);
-        my $exists = "I: leistore.dir=$cur already initialized" if @dir;
+        my $exists = "# leistore.dir=$cur already initialized" if @dir;
         if (@cur) {
                 if ($cur eq $dir) {
                         _lei_store($self, 1)->done;
@@ -638,7 +638,7 @@ E: leistore.dir=$cur already initialized and it is not $dir
         }
         lei_config($self, 'leistore.dir', $dir);
         _lei_store($self, 1)->done;
-        $exists //= "I: leistore.dir=$dir newly initialized";
+        $exists //= "# leistore.dir=$dir newly initialized";
         return qerr($self, $exists);
 }
 
diff --git a/t/lei.t b/t/lei.t
index 8e771eb5..4785acca 100644
--- a/t/lei.t
+++ b/t/lei.t
@@ -49,7 +49,7 @@ my $test_help = sub {
 
 my $ok_err_info = sub {
         my ($msg) = @_;
-        is(grep(!/^I:/, split(/^/, $lei_err)), 0, $msg) or
+        is(grep(!/^#/, split(/^/, $lei_err)), 0, $msg) or
                 diag "$msg: err=$lei_err";
 };