fix test case with Test::Class