1 files changed, 7 insertions, 1 deletions
diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 9c413f43..22c50675 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -29,7 +29,7 @@ BEGIN {
                  tcp_host_port test_lei lei lei_ok $lei_out $lei_err $lei_opt
                  test_httpd xbail require_cmd is_xdeeply tail_f
                  ignore_inline_c_missing no_pollerfd no_coredump cfg_new
-                strace strace_inject lsof_pid);
+                strace strace_inject lsof_pid oct_is);
          require Test::More;
          my @methods = grep(!/\W/, @Test::More::EXPORT);
          eval(join('', map { "*$_=\\&Test::More::$_;" } @methods));
@@ -1033,6 +1033,12 @@ sub strace_inject (;$) {
          $cmd
  }
  
+sub oct_is ($$$) {
+        my ($got, $exp, $msg) = @_;
+        @_ = (sprintf('0%03o', $got), sprintf('0%03o', $exp), $msg);
+        goto &is; # tail recursion to get lineno from callers on failure
+}
+
  package PublicInbox::TestCommon::InboxWakeup;
  use strict;
  sub on_inbox_unlock { ${$_[0]}->($_[1]) }