[plt-scheme] Check for function equality?

Hi All --

Is there a Scheme function similar to "check-expect" that tests for
equality between functions?

Example:

;23.3.2
;g-fives-closed : N -> number
;non-recursive version of g-fives
;(check-expect (g-fives-closed 3) 375)
(define (g-fives-closed n)
  (* 3 (expt 5 n)))

;23.3.4
;geometric-series : number number -> (number -> number)
;consumes two numbers start and s, produces a function representing
the geometric series whose starting point is start and whose factor is
s
(define (geometric-series start s)
  (local ((define (local-g-series n)
            (* start (expt s n))))
    local-g-series))

(define g-fives-closed-test (geometric-series 3 5))

;test 1 = test passes
(check-expect (g-fives-closed-test 3) (g-fives-closed 3))

;test 2 = test fails
(check-expect g-fives-closed-test g-fives-closed)

As far as I can tell, "g-fives-closed-test" and "g-fives-closed"
differ in name only. I ran the same test with eq? and equal? and
received the same results.  Any way to test for this kind of equality?

Thanks,
Dave Yrueta