Minor fix in example tests

greenplum-db · Apr 17, 2014 · 4450863 · 4450863
1 parent cbcf366
commit 4450863
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: PivotalR
 Type: Package
 Title: R front-end to PostgreSQL and Pivotal (Greenplum) database,
         wrapper for MADlib
-Version: 0.1.15.31
+Version: 0.1.15.32
 Date: 2014-03-10
 Author: Predictive Analytics Team at Pivotal Inc. <[email protected]>,
         with contributions from Data Scientist Team at Pivotal Inc.

diff --git a/tests/test-examples.r b/tests/test-examples.r
@@ -49,7 +49,7 @@ fm <- summary(lm(rings ~ . - id - sex, data = dat.im))
 test_that("Examples of value equivalent", {
     ## numeric values are the same, but names are not
     ## 4, 5, 6
-    expect_that(fdb$coef,    equals(as.numeric(fm$coefficients[,1])))
+    expect_that(as.numeric(fdb$coef),    equals(as.numeric(fm$coefficients[,1])))
     expect_that(fdb$coef,    is_equivalent_to(fm$coefficients[,1]))
     expect_that(fdb$std_err, is_equivalent_to(fm$coefficients[,2]))
 })