make check report where run from, set rop2 each run

dk · Sep 24, 2024 · 238c436 · 238c436
1 parent 6db3140
commit 238c436
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/t/Object/GPState.t b/t/Object/GPState.t
@@ -134,6 +134,7 @@ my ($bits1, $bits2);
 
 sub check
 {
+	local $Test::Builder::Level = $Test::Builder::Level + 1;
 	my ( $method, $value1, $value2, %opt) = @_;
 	my $xaa = $d->antialias ? '.aa' : '';
 	$d->$method($value1);
@@ -157,6 +158,7 @@ $d->antialias(0);
 
 for my $aa ( 0, 1) {
 	next if $aa && !$can_antialias;
+	$d->rop2(rop::NoOper);
 	$d->antialias($aa);
 	$d->clipRect(0,0,8,8);
 	my $xaa = $aa ? '.aa' : '';