X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Flei.t;h=b10c9b59c72b8e29570b63dbf5853463a2c55cb7;hb=f1e4e14793d155ea7d6ed7a6858b668e97c7e5d8;hp=53fc43fbbb0a2d5db62284612a23fd87fc446543;hpb=9d0f17840479508de4aaf76fe6c150e94a9f79c3;p=public-inbox.git diff --git a/t/lei.t b/t/lei.t index 53fc43fb..b10c9b59 100644 --- a/t/lei.t +++ b/t/lei.t @@ -101,7 +101,7 @@ my $test_config = sub { lei_ok(qw(-c imap.debug=a -c imap.debug=b config --get-all imap.debug)); is($lei_out, "a\nb\n", '-c and --get-all work together'); - lei_ok([qw(config -e)], { VISUAL => 'cat' }); + lei_ok([qw(config -e)], { VISUAL => 'cat', EDITOR => 'cat' }); is($lei_out, "[a]\n\tb = c\n", '--edit works'); }; @@ -143,6 +143,9 @@ my $test_fail = sub { lei('-C', '/dev/null', 'q', 'whatever'); is($? >> 8, 1, 'chdir at beginning fails to /dev/null'); + lei_ok('q', "foo\n"); + like($lei_err, qr/trailing `\\n' removed/s, "noted `\\n' removal"); + for my $lk (qw(ei inbox)) { my $d = "$home/newline\n$lk"; mkdir $d;