Add unit test

Author: Florian Plaza Oñate

inst/unitTests/cpp/Subset.cpp

@@ -92,3 +92,13 @@ NumericVector subset_assign_subset5(NumericVector x) {
     return y;
 }
 
+// [[Rcpp::export]]
+NumericVector subset_assign_vector_size_1(NumericVector x, int i) {
+    NumericVector y(1);
+    y[0]=i;
+
+    x[x < 4] = y;
+
+    return x;
+}
+

inst/unitTests/runit.subset.R

@@ -84,6 +84,8 @@ if (.runThisTest) {
         checkIdentical(subset_assign_subset4(seq(2, 4, 0.2)), c(2L,2L,2L,2L,2L,3L,0L,0L,0L,0L,0L))
 
         checkException(subset_assign_subset5(1:6), msg = "index error")
+
+        checkIdentical(subset_assign_vector_size_1(1:6,7), c(7,7,7,4,5,6))
     }
 
 }