extra/morse/morse-tests.factor

   1 ! Copyright (C) 2007 Alex Chapman
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays morse strings tools.test ;
   4 IN: morse.tests
   5
   6 [ "?" ] [ CHAR: \\ ch>morse ] unit-test
   7 [ "..." ] [ CHAR: s ch>morse ] unit-test
   8 [ CHAR: s ] [ "..." morse>ch ] unit-test
   9 [ CHAR: \s ] [ "..--..--.." morse>ch ] unit-test
  10 [ "-- --- .-. ... . / -.-. --- -.. ." ] [ "morse code" >morse ] unit-test
  11 [ "morse code" ] [ "-- --- .-. ... . / -.-. --- -.. ." morse> ] unit-test
  12 [ "hello, world!" ] [ "Hello, World!" >morse morse> ] unit-test
  13 [ ".- -... -.-." ] [ "abc" >morse ] unit-test
  14
  15 [ "abc" ] [ ".- -... -.-." morse> ] unit-test
  16
  17 [ "morse code" ] [
  18     [MORSE
  19         -- --- .-. ... . /
  20         -.-. --- -.. .
  21     MORSE] >morse morse> ] unit-test
  22
  23 [ "morse code 123" ] [
  24     [MORSE
  25         __ ___ ._. ... . /
  26         _._. ___ _.. . /
  27         .____ ..___ ...__
  28     MORSE] ] unit-test
  29
  30 [ [MORSE
  31       -- --- .-. ... . /
  32       -.-. --- -.. .
  33   MORSE] ] [
  34     "morse code" >morse morse>
  35 ] unit-test
  36
  37 [ "factor rocks!" ] [
  38     [MORSE
  39       ..-. .- -.-. - --- .-. /
  40       .-. --- -.-. -.- ... -.-.--
  41     MORSE] ] unit-test
  42 ! [ ] [ "sos" 0.075 play-as-morse* ] unit-test
  43 ! [ ] [ "Factor rocks!" play-as-morse ] unit-test
  44 ! [ ] [ "\n" play-as-morse ] unit-test