Skip to content

Commit

Permalink
Update formatting in syntax parsing shortcut tests
Browse files Browse the repository at this point in the history
  • Loading branch information
jackfirth committed Aug 10, 2024
1 parent 1a3bae8 commit a2c685d
Showing 1 changed file with 5 additions and 25 deletions.
30 changes: 5 additions & 25 deletions default-recommendations/syntax-parse-shortcuts-test.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -14,50 +14,30 @@ header:
test: "define-simple-macro refactorable to define-syntax-parse-rule"
------------------------------
(define-simple-macro (my-or a:expr b:expr)
(let ([tmp a])
(if a a b)))
(let ([tmp a]) (if a a b)))
------------------------------
------------------------------
(define-syntax-parse-rule (my-or a:expr b:expr)
(let ([tmp a])
(if a a b)))
------------------------------


test: "define-simple-macro with header on next line refactorable to define-syntax-parse-rule"
------------------------------
(define-simple-macro
(my-or a:expr b:expr)
(let ([tmp a])
(if a a b)))
------------------------------
------------------------------
(define-syntax-parse-rule
(my-or a:expr b:expr)
(let ([tmp a])
(if a a b)))
(let ([tmp a]) (if a a b)))
------------------------------


test: "define-simple-macro with body comments refactorable to define-syntax-parse-rule"
------------------------------
(define-simple-macro (my-or a:expr b:expr)
;; The let form is needed to avoid evaluating a twice.
(let ([tmp a])
(if a a b)))
(let ([tmp a]) (if a a b)))
------------------------------
------------------------------
(define-syntax-parse-rule (my-or a:expr b:expr)
;; The let form is needed to avoid evaluating a twice.
(let ([tmp a])
(if a a b)))
(let ([tmp a]) (if a a b)))
------------------------------


test: "define-syntax-parse-rule not refactorable (https://github.com/jackfirth/resyntax/issues/106)"
------------------------------
(define-syntax-parse-rule (my-or a:expr b:expr)
;; The let form is needed to avoid evaluating a twice.
(let ([tmp a])
(if a a b)))
(let ([tmp a]) (if a a b)))
------------------------------

0 comments on commit a2c685d

Please sign in to comment.