expected <- eval(parse(text="structure(list(structure(list(structure(13L, label = \"Illinois\", members = 1L, height = 0, leaf = TRUE), structure(32L, label = \"New York\", members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 6.23698645180507), structure(list(structure(22L, label = \"Michigan\", members = 1L, height = 0, leaf = TRUE), structure(28L, label = \"Nevada\", members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 13.2973681606549)), members = 4L, midpoint = 1.5, height = 18.4173313943456, class = \"dendrogram\", edgePar = structure(list(    p.col = \"plum\"), .Names = \"p.col\"), edgetext = \"4 members\")"));           
test(id=0, code={           
argv <- eval(parse(text="list(structure(list(structure(list(structure(13L, label = \"Illinois\", members = 1L, height = 0, leaf = TRUE), structure(32L, label = \"New York\", members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 6.23698645180507), structure(list(structure(22L, label = \"Michigan\", members = 1L, height = 0, leaf = TRUE), structure(28L, label = \"Nevada\", members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 13.2973681606549)), members = 4L, midpoint = 1.5, height = 18.4173313943456, class = \"dendrogram\", edgePar = structure(list(    p.col = \"plum\"), .Names = \"p.col\"), edgetext = \"4 members\"), \"edgetext\", value = \"4 members\")"));           
do.call(`attr<-`, argv);           
}, o=expected);           

