tests/test-dist.el

   1 (require 'lunit)
   2 (require 'wl)
   3 (require 'cl)                           ; mapc
   4
   5 (luna-define-class test-dist (lunit-test-case))
   6
   7 ;; WL-MODULES
   8 (luna-define-method test-wl-modules-exists ((case test-dist))
   9   (lunit-assert
  10    (null
  11     (let (filename lost)
  12       (mapc
  13        (lambda (module)
  14          (setq filename (concat (symbol-name module) ".el"))
  15          (unless (file-exists-p (expand-file-name filename WLDIR))
  16            (add-to-list 'lost symbol)))
  17        WL-MODULES)
  18       lost))))
  19
  20 ;; ELMO-MODULES
  21 (luna-define-method test-elmo-modules-exists ((case test-dist))
  22   (lunit-assert
  23    (null
  24     (let (filename lost)
  25       (mapc
  26        (lambda (module)
  27          (setq filename (concat (symbol-name module) ".el"))
  28          (unless (file-exists-p (expand-file-name filename ELMODIR))
  29            (add-to-list 'lost symbol)))
  30        ELMO-MODULES)
  31       lost))))
  32
  33 ;; UTILS-MODULES
  34 (luna-define-method test-util-modules-exists ((case test-dist))
  35   (lunit-assert
  36    (null
  37     (let (filename lost)
  38       (mapc
  39        (lambda (module)
  40          (setq filename (concat (symbol-name module) ".el"))
  41          (unless (file-exists-p (expand-file-name filename UTILSDIR))
  42            (add-to-list 'lost symbol)))
  43        UTILS-MODULES)
  44       lost))))
  45
  46 ;; Icons
  47 (luna-define-method test-wl-icon-exists ((case test-dist))
  48   (lunit-assert
  49    (null
  50     (let (name value lost)
  51       (mapatoms
  52        (lambda (symbol)
  53          (setq name (symbol-name symbol))
  54          (setq value (and (boundp symbol) (symbol-value symbol)))
  55          (when (and (string-match "^wl-.*-icon$" name)
  56                     (stringp value)
  57                     (string-match "xpm$" value))
  58            (unless (file-exists-p (expand-file-name value ICONDIR))
  59              (add-to-list 'lost symbol)))))
  60       lost))))
  61
  62 (luna-define-method test-version-status-icon-xpm ((case test-dist))
  63   (require 'wl-demo)
  64   (lunit-assert
  65    (file-exists-p
  66     (expand-file-name (concat wl-demo-icon-name ".xpm") ICONDIR))))
  67
  68 (luna-define-method test-version-status-icon-xbm ((case test-dist))
  69   (require 'wl-demo)
  70   (lunit-assert
  71    (file-exists-p
  72     (expand-file-name (concat wl-demo-icon-name ".xbm") ICONDIR))))
  73
  74 ;; verstion.texi
  75 (luna-define-method test-texi-version ((case test-dist))
  76   (require 'wl-version)
  77   (lunit-assert
  78    (string=
  79     (product-version-string (product-find 'wl-version))
  80     (with-temp-buffer
  81       (insert-file-contents (expand-file-name "version.texi" DOCDIR))
  82       (re-search-forward "^@set VERSION \\([0-9\.]+\\)$")
  83       (match-string 1)))))
  84
  85 ;; wl-refcard.tex
  86 (luna-define-method test-refcard-version ((case test-dist))
  87   (require 'wl-version)
  88   (lunit-assert
  89    (string=
  90     (product-version-string (product-find 'wl-version))
  91     (with-temp-buffer
  92       (insert-file-contents (expand-file-name "wl-refcard.tex" DOCDIR))
  93       (re-search-forward "^\\\\def\\\\versionnumber{\\([0-9\.]+\\)}$")
  94       (match-string 1)))))