code.delx.au - gnu-emacs-elpa/blob - packages/ace-window/avy-test.el

   1 (require 'ert)
   2 (require 'avy)
   3
   4 (ert-deftest avy-subdiv ()
   5   (should
   6    (equal (avy-subdiv 5 4)
   7           '(1 1 1 2)))
   8   (should
   9    (equal (avy-subdiv 10 4)
  10           '(1 1 4 4)))
  11   (should
  12    (equal (avy-subdiv 16 4)
  13           '(4 4 4 4)))
  14   (should
  15    (equal (avy-subdiv 17 4)
  16           '(4 4 4 5)))
  17   (should
  18    (equal (avy-subdiv 27 4)
  19           '(4 4 4 15)))
  20   (should
  21    (equal (avy-subdiv 50 4)
  22           '(4 14 16 16)))
  23   (should
  24    (equal (avy-subdiv 65 4)
  25           '(16 16 16 17))))
  26
  27 (ert-deftest avy-tree ()
  28   (should
  29    (equal
  30     (avy-tree '(0 1 2 3 4 5 6 7 8 9 10)
  31               '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
  32     '((97 leaf . 0)
  33       (115 leaf . 1)
  34       (100 leaf . 2)
  35       (102 leaf . 3)
  36       (103 leaf . 4)
  37       (104 leaf . 5)
  38       (106 leaf . 6)
  39       (107 leaf . 7)
  40       (108 (97 leaf . 8)
  41        (115 leaf . 9)
  42        (100 leaf . 10))))))