suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

".ss" -> ".rkt" scan done.

Browse Source 
original commit: 3157955d40f89d83fb3d5fa7a2f20639cda69579
This commit is contained in:
Eli Barzilay 2011-07-02 10:37:53 -04:00
parent c1d20d9dc5
commit e9a8f801d3
9 changed files with 23 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/tests/macro-debugger/all-tests.rkt
View File

@ -1,17 +1,17 @@
#lang scheme/base
(require rackunit
macro-debugger/model/debug
"gentest-framework.ss"
"gentests.ss"
"test-setup.ss"
"tests/syntax-basic.ss"
"tests/syntax-macros.ss"
"tests/syntax-modules.ss"
"tests/syntax-errors.ss"
"tests/hiding.ss"
"tests/regression.ss"
"tests/policy.ss"
;;"tests/collects.ss"
"gentest-framework.rkt"
"gentests.rkt"
"test-setup.rkt"
"tests/syntax-basic.rkt"
"tests/syntax-macros.rkt"
"tests/syntax-modules.rkt"
"tests/syntax-errors.rkt"
"tests/hiding.rkt"
"tests/regression.rkt"
"tests/policy.rkt"
;;"tests/collects.rkt"
)
(provide all-tests)

4
collects/tests/macro-debugger/gentests.rkt
View File

@ -2,8 +2,8 @@
(require rackunit)
(require macro-debugger/model/debug
macro-debugger/model/stx-util
"gentest-framework.ss"
"test-setup.ss")
"gentest-framework.rkt"
"test-setup.rkt")
(provide mk-deriv-test
mk-steps-test
mk-hidden-deriv-test

2
collects/tests/macro-debugger/tests/hiding.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require rackunit)
(require macro-debugger/model/debug
"../test-setup.ss")
"../test-setup.rkt")
(provide specialized-hiding-tests)
;; == Macro hiding

2
collects/tests/macro-debugger/tests/policy.rkt
View File

@ -1,7 +1,7 @@
#lang scheme/base
(require rackunit)
(require macro-debugger/model/debug
"../test-setup.ss")
"../test-setup.rkt")
(provide policy-tests)
(define ns (make-base-namespace))

4
collects/tests/macro-debugger/tests/regression.rkt
View File

@ -2,7 +2,7 @@
(require rackunit)
(require macro-debugger/model/debug
macro-debugger/model/steps
"../test-setup.ss")
"../test-setup.rkt")
(provide regression-tests)
(define regression-tests
@ -116,7 +116,7 @@
(test-case "hiding: keeping lifts in sync"
(let ([freshname (gensym)])
(eval `(module ,freshname mzscheme
(require (lib "contract.ss"))
(require (lib "contract.rkt"))
(provide/contract [f (integer? . -> . integer?)]
[c integer?])
(define (f x) (add1 x))

2
collects/tests/macro-debugger/tests/syntax-basic.rkt
View File

@ -1,5 +1,5 @@
#lang scheme/base
(require "../gentest-framework.ss")
(require "../gentest-framework.rkt")
(provide proto:kernel-forms
proto:kernel-contexts)

3
collects/tests/macro-debugger/tests/syntax-errors.rkt
View File

@ -1,6 +1,5 @@
#lang scheme/base
(require "../gentest-framework.ss")
(require "../gentest-framework.rkt")
(provide proto:errors)
(define-tests proto:errors "Bad syntax"

3
collects/tests/macro-debugger/tests/syntax-macros.rkt
View File

@ -1,6 +1,5 @@
#lang scheme/base
(require "../gentest-framework.ss")
(require "../gentest-framework.rkt")
(provide proto:macros)
(define-tests proto:macros "Macros"

7
collects/tests/macro-debugger/tests/syntax-modules.rkt
View File

@ -1,6 +1,5 @@
#lang scheme/base
(require "../gentest-framework.ss")
(require "../gentest-framework.rkt")
(provide proto:modules)
(define-syntax-rule (testM form . clauses)
@ -327,9 +326,9 @@
(P? (make-P P-x P-y))))
(test "module with match"
(module m mzscheme
(require (lib "match.ss"))
(require (lib "match.rkt"))
(match '4 [n (add1 n)])))
(test "module with match before require"
(module m mzscheme
(match '4 [n (add1 n)])
(require (lib "match.ss")))))
(require (lib "match.rkt")))))