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

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

Author: chiraganand
Date: 2014-05-15 21:16:42 +0200 (Thu, 15 May 2014)
New Revision: 351

Modified:
   pkg/inst/tests/test_interfaces.R
Log:
Fixed tests based on the new colnames of event list.

Modified: pkg/inst/tests/test_interfaces.R
===================================================================
--- pkg/inst/tests/test_interfaces.R	2014-05-15 19:16:21 UTC (rev 350)
+++ pkg/inst/tests/test_interfaces.R	2014-05-15 19:16:42 UTC (rev 351)
@@ -55,8 +55,8 @@
 
     expected_outcomes <- c("success", "success")
 
-    test_events <- data.frame(outcome.unit = "ONGC",
-                              event.when = c("2011-08-01", "2010-05-14"),
+    test_events <- data.frame(name = "ONGC",
+                              when = c("2011-08-01", "2010-05-14"),
                               stringsAsFactors = FALSE)
     test_returns<- StockPriceReturns[complete.cases(StockPriceReturns$ONGC), "ONGC",
                                      drop = FALSE]
@@ -79,7 +79,7 @@
     expected_outcomes <- c("success", "success")
 
     test_events <- data.frame(name = "ONGC",
-                              event.when = c("2011-08-01", "2010-05-14"),
+                              when = c("2011-08-01", "2010-05-14"),
                               stringsAsFactors = FALSE)
     test_returns<- StockPriceReturns[complete.cases(StockPriceReturns$ONGC), "ONGC",
                                      drop = FALSE]
@@ -97,7 +97,7 @@
 ### Remapping
     cat("\nChecking remapping: ")
     test_events <- data.frame(name = "ONGC",
-                              event.when = c("2011-08-01", "2010-05-14"),
+                              when = c("2011-08-01", "2010-05-14"),
                               stringsAsFactors = FALSE)
     test_returns <- StockPriceReturns[complete.cases(StockPriceReturns$ONGC), "ONGC",
                                       drop = FALSE]