lei: stricter external checks for valid $GIT_DIR/objects

I ended up with my $HOME in
~/.cache/lei/all_locals_ever.git/objects/info/alterntes
and am trying to avoid that in the future.

1 files changed, 2 insertions, 1 deletions

diff --git a/t/lei.t b/t/lei.t
index b10c9b59..a80143ef 100644
--- a/t/lei.t
+++ b/t/lei.t
@@ -148,7 +148,8 @@ my $test_fail = sub {
 
         for my $lk (qw(ei inbox)) {
                 my $d = "$home/newline\n$lk";
-                mkdir $d;
+                my $all = $lk eq 'ei' ? 'ALL' : 'all';
+                File::Path::mkpath("$d/$all.git/objects");
                 open my $fh, '>', "$d/$lk.lock" or BAIL_OUT "open $d/$lk.lock";
                 for my $fl (qw(-I --only)) {
                         ok(!lei('q', $fl, $d, 'whatever'),