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

