t/class/accessor.t - fix Writer copypasta

Author: richardleach

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');
 }