expected <- eval(parse(text="c(\"changelog\", \"description\", \"index\", \"md5\", \"namespace\", \"porting\", \"0aaa.r\", \"agnes.q\", \"clara.q\", \"clusgap.r\", \"coef.r\", \"daisy.q\", \"diana.q\", \"ellipsoidhull.r\", \"fanny.q\", \"internal.r\", \"mona.q\", \"pam.q\", \"plothier.q\", \"plotpart.q\", \"silhouette.r\", \"zzz.r\", \"readme\", \"agriculture.tab\", \"animals.tab\", \"chorsub.rda\", \"flower.r\", \"planttraits.rda\", \"pluton.tab\", \"ruspini.tab\", \"votes.repub.tab\", \"xclara.rda\", \"citation\", \"r-cluster.mo\", \"r-cluster.mo\", \"r-cluster.mo\", \"agnes.rd\", \"agnes.object.rd\", \"agriculture.rd\", \"animals.rd\", \"bannerplot.rd\", \"chorsub.rd\", \"clara.rd\", \"clara.object.rd\", \"clusgap.rd\", \"clusplot.default.rd\", \"clusplot.partition.rd\", \"cluster-internal.rd\", \"coef.hclust.rd\", \"daisy.rd\", \"diana.rd\", \"dissimilarity.object.rd\", \"ellipsoidhull.rd\", \"fanny.rd\", \"fanny.object.rd\", \"flower.rd\", \"lower.to.upper.tri.inds.rd\", \"mona.rd\", \"mona.object.rd\", \"pam.rd\", \"pam.object.rd\", \"partition.object.rd\", \"planttraits.rd\", \"plot.agnes.rd\", \"plot.diana.rd\", \"plot.mona.rd\", \"plot.partition.rd\", \"pltree.rd\", \"pltree.twins.rd\", \"pluton.rd\", \"predict.ellipsoid.rd\", \"print.agnes.rd\", \"print.clara.rd\", \"print.diana.rd\", \"print.dissimilarity.rd\", \"print.fanny.rd\", \"print.mona.rd\", \"print.pam.rd\", \"ruspini.rd\", \"silhouette.rd\", \"sizediss.rd\", \"summary.agnes.rd\", \"summary.clara.rd\", \"summary.diana.rd\", \"summary.mona.rd\", \"summary.pam.rd\", \"twins.object.rd\", \"volume.ellipsoid.rd\", \"votes.repub.rd\", \"xclara.rd\", \"r-cluster.pot\", \"r-de.po\", \"r-en@quot.po\", \"r-pl.po\", \"update-me.sh\", \"clara.c\", \"cluster.h\", \"daisy.f\", \"dysta.f\", \"fanny.c\", \"ind_2.h\", \"init.c\", \"mona.f\", \"pam.c\", \"sildist.c\", \"spannel.c\", \"twins.c\", \"agnes-ex.r\", \"agnes-ex.rout.save\", \"clara-nas.r\", \"clara-nas.rout.save\", \"clara-ex.r\", \"clara.r\", \"clara.rout.save\", \"clusplot-out.r\", \"clusplot-out.rout.save\", \"daisy-ex.r\", \"daisy-ex.rout.save\", \"diana-boots.r\", \"diana-ex.r\", \"diana-ex.rout.save\", \"ellipsoid-ex.r\", \"ellipsoid-ex.rout.save\", \"fanny-ex.r\", \"mona.r\", \"mona.rout.save\", \"pam.r\", \"pam.rout.save\", \"silhouette-default.r\", \"silhouette-default.rout.save\", \"sweep-ex.r\", \".\", \"r\", \"data\", \"inst\", \"lc_messages\", \"lc_messages\", \"lc_messages\", \"man\", \"po\", \"src\", \"tests\")"));       
test(id=0, code={       
argv <- eval(parse(text="list(c(\"ChangeLog\", \"DESCRIPTION\", \"INDEX\", \"MD5\", \"NAMESPACE\", \"PORTING\", \"0aaa.R\", \"agnes.q\", \"clara.q\", \"clusGap.R\", \"coef.R\", \"daisy.q\", \"diana.q\", \"ellipsoidhull.R\", \"fanny.q\", \"internal.R\", \"mona.q\", \"pam.q\", \"plothier.q\", \"plotpart.q\", \"silhouette.R\", \"zzz.R\", \"README\", \"agriculture.tab\", \"animals.tab\", \"chorSub.rda\", \"flower.R\", \"plantTraits.rda\", \"pluton.tab\", \"ruspini.tab\", \"votes.repub.tab\", \"xclara.rda\", \"CITATION\", \"R-cluster.mo\", \"R-cluster.mo\", \"R-cluster.mo\", \"agnes.Rd\", \"agnes.object.Rd\", \"agriculture.Rd\", \"animals.Rd\", \"bannerplot.Rd\", \"chorSub.Rd\", \"clara.Rd\", \"clara.object.Rd\", \"clusGap.Rd\", \"clusplot.default.Rd\", \"clusplot.partition.Rd\", \"cluster-internal.Rd\", \"coef.hclust.Rd\", \"daisy.Rd\", \"diana.Rd\", \"dissimilarity.object.Rd\", \"ellipsoidhull.Rd\", \"fanny.Rd\", \"fanny.object.Rd\", \"flower.Rd\", \"lower.to.upper.tri.inds.Rd\", \"mona.Rd\", \"mona.object.Rd\", \"pam.Rd\", \"pam.object.Rd\", \"partition.object.Rd\", \"plantTraits.Rd\", \"plot.agnes.Rd\", \"plot.diana.Rd\", \"plot.mona.Rd\", \"plot.partition.Rd\", \"pltree.Rd\", \"pltree.twins.Rd\", \"pluton.Rd\", \"predict.ellipsoid.Rd\", \"print.agnes.Rd\", \"print.clara.Rd\", \"print.diana.Rd\", \"print.dissimilarity.Rd\", \"print.fanny.Rd\", \"print.mona.Rd\", \"print.pam.Rd\", \"ruspini.Rd\", \"silhouette.Rd\", \"sizeDiss.Rd\", \"summary.agnes.Rd\", \"summary.clara.Rd\", \"summary.diana.Rd\", \"summary.mona.Rd\", \"summary.pam.Rd\", \"twins.object.Rd\", \"volume.ellipsoid.Rd\", \"votes.repub.Rd\", \"xclara.Rd\", \"R-cluster.pot\", \"R-de.po\", \"R-en@quot.po\", \"R-pl.po\", \"update-me.sh\", \"clara.c\", \"cluster.h\", \"daisy.f\", \"dysta.f\", \"fanny.c\", \"ind_2.h\", \"init.c\", \"mona.f\", \"pam.c\", \"sildist.c\", \"spannel.c\", \"twins.c\", \"agnes-ex.R\", \"agnes-ex.Rout.save\", \"clara-NAs.R\", \"clara-NAs.Rout.save\", \"clara-ex.R\", \"clara.R\", \"clara.Rout.save\", \"clusplot-out.R\", \"clusplot-out.Rout.save\", \"daisy-ex.R\", \"daisy-ex.Rout.save\", \"diana-boots.R\", \"diana-ex.R\", \"diana-ex.Rout.save\", \"ellipsoid-ex.R\", \"ellipsoid-ex.Rout.save\", \"fanny-ex.R\", \"mona.R\", \"mona.Rout.save\", \"pam.R\", \"pam.Rout.save\", \"silhouette-default.R\", \"silhouette-default.Rout.save\", \"sweep-ex.R\", \".\", \"R\", \"data\", \"inst\", \"LC_MESSAGES\", \"LC_MESSAGES\", \"LC_MESSAGES\", \"man\", \"po\", \"src\", \"tests\"))"));       
.Internal(tolower(argv[[1]]));       
}, o=expected);       

