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

moving tests to separate directory

Browse Source
This commit is contained in:
Danny Yoo 2011-05-20 10:48:44 -04:00
parent 1af88b30a8
commit 66e63ddb2c
15 changed files with 69 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
test-all.rkt → tests/test-all.rkt
View File

10
test-assemble.rkt → tests/test-assemble.rkt
View File

@ -1,10 +1,10 @@
#lang racket
(require "js-assembler/assemble.rkt"
"js-assembler/get-runtime.rkt"
"browser-evaluate.rkt"
"lexical-structs.rkt"
"il-structs.rkt"
(require "../js-assembler/assemble.rkt"
"../js-assembler/get-runtime.rkt"
"../browser-evaluate.rkt"
"../lexical-structs.rkt"
"../il-structs.rkt"
racket/port
racket/promise
racket/runtime-path)

8
test-browser-evaluate.rkt → tests/test-browser-evaluate.rkt
View File

@ -1,8 +1,8 @@
#lang racket
(require "js-assembler/get-runtime.rkt"
"browser-evaluate.rkt"
"package.rkt"
racket/runtime-path)
(require "../js-assembler/get-runtime.rkt"
"../browser-evaluate.rkt"
"../package.rkt")

6
test-compiler-2.rkt → tests/test-compiler-2.rkt
View File

@ -1,8 +1,8 @@
#lang racket
(require "simulator/simulator.rkt"
"simulator/simulator-structs.rkt"
"simulator/simulator-helpers.rkt"
(require "../simulator/simulator.rkt"
"../simulator/simulator-structs.rkt"
"../simulator/simulator-helpers.rkt"
"test-helpers.rkt")

6
test-compiler.rkt → tests/test-compiler.rkt
View File

@ -1,8 +1,8 @@
#lang racket
(require "simulator/simulator.rkt"
"simulator/simulator-structs.rkt"
"simulator/simulator-helpers.rkt"
(require "../simulator/simulator.rkt"
"../simulator/simulator-structs.rkt"
"../simulator/simulator-helpers.rkt"
"test-helpers.rkt")

8
test-conform-browser.rkt → tests/test-conform-browser.rkt
View File

@ -1,11 +1,11 @@
#lang racket
(require "browser-evaluate.rkt"
"package.rkt"
"js-assembler/get-runtime.rkt"
(require "../browser-evaluate.rkt"
"../package.rkt"
"../js-assembler/get-runtime.rkt"
racket/port
racket/runtime-path)
(define-runtime-path conform-path (build-path "tests" "conform"))
(define-runtime-path conform-path (build-path "conform"))
(define evaluate (make-evaluate

13
test-conform.rkt → tests/test-conform.rkt
View File

@ -1,10 +1,13 @@
#lang racket
(require "simulator/simulator.rkt"
"simulator/simulator-structs.rkt"
"test-helpers.rkt")
(require "../simulator/simulator.rkt"
"../simulator/simulator-structs.rkt"
"test-helpers.rkt"
racket/runtime-path)
(define-runtime-path conform-path "conform")
;; run: machine -> (machine number)
;; Run the machine to completion.
@ -52,7 +55,7 @@
(printf "ok. ~s steps.\n\n" num-steps)))))]))
(test (read (open-input-file "tests/conform/program0.sch"))
(port->string (open-input-file "tests/conform/expected0.txt"))
(test (read (open-input-file (build-path conform-path "program0.sch")))
(port->string (open-input-file (build-path conform-path "expected0.txt")))
;;#:debug? #t
)

8
test-earley-browser.rkt → tests/test-earley-browser.rkt
View File

@ -1,13 +1,13 @@
#lang racket
(require "browser-evaluate.rkt"
"package.rkt"
"js-assembler/get-runtime.rkt"
(require "../browser-evaluate.rkt"
"../package.rkt"
"../js-assembler/get-runtime.rkt"
racket/port
racket/runtime-path
racket/runtime-path
(for-syntax racket/base))
(define-runtime-path earley-file-path (build-path "tests" "earley"))
(define-runtime-path earley-file-path (build-path "earley"))
(define evaluate (make-evaluate

14
test-earley.rkt → tests/test-earley.rkt
View File

@ -1,8 +1,11 @@
#lang racket
(require "simulator/simulator.rkt"
"simulator/simulator-structs.rkt"
"test-helpers.rkt")
(require "../simulator/simulator.rkt"
"../simulator/simulator-structs.rkt"
"test-helpers.rkt"
racket/runtime-path)
(define-runtime-path earley-file-path (build-path "earley"))
@ -52,6 +55,5 @@
(printf "ok. ~s steps.\n\n" num-steps)))))]))
(test (read (open-input-file "tests/earley/earley.sch"))
(port->string (open-input-file "tests/earley/expected.txt"))
)
(test (read (open-input-file (build-path earley-path "earley.sch")))
(port->string (open-input-file (build-path earley-path "expected.txt"))))

