global/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2026-03-30 03:20:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'ab/tap' into next

Browse Source 
* ab/tap:
  t/t9700/test.pl: don't access private object members, use public access methods
This commit is contained in:
Junio C Hamano
2010-06-29 11:36:11 -07:00
parent ee7a28aeae 15eeb6e921
commit c73dc30cc8
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
t/t9700/test.pl
View File

@@ -10,8 +10,8 @@ use Test::More qw(no_plan);
BEGIN {
# t9700-perl-git.sh kicks off our testing, so we have to go from
# there.
Test::More->builder->{Curr_Test} = 1;
Test::More->builder->{No_Ending} = 1;
Test::More->builder->current_test(1);
Test::More->builder->no_ending(1);
}
use Cwd;
@@ -113,7 +113,7 @@ like($last_commit, qr/^[0-9a-fA-F]{40}$/, 'rev-parse returned hash');
my $dir_commit = $r2->command_oneline('log', '-n1', '--pretty=format:%H', '.');
isnt($last_commit, $dir_commit, 'log . does not show last commit');
printf "1..%d\n", Test::More->builder->{Curr_Test};
printf "1..%d\n", Test::More->builder->current_test;
my $is_passing = eval { Test::More->is_passing };
exit($is_passing ? 0 : 1) unless $@ =~ /Can't locate object method/;