tests

Author: venom1204

inst/tests/tests.Rraw

@@ -21168,36 +21168,31 @@ test(2317.7, DT1[DF2, on='a', e := i.e]$e, 5)
 test(2317.8, DT1[DF2, on='a', e2 := x.a + i.e]$e2, 6)
 test(2317.9, DT1[DF2, on='a', .(e = x.a + i.e)]$e, 6)
 
-# frank() should not strip names from named vector input
+# frank() do not strip names from named vector input
 x = c(a = "a", b = "b", c = "a")
 test(2318.01, { frank(x); names(x) }, c("a", "b", "c"))
-
-# frank() should not modify names inside a list of named vectors
+# frank() do not modify names inside a list of named vectors
 ls = list(a = c(a = 1, b = 2), b = c(a = 2, b = 3))
 frank(ls)
 test(2318.02, names(ls[[1]]), c("a", "b"))
 test(2318.03, names(ls[[2]]), c("a", "b"))
-
-# frank() should not mutate original list (deep equality)
+# frank() do not mutate original list (deep equality)
 ls = list(a = c(a = 10, b = 20), b = c(a = 30, b = 40))
 original_ls = list(a = c(a = 10, b = 20), b = c(a = 30, b = 40))
 frank(ls)
 test(2318.04, identical(ls, original_ls), TRUE)
-
-# frank() should not mutate list of unnamed vectors (control)
+# frank() do not mutate list of unnamed vectors (control)
 ls = list(a = c(1, 2), b = c(2, 3))
 original_ls = list(a = c(1, 2), b = c(2, 3))
 frank(ls)
 test(2318.05, identical(ls, original_ls), TRUE)
-
-# frank() should return correct ranks on data.table column without side effect
+# frank() returns correct ranks on data.table column without side effect
 DT = data.table(x = c(3, 2, 1, 3))
 original_x = DT$x
 ranks = frank(DT$x)
 test(2318.06, ranks, c(3.5, 2, 1, 3.5))
 test(2318.07, identical(DT$x, original_x), TRUE)
-
-# frank() should preserve names on factors
+# frank() preserve names on factors
 x = factor(c("low", "medium", "high"), levels = c("low", "medium", "high"))
 names(x) = c("a", "b", "c")
 frank(x)