[Blotter-commits] r73 - pkg/tests

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

Author: edd
Date: 2009-03-12 13:19:03 +0100 (Thu, 12 Mar 2009)
New Revision: 73

Modified:
   pkg/tests/txnFee.R
   pkg/tests/txnFee.Rout.save
Log:
test portfolios, not account, for equality as the accounts reflect the different portfolio _variable_ names


Modified: pkg/tests/txnFee.R
===================================================================
--- pkg/tests/txnFee.R	2009-03-12 02:46:03 UTC (rev 72)
+++ pkg/tests/txnFee.R	2009-03-12 12:19:03 UTC (rev 73)
@@ -25,4 +25,5 @@
 
 print(a1)
 print(a2)
-print(all.equal(a1, a2))
+#print(all.equal(a1, a2))	## cannot be equal because of names(): p1 != p2
+print(all.equal(p1, p2))

Modified: pkg/tests/txnFee.Rout.save
===================================================================
--- pkg/tests/txnFee.Rout.save	2009-03-12 02:46:03 UTC (rev 72)
+++ pkg/tests/txnFee.Rout.save	2009-03-12 12:19:03 UTC (rev 73)
@@ -120,6 +120,7 @@
 2007-01-09 06:00:00           0           117        117
 2007-01-10 06:00:00           0          -118       -118
 
-> print(all.equal(a1, a2))
-[1] "Names: 1 string mismatch"
+> #print(all.equal(a1, a2))	## cannot be equal because of names(): p1 != p2
+> print(all.equal(p1, p2))
+[1] TRUE
 >