test cases for arrows from define-local-member-name

related to racket/racket#4650
racket · May 18, 2023 · a0ac474 · a0ac474
1 parent cda4737
commit a0ac474
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/drracket-tool-test/tests/check-syntax/syncheck-direct.rkt b/drracket-tool-test/tests/check-syntax/syncheck-direct.rkt
@@ -520,6 +520,20 @@
   '((66 77) (92 95)) ;; sketchy; should we eliminate?
   '((85 88) (92 95))))
 
+(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% (define/public (the-method-name x) 0))\n"
+                              "  (send #f the-method-name))\n")))]
+                        ;; filter out arrows that don't start on `the-method-name`
+                        #:when (equal? '(45 60) (car e)))
+                e)
+              (set
+               '((45 60) (129 144))
+               '((45 60) (95 110))))
+
 ;                                                       
 ;                                                       
 ;