16
test-get-dependencies.rkt → tests/test-get-dependencies.rkt
View File

@ -1,16 +1,16 @@
#lang racket
(require "get-dependencies.rkt"
"get-module-bytecode.rkt"
"parse-bytecode.rkt"
"lexical-structs.rkt"
(require "../get-dependencies.rkt"
"../get-module-bytecode.rkt"
"../parse-bytecode.rkt"
"../lexical-structs.rkt"
racket/path
racket/runtime-path
rackunit)
(define-runtime-path this-path ".")
(define-runtime-path compiler-path "..")
(define e
(parse-bytecode (build-path this-path "get-dependencies.rkt")))
(parse-bytecode (build-path compiler-path "get-dependencies.rkt")))
(void (get-dependencies e))
(void (get-dependencies
@ -50,7 +50,7 @@
(file "~a/get-module-bytecode.rkt"))
(exp 1))
EOF
(path->string (normalize-path this-path)))
(path->string (normalize-path compiler-path)))
)))))
module-name<)
(sort
@ -59,5 +59,5 @@ EOF
(make-ModuleName 'collects/racket/math.rkt
(build-path collects-dir "racket" "math.rkt"))
(make-ModuleName 'whalesong/get-module-bytecode.rkt
(normalize-path (build-path this-path "get-module-bytecode.rkt"))))
(normalize-path (build-path compiler-path "get-module-bytecode.rkt"))))
module-name<))

14
test-helpers.rkt → tests/test-helpers.rkt
View File

@ -2,18 +2,18 @@
(require (prefix-in racket: racket/base)
racket/runtime-path
"compiler-structs.rkt"
"compiler.rkt"
"parse-bytecode.rkt"
"get-module-bytecode.rkt"
"language-namespace.rkt"
syntax/modcode)
"../compiler-structs.rkt"
"../compiler.rkt"
"../parse-bytecode.rkt"
"../get-module-bytecode.rkt"
"../language-namespace.rkt")
(provide parse parse-module run-compiler)
(define-runtime-path kernel-language-path
"lang/kernel.rkt")
"../lang/kernel.rkt")
;; Use Racket's compiler, and then parse the resulting bytecode

2
test-package.rkt → tests/test-package.rkt
View File

@ -1,6 +1,6 @@
#lang racket/base
(require "package.rkt")
(require "../package.rkt")
(define (test s-exp)
(package s-exp (open-output-string) #;(current-output-port)))

10
test-parse-bytecode.rkt → tests/test-parse-bytecode.rkt
View File

@ -3,11 +3,11 @@
(require compiler/zo-parse
rackunit
racket/match
(for-syntax racket/base)
"parameters.rkt"
"parse-bytecode.rkt"
"lexical-structs.rkt"
"expression-structs.rkt")
"../parameters.rkt"
"../parse-bytecode.rkt"
"../lexical-structs.rkt"
"../expression-structs.rkt"
(for-syntax racket/base))
(define (run-zo-parse stx)

8
test-parse.rkt → tests/test-parse.rkt
View File

@ -1,9 +1,9 @@
#lang racket/base
(require "parse.rkt"
"lexical-structs.rkt"
"expression-structs.rkt"
"lam-entry-gensym.rkt"
(require "../parse.rkt"
"../lexical-structs.rkt"
"../expression-structs.rkt"
"../lam-entry-gensym.rkt"
(for-syntax racket/base))
; Test out the compiler, using the simulator.

10
test-simulator.rkt → tests/test-simulator.rkt
View File

@ -1,10 +1,10 @@
#lang racket
(require "il-structs.rkt"
"lexical-structs.rkt"
"simulator/simulator-structs.rkt"
"simulator/simulator-primitives.rkt"
"simulator/simulator.rkt")
(require "../il-structs.rkt"
"../lexical-structs.rkt"
"../simulator/simulator-structs.rkt"
"../simulator/simulator-primitives.rkt"
"../simulator/simulator.rkt")
(define-syntax (test stx)