Enhance OO mocking

[hadley]

Fixes #2302

[claude]

Claude finished @hadley's task —— View job

---

PR Review: Enhance OO mocking

Reviewed the OO mocking enhancements. Found one potential issue:

Issue in remove_s3_method() (R/mock-oo.R:66-69):

if (env_has(s3_envir, ".__S3MethodsTable__.")) {
  table <- env_get(s3_envir, ".__S3MethodsTable__.")
  env_unbind(table, paste0(generic, ".", class))
}

The function should check if the method exists in the table before attempting to unbind it. Calling env_unbind() on a non-existent key could cause issues.

Suggested fix:

if (env_has(s3_envir, ".__S3MethodsTable__.")) {
  table <- env_get(s3_envir, ".__S3MethodsTable__.")
  method_name <- paste0(generic, ".", class)
  if (env_has(table, method_name)) {
    env_unbind(table, method_name)
  }
}

Otherwise, the changes look solid with good test coverage.