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