1 files changed, 7 insertions, 1 deletions
diff --git a/t/mid.t b/t/mid.t
index ecac04de..7005101f 100644
--- a/t/mid.t
+++ b/t/mid.t
@@ -2,12 +2,18 @@
  # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
  use strict;
  use Test::More;
-use PublicInbox::MID qw(mid_escape mids references mids_for_index);
+use PublicInbox::MID qw(mid_escape mids references mids_for_index id_compress);
  
  is(mid_escape('foo!@(bar)'), 'foo!@(bar)');
  is(mid_escape('foo%!@(bar)'), 'foo%25!@(bar)');
  is(mid_escape('foo%!@(bar)'), 'foo%25!@(bar)');
  
+# n.b: this is probably invalid since we dropped CGI for PSGI:
+like(id_compress('foo%bar@wtf'), qr/\A[a-f0-9]{40}\z/,
+        "percent always converted to sha1 to workaround buggy httpds");
+
+is(id_compress('foobar-wtf'), 'foobar-wtf', 'regular ID not compressed');
+
  {
          use Email::MIME;
          my $mime = Email::MIME->create;