add a test case for the call to make-direct-method-map in the transforming loop

Author: rfindler

drracket-tool-test/tests/check-syntax/syncheck-direct.rkt

@@ -597,6 +597,29 @@
   '((45 60) (118 133))
   '((45 60) (152 167))))
 
+(check-equal?
+ (for/set ([e (in-set
+               (get-binding-arrows
+                (string-append
+                 "(module m racket\n"
+                 "  (define-local-member-name the-method-name)\n"
+                 "  (class* object% ()\n"
+                 "    (define/public the-method-name\n"
+                 "      (letrec ([f (λ ()\n"
+                 "                    (the-method-name)\n"
+                 "                    (send this the-method-name))])\n"
+                 "        f))\n"
+                 "    (super-new)))\n")))]
+           ;; filter out arrows that don't start on the
+           ;; `the-method-name` that appears inside
+           ;; `define-local-member-name`
+           #:when (equal? '(45 60) (car e)))
+   e)
+ (set
+  '((45 60) (102 117))
+  '((45 60) (163 178))
+  '((45 60) (211 226))))
+
 ;                                                       
 ;                                                       
 ;