Fixed unit tests

Author: dcdillon

inst/include/Rcpp/Nullable.h

@@ -124,7 +124,7 @@ namespace Rcpp {
         /**
          * Return a clone of m_sexp as a T
          */
-        inline T clone() const { return Rcpp::clone(as()); }
+        inline T clone() const { return Rcpp::clone(Rcpp::as< T >(get())); }
 
     private:
         SEXP m_sexp;

inst/unitTests/runit.misc.R

@@ -191,7 +191,7 @@ if (.runThisTest) {
         checkEquals( testNullableAs(M), M )
     }
 
-    test.NullableAccessAs <- function() {
+    test.NullableAccessClone <- function() {
         M <- matrix(1:4, 2, 2)
         checkEquals( testNullableClone(M), M )
     }