1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/env perl -w use strict; use Test::More; use Bin qw($BIN); mkdir 't-git-repo/subdirectory', 0755; chdir 't-git-repo/subdirectory' or die $!; my $branch_list = qx($BIN); is $branch_list, '', 'must find database file'; done_testing;