X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fhval.t;fp=t%2Fhval.t;h=e80a02ff40879657678425852c7c9f26c541df32;hb=7f454bace0442cd5ce22068ec1e098e964d82778;hp=38605c6f16faf6e4b424af66a7306446a27334c7;hpb=bc18c05b1681acc9a468b298c34b12ca4db3e5bb;p=public-inbox.git diff --git a/t/hval.t b/t/hval.t index 38605c6f..e80a02ff 100644 --- a/t/hval.t +++ b/t/hval.t @@ -47,15 +47,17 @@ EOF is($html, $exp, 'only obfuscated relevant addresses'); -is('foo-bar', PublicInbox::Hval::to_filename('foo bar '), +is(PublicInbox::Hval::to_filename('foo bar '), 'foo-bar', 'to_filename has no trailing -'); -is('foo-bar', PublicInbox::Hval::to_filename("foo bar\nanother line\n"), +is(PublicInbox::Hval::to_filename("foo bar\nanother line\n"), 'foo-bar', 'to_filename has no repeated -, and nothing past LF'); -is('foo.bar', PublicInbox::Hval::to_filename("foo....bar"), +is(PublicInbox::Hval::to_filename("foo....bar"), 'foo.bar', 'to_filename squeezes -'); +is(PublicInbox::Hval::to_filename(''), undef, 'empty string returns undef'); + my $s = "\0\x07\n"; PublicInbox::Hval::src_escape($s); is($s, "\\0\\a\n", 'src_escape works as intended');