expected <- eval(parse(text="structure(c(1.2, 1, 1, 1, 1, 1, 1.2, 1, 1, 1, 1, 1, 1.2, 1, 1, 1, 1, 1, 1.2, 1, 1, 1, 1, 1, 1.2), .Dim = c(5L, 5L), fracs = c(\"6/5\", \"1\", \"1\", \"1\", \"1\", \"1\", \"6/5\", \"1\", \"1\", \"1\", \"1\", \"1\", \"6/5\", \"1\", \"1\", \"1\", \"1\", \"1\", \"6/5\", \"1\", \"1\", \"1\", \"1\", \"1\", \"6/5\"), class = c(\"fractions\", \"matrix\"))"));               
test(id=0, code={               
argv <- eval(parse(text="list(structure(c(0.2, -1.84560926910116e-17, -3.69226410848886e-17, 2.11212282911474e-17, 9.44321399451751e-18, 3.05608209061811e-17, 0.2, -5.35638147485559e-17, 5.12150597333887e-17, 1.92692213766805e-17, 6.57361167807833e-17, -7.28393619263486e-17, 0.2, 7.17735727503349e-17, 3.10850404080861e-17, -2.28831714606547e-17, 2.83709294123644e-17, 7.98995130974544e-17, 0.2, 0, 8.8841915809257e-17, -1.17177477007305e-16, -1.30709215062431e-16, 1.04641694001652e-16, 0.2), .Dim = c(5L, 5L), fracs = c(\"1/5\", \"0\", \"0\", \"0\", \"0\", \"0\", \"1/5\", \"0\", \"0\", \"0\", \"0\", \"0\", \"1/5\", \"0\", \"0\", \"0\", \"0\", \"0\", \"1/5\", \"0\", \"0\", \"0\", \"0\", \"0\", \"1/5\"), class = c(\"fractions\", \"matrix\")), 1)"));               
do.call(`+`, argv);               
}, o=expected);               

