add minimal test

Author: ben-schwen

inst/tests/tests.Rraw

@@ -20599,10 +20599,8 @@ test(2295.3, is.data.table(d2))
 test(2296, d2[x %no such operator% 1], error = '%no such operator%')
 
 # coerce Dates to double if join on multiple columns, #6602
-date_int = seq(as.Date('2015-01-01'), as.Date('2015-01-01'), by="day")
-date_dbl = as.Date('2015-01-01')
-x = data.table(a=date_int, b=1L)
-y = data.table(c=date_int, d=date_dbl)
+x = data.table(a=1L)
+y = data.table(c=1L, d=2)
+y[x, on=.(c == a, d == a)]
 
-test(2297.1, options=c(datatable.verbose=TRUE), y[x, on=.(c == a)], data.table(c=date_int, d=date_dbl, b=1L), output="No coercion needed.")
-test(2297.2, options=c(datatable.verbose=TRUE), y[x, on=.(c == a, d == a)], data.table(c=date_int, d=date_int, b=1L), output="coercing to double.")
+test(2297.1, options=c(datatable.verbose=TRUE), y[x, on=.(c == a, d == a)], data.table(c=date_int, d=date_int, b=1L), output="coercing to double.")