summaryrefslogtreecommitdiff
path: root/test-suite/tests/compiler.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/compiler.test')
-rw-r--r--test-suite/tests/compiler.test43
1 files changed, 4 insertions, 39 deletions
diff --git a/test-suite/tests/compiler.test b/test-suite/tests/compiler.test
index d83167f34..7324d7795 100644
--- a/test-suite/tests/compiler.test
+++ b/test-suite/tests/compiler.test
@@ -18,45 +18,10 @@
(define-module (test-suite tests compiler)
:use-module (test-suite lib)
:use-module (test-suite guile-test)
- :use-module (system vm program))
+ :use-module (system base compile))
-(with-test-prefix "environments"
+(with-test-prefix "basic"
- (pass-if "compile-time-environment in evaluator"
- (eq? (primitive-eval '(compile-time-environment)) #f))
-
- (pass-if "compile-time-environment in compiler"
- (equal? (compile '(compile-time-environment))
- (cons (current-module)
- (cons '() '()))))
-
- (let ((env (compile
- '(let ((x 0)) (set! x 1) (compile-time-environment)))))
- (pass-if "compile-time-environment in compiler, heap-allocated var"
- (equal? env
- (cons (current-module)
- (cons '((x . 0)) '(1)))))
-
- ;; fixme: compiling with #t or module
- (pass-if "recompiling with environment"
- (equal? ((compile '(lambda () x) #:env env))
- 1))
-
- (pass-if "recompiling with environment/2"
- (equal? ((compile '(lambda () (set! x (1+ x)) x) #:env env))
- 2))
-
- (pass-if "recompiling with environment/3"
- (equal? ((compile '(lambda () x) #:env env))
- 2))
- )
-
- (pass-if "compile environment is #f"
- (equal? ((compile '(lambda () 10)))
- 10))
-
- (pass-if "compile environment is a module"
- (equal? ((compile '(lambda () 10) #:env (current-module)))
- 10))
- ) \ No newline at end of file
+ (pass-if "compile to value"
+ (equal? (compile 1) 1)))