extra/sequences/abbrev/abbrev-tests.factor

   1 USING: assocs sequences.abbrev tools.test ;
   2 IN: sequences.abbrev.tests
   3
   4 { { "hello" "help" } } [
   5     "he" { "apple" "hello" "help" } abbrev at
   6 ] unit-test
   7
   8 { f } [
   9     "he" { "apple" "hello" "help" } unique-abbrev at
  10 ] unit-test
  11
  12 { { "apple" } } [
  13     "a" { "apple" "hello" "help" } abbrev at
  14 ] unit-test
  15
  16 { { "apple" } } [
  17     "a" { "apple" "hello" "help" } unique-abbrev at
  18 ] unit-test
  19
  20 { f } [
  21     "a" { "hello" "help" } abbrev at
  22 ] unit-test
  23
  24 { f } [
  25     "a" { "hello" "help" } unique-abbrev at
  26 ] unit-test