scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

the state-var-test was wrong

This commit is contained in:
chetz 2004-08-28 18:16:52 +00:00
parent ce9da610e6
commit 90cf44f3b9
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
scsh/test/awk-test.scm
View File

@ -388,7 +388,7 @@
(add-test! 'var-decl-test 'awk (add-test! 'var-decl-test 'awk
(lambda () (lambda ()
(let ((read '()) (let ((read 0)
(str (string-append "ein paar testzeilen, um\n" (str (string-append "ein paar testzeilen, um\n"
"expr-test zu prüfen:\n" "expr-test zu prüfen:\n"
"EINE ZEILE GRO/3...\n" "EINE ZEILE GRO/3...\n"
@ -396,17 +396,18 @@
"eine zeile mit zeichen...\n" "eine zeile mit zeichen...\n"
"*+#'~,;:.-_<>|!§$%&/()=?\"\\[]{}\n"))) "*+#'~,;:.-_<>|!§$%&/()=?\"\\[]{}\n")))
((lambda (in-port) ((lambda (in-port)
(awk (read-line in-port) (line) counter ((i 0) (awk (read-line in-port) (line) counter ((i 0)
(x 2) (x 2)
(y 3)) (y 3))
(1 (set! i (+ x y))) (1 (values (+ x y) x y))
(2 (set! x (+ i y))) (2 (values i (+ i y) y))
(3 (set! i (* i 2))) (3 (values (* i 2) x y))
(4 (set! i (- i y))) (4 (values (- i y) x y))
(5 (set! i (* i x))) (5 (values (* i x) x y))
(6 (set! read i)))) (6 (set! read i)
(values i x y))))
(make-string-input-port str)) (make-string-input-port str))
(= read 56)))) (= read 56))))
;; --- multiple-return-values-of-next-record-test --- ;; --- multiple-return-values-of-next-record-test ---