simple test functions to make testing in perl simple