better test_all.R