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

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

@ -388,7 +388,7 @@
(add-test! 'var-decl-test 'awk
(lambda ()
(let ((read '())
(let ((read 0)
(str (string-append "ein paar testzeilen, um\n"
"expr-test zu prüfen:\n"
"EINE ZEILE GRO/3...\n"
@ -399,12 +399,13 @@
(awk (read-line in-port) (line) counter ((i 0)
(x 2)
(y 3))
(1 (set! i (+ x y)))
(2 (set! x (+ i y)))
(3 (set! i (* i 2)))
(4 (set! i (- i y)))
(5 (set! i (* i x)))
(6 (set! read i))))
(1 (values (+ x y) x y))
(2 (values i (+ i y) y))
(3 (values (* i 2) x y))
(4 (values (- i y) x y))
(5 (values (* i x) x y))
(6 (set! read i)
(values i x y))))
(make-string-input-port str))
(= read 56))))