[Blotter-commits] r71 - pkg/tests

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

Author: edd
Date: 2009-03-12 03:45:21 +0100 (Thu, 12 Mar 2009)
New Revision: 71

Modified:
   pkg/tests/txnFee.R
Log:
use all.equal() and not identical()

Modified: pkg/tests/txnFee.R
===================================================================
--- pkg/tests/txnFee.R	2009-03-12 02:39:13 UTC (rev 70)
+++ pkg/tests/txnFee.R	2009-03-12 02:45:21 UTC (rev 71)
@@ -1,5 +1,5 @@
 
-library(blotter)
+suppressMessages(library(blotter))	# to suppress the TZ noise from xts
 library(quantmod)
 
 verbose <- FALSE
@@ -23,4 +23,6 @@
 a2 <- updateAcct(a2,'2007-01')
 a2 <- updateEndEq(a2,'2007-01')
 
-stopifnot(identical(a1, a2))
+print(a1)
+print(a2)
+print(all.equal(a1, a2))