CamelCase S7 class name

r-lib · Nov 7, 2024 · 712211c · 712211c
1 parent 8058180
commit 712211c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/tests/testthat/TestS7/R/foo.R b/tests/testthat/TestS7/R/foo.R
@@ -1,5 +1,5 @@
 #' @import S7
-range <- new_class("range",
+Range <- new_class("Range",
   properties = list(
     start = class_double,
     end = class_double,
@@ -29,6 +29,6 @@ range <- new_class("range",
 #' @export
 inside <- new_generic("inside", "x")
 
-method(inside, range) <- function(x, y) {
+method(inside, Range) <- function(x, y) {
   y >= x@start & y <= x@end
 }
diff --git a/tests/testthat/TestS7/tests/testthat/test-foo.R b/tests/testthat/TestS7/tests/testthat/test-foo.R
@@ -1,5 +1,5 @@
-test_that("range works", {
-  x <- range(1:10)
+test_that("Range works", {
+  x <- Range(1:10)
 
   x@end <- 20
 
@@ -14,5 +14,3 @@ test_that("range works", {
   expect_equal(x@length, 5)
   expect_equal(x@end, 6)
 })
-
-