From 06eeba5eff67815225a4312d2da6d3f883d8b248 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 1 Jun 2009 14:00:37 -0700 Subject: [PATCH] Updated test cases. --- extra/brainfuck/brainfuck-tests.factor | 40 +++++++++++++++++++++++++- 1 file changed, 39 insertions(+), 1 deletion(-) diff --git a/extra/brainfuck/brainfuck-tests.factor b/extra/brainfuck/brainfuck-tests.factor index 10a62b1a0b..452e0a4bdc 100644 --- a/extra/brainfuck/brainfuck-tests.factor +++ b/extra/brainfuck/brainfuck-tests.factor @@ -1,10 +1,48 @@ ! Copyright (C) 2009 John Benediktsson ! See http://factorcode.org/license.txt for BSD license -USING: brainfuck multiline tools.test ; +USING: brainfuck io.streams.string multiline tools.test ; +! Hello World! + [ "Hello World!\n" ] [ <" ++++++++++[>+++++++>++++++++++>+++>+<<<<-] >++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++. ------.--------.>+.>. "> get-brainfuck ] unit-test +! Addition (single-digit) + +[ "8" ] [ "35" [ ",>++++++[<-------->-],[<+>-]<." + get-brainfuck ] with-string-reader ] unit-test + +! Multiplication (single-digit) + +[ "8\0" ] [ "24" [ <" ,>,>++++++++[<------<------>>-] + <<[>[>+>+<<-]>>[<<+>>-]<<<-] + >>>++++++[<++++++++>-],<.>. "> + get-brainfuck ] with-string-reader ] unit-test + +! Division (single-digit, integer) + +[ "3" ] [ "62" [ <" ,>,>++++++[-<--------<-------->>] + <<[ + >[->+>+<<] + >[-<<- + [>]>>>[<[>>>-<<<[-]]>>]<<] + >>>+ + <<[-<<+>>] + <<<] + >[-]>>>>[-<<<<<+>>>>>] + <<<<++++++[-<++++++++>]<. "> + get-brainfuck ] with-string-reader ] unit-test + +! Uppercase + +[ "A" ] [ "a\n" [ ",----------[----------------------.,----------]" + get-brainfuck ] with-string-reader ] unit-test + +! cat + +[ "ABC" ] [ "ABC\0" [ ",[.,]" get-brainfuck ] with-string-reader ] unit-test + +