Add some more format.r tests.
Add tests