[Blotter-commits] r122 - pkg/blotter/tests

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

Author: peter_carl
Date: 2009-11-24 04:46:05 +0100 (Tue, 24 Nov 2009)
New Revision: 122

Modified:
   pkg/blotter/tests/txnFee.R
Log:
- fixed test lines for updatePortf


Modified: pkg/blotter/tests/txnFee.R
===================================================================
--- pkg/blotter/tests/txnFee.R	2009-11-23 18:35:57 UTC (rev 121)
+++ pkg/blotter/tests/txnFee.R	2009-11-24 03:46:05 UTC (rev 122)
@@ -10,7 +10,7 @@
 ## simple portfolio with one transaction
 p1 <- initPortf(symbols=symbols)
 p1 <- addTxn(p1, "IBM", '2007-01-04', 100, 96.5, 0.05*100, verbose)
-p1 <- updatePortf(p1,'2007-01-03','2007-01-10')
+p1 <- updatePortf(p1,'2007-01-03/2007-01-10')
 a1 <- initAcct(portfolios="p1")
 a1 <- updateAcct(a1,'2007-01')
 a1 <- updateEndEq(a1,'2007-01')
@@ -19,7 +19,7 @@
 fiveCents <- function(qty, prc) return(0.05*qty)
 p2 <- initPortf(symbols=symbols)
 p2 <- addTxn(p2, "IBM", '2007-01-04', 100, 96.5, fiveCents, verbose)
-p2 <- updatePortf(p2,'2007-01-03','2007-01-10')
+p2 <- updatePortf(p2,'2007-01-03::2007-01-10')
 a2 <- initAcct(portfolios="p2")
 a2 <- updateAcct(a2,'2007-01')
 a2 <- updateEndEq(a2,'2007-01')