added tests for use of vector replacement also

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -15573,6 +15573,8 @@ test(2060.157, x, ans)  # setcoalesce updated the first item (x) by reference
 # nan parameter, #4567
 test(2060.158, fcoalesce(c(NA_real_, NaN), 0, nan=NA), c(0, 0))
 test(2060.159, fcoalesce(c(NA_real_, NaN), 0, nan=NaN), c(0, NaN))
+test(2060.160, fcoalesce(c(NA_real_, NaN), c(1, 2), nan=NA), c(1, 2))
+test(2060.161, fcoalesce(c(NA_real_, NaN), c(1, 2), nan=NaN), c(1, NaN))
 # factor of different levels
 x = factor(c('a','b',NA,NA,'b'))
 y = factor(c('b','b','a',NA,'b'))