Updated test cases.
parent
938f33c786
commit
7f12d582a5
|
@ -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
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue