diff --git a/t/class/accessor.t b/t/class/accessor.t
index 97b37941d941..832637cf8996 100644
--- a/t/class/accessor.t
+++ b/t/class/accessor.t
@@ -50,11 +50,11 @@ no warnings 'experimental::class';
 
     # Write accessor wants exactly one argument
     ok(!eval { $o->set_s() },
-        'Reader accessor fails with no argument');
+        'Writer accessor fails with no argument');
     like($@, qr/^Too few arguments for subroutine \'Testcase2::set_s\' \(got 1; expected 2\) at /,
         'Failure from argument to accessor');
     ok(!eval { $o->set_s(1, 2) },
-        'Reader accessor fails with 2 arguments');
+        'Writer accessor fails with 2 arguments');
     like($@, qr/^Too many arguments for subroutine \'Testcase2::set_s\' \(got 3; expected 2\) at /,
         'Failure from argument to accessor');
 }