Update 4.rkt

Added (require rackunit) and added (test-begin) changing check-expect to check-equal?