Add an unit tests for the sugar na_omit

Author: artemklevtsov

inst/unitTests/cpp/sugar.cpp

@@ -216,6 +216,11 @@ LogicalVector runit_any_isna( NumericVector xx){
     return any( is_na( xx ) ) ;
 }
 
+// [[Rcpp::export]]
+NumericVector runit_na_omit( NumericVector xx ){
+    return na_omit( xx ) ;
+}
+
 // [[Rcpp::export]]
 List runit_lapply( IntegerVector xx){
     List res = lapply( xx, seq_len );

inst/unitTests/runit.sugar.R

@@ -290,6 +290,16 @@ if (.runThisTest) {
 	checkEquals( fx( c(1:5,NA,7:10) ) , TRUE )
     }
 
+    test.sugar.na_omit.na <- function( ){
+        fx <- runit_na_omit
+        checkEquals( fx( c(1:5,NA,7:10) ), fx( c(1:5,7:10) ) )
+    }
+
+    test.sugar.na_omit.nona <- function( ){
+        fx <- runit_na_omit
+        checkEquals( fx( c(1:10) ), fx( c(1:10) ) )
+    }
+
     test.sugar.lapply <- function( ){
 	fx <- runit_lapply
 	checkEquals( fx( 1:10 ), lapply( 1:10, seq_len ) )