expected <- eval(parse(text="c(\"3035\", \"2552\", \"2704\", \"2554\", \"2014\", \"1655\", \"1721\", \"1524\", \"1596\", \"2074\", \"2199\", \"2512\", \"2933\", \"2889\", \"2938\", \"2497\", \"1870\", \"1726\", \"1607\", \"1545\", \"1396\", \"1787\", \"2076\", \"2837\", \"2787\", \"3891\", \"3179\", \"2011\", \"1636\", \"1580\", \"1489\", \"1300\", \"1356\", \"1653\", \"2013\", \"2823\", \"3102\", \"2294\", \"2385\", \"2444\", \"1748\", \"1554\", \"1498\", \"1361\", \"1346\", \"1564\", \"1640\", \"2293\", \"2815\", \"3137\", \"2679\", \"1969\", \"1870\", \"1633\", \"1529\", \"1366\", \"1357\", \"1570\", \"1535\", \"2491\", \"3084\", \"2605\", \"2573\", \"2143\", \"1693\", \"1504\", \"1461\", \"1354\", \"1333\", \"1492\", \"1781\", \"1915\")"));            
test(id=0, code={            
argv <- eval(parse(text="list(structure(c(3035, 2552, 2704, 2554, 2014, 1655, 1721, 1524, 1596, 2074, 2199, 2512, 2933, 2889, 2938, 2497, 1870, 1726, 1607, 1545, 1396, 1787, 2076, 2837, 2787, 3891, 3179, 2011, 1636, 1580, 1489, 1300, 1356, 1653, 2013, 2823, 3102, 2294, 2385, 2444, 1748, 1554, 1498, 1361, 1346, 1564, 1640, 2293, 2815, 3137, 2679, 1969, 1870, 1633, 1529, 1366, 1357, 1570, 1535, 2491, 3084, 2605, 2573, 2143, 1693, 1504, 1461, 1354, 1333, 1492, 1781, 1915), .Tsp = c(1973, 1978.91666666667, 12), class = \"ts\"), FALSE, NULL, 0L, NULL, 3L, TRUE, NA)"));            
.Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]));            
}, o=expected);            

