use Test::Most; is( add_numbers(2, 2), 4, 'Correctly added two numbers' ); throws_ok( sub{add_numbers(2, 'string')}, qr/not a number/, 'Error with non number');