+
+ my $after = $git0->qx(qw(log -1 --pretty=raw --raw -r --no-abbrev));
+ if ($after =~ m!( [a-f0-9]+ )A\td$!) {
+ my $oid = $1;
+ ok(index($before, $oid) > 0, 'no new blob introduced');
+ } else {
+ fail('failed to extract blob from log output');
+ }