fix test data
perl critic ignore