t/solver_git: use like() to improve error reporting

I hit a test failure here, but haven't been able to reproduce
it...

diff --git a/t/solver_git.t b/t/solver_git.t
index 13e478b325bcfa3b1c9f4613c99f4971f761461d..fe1aff0bb2a06e6b655ea521a2c59632481ef3d6 100644 (file)
--- a/t/solver_git.t
+++ b/t/solver_git.t
@@ -84,7 +84,7 @@ index 15ac20eb..771486c4
 @@ -1,13 +1,12 @@
  #!perl -w
 EOM
-       ok(index($lei_out, $exp) >= 0,
+       like($lei_out, qr/\Q$exp\E/,
                'preserve mode, regen header + context from -U0 patch');
        my $e = { GIT_DIR => "$ENV{HOME}/.local/share/lei/store/ALL.git" };
        my @x = xqx([qw(git cat-file --batch-all-objects --batch-check)], $e);