fix test cases

Author: ben-schwen

inst/tests/tests.Rraw

@@ -20600,10 +20600,10 @@ test(2296, d2[x %no such operator% 1], error = '%no such operator%')
 
 # coerce Dates to double if join on multiple columns, #6602
 x = data.table(a=1L)
-y = data.table(c=1L, d=2)
+y = data.table(c=1L, d=1)
 test(2297.1, options=c(datatable.verbose=TRUE), y[x, on=.(c == a, d == a)], data.table(c=1L, d=1L), output="Coercing .*c to type double")
 test(2297.2, options=c(datatable.verbose=TRUE), y[x, on=.(d == a, c == a)], data.table(c=1L, d=1L), output="Coercing .*c to type double")
 x = data.table(a=1)
-y = data.table(c=1, d=2L)
-test(2297.3, options=c(datatable.verbose=TRUE), y[x, on=.(c == a, d == a)], data.table(c=1L, d=1L), output="Coercing double column x.c (which contains no fractions) to type integer")
-test(2297.4, options=c(datatable.verbose=TRUE), y[x, on=.(d == a, c == a)], data.table(c=1L, d=1L), output="Coercing double column x.c (which contains no fractions) to type integer")
+y = data.table(c=1, d=1L)
+test(2297.3, options=c(datatable.verbose=TRUE), y[x, on=.(c == a, d == a)], data.table(c=1, d=1), output="Coercing .*d to type double")
+test(2297.4, options=c(datatable.verbose=TRUE), y[x, on=.(d == a, c == a)], data.table(c=1, d=1), output="Coercing .*d to type double")