extra/sequences/abbrev/abbrev-tests.factor

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