;;; avy-test.el --- Tests for avy

;; Copyright (C) 2015  Free Software Foundation, Inc.

;; Author: Oleh Krehel

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:
;;

;;; Code:

(require 'ert)
(require 'avy)

(ert-deftest avy-subdiv ()
  (should
   (equal (avy-subdiv 5 4)
          '(1 1 1 2)))
  (should
   (equal (avy-subdiv 10 4)
          '(1 1 4 4)))
  (should
   (equal (avy-subdiv 16 4)
          '(4 4 4 4)))
  (should
   (equal (avy-subdiv 17 4)
          '(4 4 4 5)))
  (should
   (equal (avy-subdiv 27 4)
          '(4 4 4 15)))
  (should
   (equal (avy-subdiv 50 4)
          '(4 14 16 16)))
  (should
   (equal (avy-subdiv 65 4)
          '(16 16 16 17))))

(ert-deftest avy-tree ()
  (should
   (equal
    (avy-tree '(0 1 2 3 4 5 6 7 8 9 10)
              '(?a ?s ?d ?f ?g ?h ?j ?k ?l))
    '((97 leaf . 0)
      (115 leaf . 1)
      (100 leaf . 2)
      (102 leaf . 3)
      (103 leaf . 4)
      (104 leaf . 5)
      (106 leaf . 6)
      (107 leaf . 7)
      (108 (97 leaf . 8)
       (115 leaf . 9)
       (100 leaf . 10))))))