[Eventstudies-commits] r304 - pkg/inst/tests

[noreply at r-forge.r-project.org]

Author: chiraganand
Date: 2014-05-02 06:30:58 +0200 (Fri, 02 May 2014)
New Revision: 304

Modified:
   pkg/inst/tests/test_interfaces.R
Log:
Fixed expected error error in test cases.

Modified: pkg/inst/tests/test_interfaces.R
===================================================================
--- pkg/inst/tests/test_interfaces.R	2014-05-01 19:29:11 UTC (rev 303)
+++ pkg/inst/tests/test_interfaces.R	2014-05-02 04:30:58 UTC (rev 304)
@@ -4,7 +4,7 @@
     load("test_SplitDates.rda")
     load("test_StockPriceReturns.rda")
     load("test_NiftyIndex.rda")
-    load("test_usdinr.rda")
+    load("test_USDINR.rda")
 
 ### Basic event study with default args (market residuals)
     cat("Checking market residuals interface: ")
@@ -96,7 +96,7 @@
                           to.remap = TRUE,
                           remap = "cumsum")
 
-    expect_error(expect_that(test_es, equals(test_es_remap)))
+    expect_false(isTRUE(all.equal(test_es, test_es_remap)))
 
     ## cumprod
     test_es <- eventstudy(firm.returns = test_returns,
@@ -113,7 +113,7 @@
                           to.remap = TRUE,
                           remap = "cumprod")
 
-    expect_error(expect_that(test_es, equals(test_es_remap)))
+    expect_false(isTRUE(all.equal(test_es, test_es_remap)))
 
 ### Inference
     cat("Checking inference interface: ")
@@ -132,7 +132,7 @@
                           inference = FALSE,
                           inference.strategy = "bootstrap")
 
-    expect_error(expect_that(test_es_inference, equals(test_es)))
+    expect_false(isTRUE(all.equal(test_es, test_es_inference)))
 
     ## wilcoxon
     test_es_inference <- eventstudy(firm.returns = test_returns,
@@ -149,4 +149,6 @@
                           inference = FALSE,
                           inference.strategy = "wilcoxon")
 
-    expect_error(expect_that(test_es_inference, equals(test_es)))
+    expect_false(isTRUE(all.equal(test_es, test_es_inference)))
+
+})                                       # end test_that()