Test case for PUB-532.

panzelon · Jul 22, 2014 · 9a20743 · 9a20743
1 parent b3f53ac
commit 9a20743
Showing 1 changed file with 27 additions and 0 deletions.
diff --git a/R/tests/testdir_jira/runit_NOPASS_pub_532_negative_exponent.R b/R/tests/testdir_jira/runit_NOPASS_pub_532_negative_exponent.R
@@ -0,0 +1,27 @@
+setwd(normalizePath(dirname(R.utils::commandArgs(asValues=TRUE)$"f")))
+source('../findNSourceUtils.R')
+
+test.runit_NOPASS_pub_532_negative_exponent <- function(localH2O) {
+
+covtype.hex <- h2o.importFile(localH2O, normalizePath(locate("smalldata/covtype/covtype.20k.data")), "cov")
+
+# Are we in the right universe?
+expect_equal(20000, dim(covtype.hex)[1])
+expect_equal(55, dim(covtype.hex)[2])
+
+# currently works:
+h2o.exec(covtype.hex$C55^2)
+h2o.exec(covtype.hex$C55^(-2))
+
+# currently fails:
+h2o.exec(covtype.hex$C55^-2)
+h2o.exec(covtype.hex$C55^ -2)
+h2o.exec(covtype.hex$C55 ^-2)
+h2o.exec(covtype.hex$C55 ^-2 )
+
+testEnd()
+
+}
+
+doTest("PUB-532 expresison parser fails on negative exponents.", test.runit_NOPASS_pub_532_negative_exponent)
+