Some more unit tests (make sure we properly generate dimnames attribute if it doesn't exist)

Author: kevinushey

inst/unitTests/cpp/Matrix.cpp

@@ -211,3 +211,8 @@ void runit_rownames_colnames_proxy(
     rownames(x) = row_names;
     colnames(x) = col_names;
 }
+
+// [[Rcpp::export]]
+void runit_rownames_proxy(NumericMatrix x) {
+    rownames(x) = CharacterVector::create("A", "B", "C");
+}

inst/unitTests/runit.Matrix.R

@@ -153,7 +153,12 @@ if (.runThisTest) {
         checkEquals(colnames(m), LETTERS[1:2])
         checkException(runit_rownames_colnames_proxy(m, letters[1:3], letters[1:3]))
         checkException(runit_rownames_colnames_proxy(m, letters[1:2], NULL))
-    } 
+
+        m <- matrix(as.numeric(1:9), nrow = 3)
+        runit_rownames_proxy(m)
+        checkEquals(rownames(m), c("A", "B", "C"))
+        checkEquals(colnames(m), NULL)
+    }
 
 
 }