-# Copyright (C) 2013-2015 all contributors <meta@public-inbox.org>
-# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+# Copyright (C) 2013-2018 all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use strict;
use warnings;
use Test::More;
use Plack::Util;
use_ok 'PublicInbox::View';
-my @q = (
- 'foo@bar', 'foo@bar',
- 'a b', "'a b'",
- "a'b", "'a'\\''b'",
-);
-while (@q) {
- my $input = shift @q;
- my $expect = shift @q;
- my $res = PublicInbox::Reply::squote_maybe($input);
- is($res, $expect, "quote $input => $res");
-}
-
# FIXME: make this test less fragile
my $ctx = {
env => { HTTP_HOST => 'example.com', 'psgi.url_scheme' => 'http' },
base_url => sub { 'http://example.com/' },
cloneurl => sub {[]},
nntp_url => sub {[]},
+ max_git_part => sub { undef },
description => sub { '' }),
};
$ctx->{-inbox}->{-primary_address} = 'test@example.com';