steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add some test cases, remember to flush after running program.

db4
John Benediktsson 2009-06-06 20:11:59 -07:00
parent aeca1a6e9e
commit e30a9fc4b1
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/brainfuck/brainfuck-tests.factor
View File

@ -4,6 +4,9 @@
USING: brainfuck io.streams.string multiline tools.test ; USING: brainfuck io.streams.string multiline tools.test ;
[ "+" run-brainfuck ] must-infer
[ "+" get-brainfuck ] must-infer
! Hello World! ! Hello World!
[ "Hello World!\n" ] [ <" ++++++++++[>+++++++>++++++++++>+++>+<<<<-] [ "Hello World!\n" ] [ <" ++++++++++[>+++++++>++++++++++>+++>+<<<<-]

2
extra/brainfuck/brainfuck.factor
View File

@ -67,7 +67,7 @@ code = (loop|ops|unknown)* => [[ compose-all ]]
PRIVATE> PRIVATE>
MACRO: run-brainfuck ( code -- ) MACRO: run-brainfuck ( code -- )
[ <brainfuck> ] swap parse-brainfuck [ drop ] 3append ; [ <brainfuck> ] swap parse-brainfuck [ drop flush ] 3append ;
: get-brainfuck ( code -- result ) : get-brainfuck ( code -- result )
[ run-brainfuck ] with-string-writer ; inline [ run-brainfuck ] with-string-writer ; inline