#Testing using package testthat for detailed error messages
library(testthat)

#Get the testing function applied to compare the two venn diagram objects
source("testFunction.R");

#load in the reference plot data
load("data/plotsOne.rda");

#Suppress plotting for sanity
options(device=pdf());

#initialize the testing list of venn diagrams
venn.test <- list();

#Simple

venn.test <- c(venn.test,list(draw.single.venn(100, "First")))

#Colour and Labeled

venn.test <- c(venn.test,list(draw.single.venn(
    area = 365,
    category = "All\nDays",
    lwd = 5,
    lty = "blank",
    cex = 3,
    label.col = "orange",
    cat.cex = 4,
    cat.pos = 180,
    cat.dist = -0.20,
    cat.col = "white",
    fill = "red",
    alpha = 0.15
    )))

testNames <- c('simple','colour');

#Strip the polygons of their x and y values. They have equivalent information in their params field

for(i in 1:length(venn.test)){
	for(j in 1:length(venn.test[[i]])){
		if(class(venn.test[[i]][[j]])[1] == "polygon"){
			venn.test[[i]][[j]]$x <- NULL;
			venn.test[[i]][[j]]$y <- NULL;
		}
	}
}

#Loop over all of the test cases
for(i in 1:length(venn.test)){
	test_that(paste("Case",testNames[i],"of one category"),
	{
		for(j in 1:length(venn.test[[i]])){
			expect_that(venn.test[[i]][[j]],is_identical_without_name(venn.plot[[i]][[j]],maxLength=3));
		}
	})
}

#Reaches here only if error is not thrown beforehand
print("One category tests complete. No discrepancies found");