expected <- eval(parse(text="c(\"Albm\", \"Alsk\", \"Arzn\", \"Arkn\", \"Clfr\", \"Clrd\", \"Cnnc\", \"Dlwr\", \"Flrd\", \"Gerg\", \"Hawa\", \"Idah\", \"Illn\", \"Indn\", \"Iowa\", \"Knss\", \"Kntc\", \"Losn\", \"Main\", \"Mryl\", \"Mssc\", \"Mchg\", \"Mnns\", \"Msss\", \"Mssr\", \"Mntn\", \"Nbrs\", \"Nevd\", \"NwHm\", \"NwJr\", \"NwMx\", \"NwYr\", \"NrtC\", \"NrtD\", \"Ohio\", \"Oklh\", \"Orgn\", \"Pnns\", \"RhdI\", \"SthC\", \"SthD\", \"Tnns\", \"Texs\", \"Utah\", \"Vrmn\", \"Vrgn\", \"Wshn\", \"WstV\", \"Wscn\", \"Wymn\")"));  
test(id=0, code={  
argv <- eval(parse(text="list(c(\"Alabama\", \"Alaska\", \"Arizona\", \"Arkansas\", \"California\", \"Colorado\", \"Connecticut\", \"Delaware\", \"Florida\", \"Georgia\", \"Hawaii\", \"Idaho\", \"Illinois\", \"Indiana\", \"Iowa\", \"Kansas\", \"Kentucky\", \"Louisiana\", \"Maine\", \"Maryland\", \"Massachusetts\", \"Michigan\", \"Minnesota\", \"Mississippi\", \"Missouri\", \"Montana\", \"Nebraska\", \"Nevada\", \"New Hampshire\", \"New Jersey\", \"New Mexico\", \"New York\", \"North Carolina\", \"North Dakota\", \"Ohio\", \"Oklahoma\", \"Oregon\", \"Pennsylvania\", \"Rhode Island\", \"South Carolina\", \"South Dakota\", \"Tennessee\", \"Texas\", \"Utah\", \"Vermont\", \"Virginia\", \"Washington\", \"West Virginia\", \"Wisconsin\", \"Wyoming\"), 4L, TRUE)"));  
.Internal(`abbreviate`(argv[[1]], argv[[2]], argv[[3]]));  
}, o=expected);  

