23 lines
681 B
Racket
23 lines
681 B
Racket
#lang racket
|
|
|
|
(require rackunit
|
|
rash-git-cli
|
|
(for-syntax racket/base
|
|
rackunit
|
|
linea/line-macro-prop))
|
|
|
|
;; In Racket expression mode, `git` remains the first-class procedure
|
|
;; exported by git-cli. Inspecting it must not invoke Git.
|
|
(check-true (procedure? git))
|
|
|
|
;; The same binding must also be marked as a Linea line macro. This verifies
|
|
;; the Rash integration without depending on an external Git executable.
|
|
(define-syntax (check-git-line-binding stx)
|
|
(define binding
|
|
(syntax-local-value #'git (λ () #f)))
|
|
(check-not-false binding)
|
|
(check-true (line-macro? binding))
|
|
#'(void))
|
|
|
|
(check-git-line-binding)
|