[Blotter-commits] r1288 - pkg/quantstrat/inst/tests

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

Author: milktrader
Date: 2012-12-13 00:04:25 +0100 (Thu, 13 Dec 2012)
New Revision: 1288

Modified:
   pkg/quantstrat/inst/tests/bbands_version_for_tests.R
   pkg/quantstrat/inst/tests/bbands_version_for_tests.r
   pkg/quantstrat/inst/tests/bee_version_for_tests.R
   pkg/quantstrat/inst/tests/testthat_bbands.r
   pkg/quantstrat/inst/tests/testthat_bee.R
Log:
commented out environment cleanup code

Modified: pkg/quantstrat/inst/tests/bbands_version_for_tests.R
===================================================================
--- pkg/quantstrat/inst/tests/bbands_version_for_tests.R	2012-12-12 22:47:25 UTC (rev 1287)
+++ pkg/quantstrat/inst/tests/bbands_version_for_tests.R	2012-12-12 23:04:25 UTC (rev 1288)
@@ -1,8 +1,8 @@
 #################### CLEANUP PREVIOUS TEST ######################
 
-suppressWarnings(rm(list=ls(.strategy), pos=.strategy))
-suppressWarnings(rm(list=ls(.blotter), pos=.blotter))
-suppressWarnings(rm(list=ls()))
+# suppressWarnings(rm(list=ls(.strategy), pos=.strategy))
+# suppressWarnings(rm(list=ls(.blotter), pos=.blotter))
+# suppressWarnings(rm(list=ls()))
 
 ################### LOAD QUANTSTRAT #################
 

Modified: pkg/quantstrat/inst/tests/bbands_version_for_tests.r
===================================================================
--- pkg/quantstrat/inst/tests/bbands_version_for_tests.r	2012-12-12 22:47:25 UTC (rev 1287)
+++ pkg/quantstrat/inst/tests/bbands_version_for_tests.r	2012-12-12 23:04:25 UTC (rev 1288)
@@ -1,8 +1,8 @@
 #################### CLEANUP PREVIOUS TEST ######################
 
-suppressWarnings(rm(list=ls(.strategy), pos=.strategy))
-suppressWarnings(rm(list=ls(.blotter), pos=.blotter))
-suppressWarnings(rm(list=ls()))
+# suppressWarnings(rm(list=ls(.strategy), pos=.strategy))
+# suppressWarnings(rm(list=ls(.blotter), pos=.blotter))
+# suppressWarnings(rm(list=ls()))
 
 ################### LOAD QUANTSTRAT #################
 

Modified: pkg/quantstrat/inst/tests/bee_version_for_tests.R
===================================================================
--- pkg/quantstrat/inst/tests/bee_version_for_tests.R	2012-12-12 22:47:25 UTC (rev 1287)
+++ pkg/quantstrat/inst/tests/bee_version_for_tests.R	2012-12-12 23:04:25 UTC (rev 1288)
@@ -1,10 +1,10 @@
 
 #################### CLEANUP PREVIOUS TEST ######################
-
-suppressWarnings(rm(list=ls(.strategy), pos=.strategy))
-suppressWarnings(rm(list=ls(.blotter), pos=.blotter))
-suppressWarnings(rm(list=ls()))
-
+# 
+# suppressWarnings(rm(list=ls(.strategy), pos=.strategy))
+# suppressWarnings(rm(list=ls(.blotter), pos=.blotter))
+# suppressWarnings(rm(list=ls()))
+# 
 ################### LOAD QUANTSTRAT #################
 
 suppressMessages(require(quantstrat))

Modified: pkg/quantstrat/inst/tests/testthat_bbands.r
===================================================================
--- pkg/quantstrat/inst/tests/testthat_bbands.r	2012-12-12 22:47:25 UTC (rev 1287)
+++ pkg/quantstrat/inst/tests/testthat_bbands.r	2012-12-12 23:04:25 UTC (rev 1288)
@@ -13,10 +13,10 @@
 LLoser    = stratstat$Largest.Loser
 MaxDD     = stratstat$Max.Drawdown
 
-suppressWarnings(rm("order_book.bbands",pos=.strategy))
-suppressWarnings(rm("account.bbands","portfolio.bbands",pos=.blotter))
-suppressWarnings(rm("account.st","portfolio.st","stock.str","stratBBands","initDate","initEq",'start_t','end_t'))
-
+# suppressWarnings(rm("order_book.bbands",pos=.strategy))
+# suppressWarnings(rm("account.bbands","portfolio.bbands",pos=.blotter))
+# suppressWarnings(rm("account.st","portfolio.st","stock.str","stratBBands","initDate","initEq",'start_t','end_t'))
+# 
 ######################## RUN TEST SUITE #######################
 
 context('Consistent trade statistics for bbands.R')

Modified: pkg/quantstrat/inst/tests/testthat_bee.R
===================================================================
--- pkg/quantstrat/inst/tests/testthat_bee.R	2012-12-12 22:47:25 UTC (rev 1287)
+++ pkg/quantstrat/inst/tests/testthat_bee.R	2012-12-12 23:04:25 UTC (rev 1288)
@@ -4,9 +4,9 @@
 
 source('bee_version_for_tests.R')
 
-bing = ls()
-bang = ls(.strategy)
-boom = ls(.blotter)
+#  bing = ls()
+#  bang = ls(.strategy)
+#  boom = ls(.blotter)
 
 stratstat   = tradeStats(port)
 
@@ -18,9 +18,9 @@
 MaxDD     = stratstat$Max.Drawdown
 
 
-suppressWarnings(rm(list=bing))
-suppressWarnings(rm(list=bang, pos=.strategy))
-suppressWarnings(rm(list=boom, pos=.blotter))
+# suppressWarnings(rm(list=ls()))
+# suppressWarnings(rm(list=ls(), pos=.strategy))
+# suppressWarnings(rm(list=ls(), pos=.blotter))
 
 ######################## RUN TEST SUITE #######################