expected <- eval(parse(text="c(0, -1, 0, -1, -1, 0, NA, NA, 0, 0, 0, 0, 0, 7, 0, 8, 9, 0, 0, 0, NA, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 16, 17, 0, 0, 17, 0, 18, 19, 0)"));          
test(id=0, code={          
argv <- eval(parse(text="list(c(0, -1, 0, -1, -1, 0, NA, NA, 0, 0, 0, 0, 0, 15, 0, 17, 18, 0, 0, 0, NA, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 33, 34, 0, 0, 35, 0, 37, 38, 0), 2)"));          
do.call(`%/%`, argv);          
}, o=expected);          

