From 238c4362687381a265f6224ea713b34ea7c1b5d7 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Tue, 24 Sep 2024 19:47:15 +0000
Subject: [PATCH] make `check` report where run from, set `rop2` each run

---
 t/Object/GPState.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/t/Object/GPState.t b/t/Object/GPState.t
index 4cbb310c..8b53ba23 100644
--- 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' : '';