use Test::More; is fix_oracle_date('08/02/2018'), '8/2/2018', "Correct date for 8/2/2018"; is fix_oracle_date('08/03/2018'), '8/3/2018', "Correct date for 8/3/2018"; is fix_oracle_date('08/04/2018'), '8/4/2018', "Correct date for 8/4/2018"; is fix_oracle_date('08/13/2018'), '8/13/2018', "Correct date for 8/13/2018"; done_testing;