src/library/tools/tests/S3.R

## check that all S3 methods in base are registered.
## See the end of src/library/base/R/zzz.R ...
(function() {
  old <-  Sys.getlocale("LC_COLLATE")
  on.exit(Sys.setlocale("LC_COLLATE", old))
          Sys.setlocale("LC_COLLATE", "C")
  stopifnot(identical(base:::.S3_methods_table,
                      tools:::.make_S3_methods_table_for_base()))
})()