inst/RUnit/runit.showmethods.R

In BLCOP: Black-Litterman and copula-opinion pooling frameworks

# $LastChangedDate: 2010-02-13 20:41:48 +0100 (Sat, 13 Feb 2010) $
# $Rev: 4745 $
#
# Unit test for "show" methods
#
# Author: Francisco
###############################################################################

test.show.COPPosterior <- function()
{
	x <- BLCOP:::COPExample()
	
	checkEquals( capture.output(show(x$posterior)),  
			c("Asset set:  SP,FTSE,CAC,DAX ", "Views used to generate this posterior: ", 
			"[1] \"1*DAX~unif:(min=-0.02,max=0)\"", "Number of simulations: 1000 "
	))
}