{
	attach.targets()
	T
}
testfit(aovcat)
testfit(aovall)
{
	Tfit <- update(gunaov)
	all.equal(gunaov, Tfit)
}
#nested
{
newfit <- summary(Tfit)
all(format(row.names(gunaov.summary))==row.names(newfit))
}
{
row.names(newfit) <- row.names(gunaov.summary)
all.equal(gunaov.summary, newfit)
}
{rm(newfit);T}
testfit(waov1)
#
#  This comes from aov2 test suite
#
testfit(half.aov)
{
#testfit(gaov)	# Error()
# need to remove contrasts attribute of statsci version
gaov.ssi <- aov(formula = plants ~ variety * treatment + Error(flats),
data = guayule)
attr(gaov.ssi,"contrasts") <- NULL
all.equal(gaov,gaov.ssi)
}
{
#testfit(gaov2)
gaov2.ssi <- aov(formula = plants ~ variety * treatment + Error(reps + flats),
data =  guayule)
attr(gaov2.ssi,"contrasts") <- NULL
all.equal(gaov2,gaov2.ssi)
}
{rm(gaov.ssi,gaov2.ssi);T}
testfit(polishaov) # expl. contrasts < max, nested