added function test-control to pair_tests.clj