Skip to content
This repository was archived by the owner on Oct 26, 2023. It is now read-only.

Commit 4f0fb0b

Browse files
committed
move some defs outside test submodule
1 parent 8c40bb7 commit 4f0fb0b

File tree

2 files changed

+8
-6
lines changed

2 files changed

+8
-6
lines changed

typed/debug/test/typed-racket.rkt

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
#lang typed/racket
22

33
(require typed/debug/report)
4-
54
(module+ test
6-
(require typed/rackunit)
5+
(require typed/rackunit))
76

8-
(define x 5)
7+
(define x 5)
98

9+
(module+ test
1010
(define p (open-output-string))
1111

1212
(parameterize ([current-error-port p])
Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,13 @@
11
#lang debug typed/racket
22
(require typed/debug/report)
3+
(module+ test
4+
(require typed/rackunit))
5+
6+
(define x 2)
7+
(define (f) #R x #R (+ x 4))
38

49
(module+ test
5-
(require typed/rackunit)
610
(define p (open-output-string))
711
(parameterize ([current-error-port p])
8-
(define x 2)
9-
(define (f) #R x #R (+ x 4))
1012
#R (f))
1113
(check-equal? (get-output-string p) "x = 2\n(+ x 4) = 6\n(f) = 6\n"))

0 commit comments

Comments
 (0)