Update test_kit.R

Author: 2005m

tests/test_kit.R

@@ -1784,12 +1784,12 @@ check("0028.004", plast(y, z, x), base_plast(y, z, x))
 check("0028.005", pfirst(x1, y1, z1), base_pfirst(x1, y1, z1))
 check("0028.006", plast(x1, y1, z1), base_plast(x1, y1, z1))
 check("0028.007", pfirst(y1, z1, x1), base_pfirst(y1, z1, x1))
-check("0024.008", plast(y1, z1, x1), base_plast(y1, z1, x1))
+check("0028.008", plast(y1, z1, x1), base_plast(y1, z1, x1))
 
 check("0028.009", pfirst(list(x1, y1, z1)), base_pfirst(list(x1, y1, z1)))
 check("0028.010", plast(list(x1, y1, z1)), base_plast(list(x1, y1, z1)))
 check("0028.011", pfirst(data.frame(y1, z1, x1)), base_pfirst(data.frame(y1, z1, x1)))
-check("0024.012", plast(data.frame(y1, z1, x1)), base_plast(data.frame(y1, z1, x1)))
+check("0028.012", plast(data.frame(y1, z1, x1)), base_plast(data.frame(y1, z1, x1)))
 
 check("0028.013", pfirst(list(1, NULL), list(NULL, 2)), list(1, 2))
 check("0028.014", plast(list(1, NULL), list(NULL, 2)), list(1, 2))