fix morse unit test
parent
28cacc8d61
commit
fc8b04466a
|
@ -3,7 +3,7 @@
|
|||
USING: arrays morse strings tools.test ;
|
||||
IN: morse.tests
|
||||
|
||||
[ CHAR: ? ] [ CHAR: \\ ch>morse ] unit-test
|
||||
[ "?" ] [ CHAR: \\ ch>morse ] unit-test
|
||||
[ "..." ] [ CHAR: s ch>morse ] unit-test
|
||||
[ CHAR: s ] [ "..." morse>ch ] unit-test
|
||||
[ CHAR: \s ] [ "..--..--.." morse>ch ] unit-test
|
||||
|
|
Loading…
Reference in New Issue