From: kaoru <kaoru>
Date: Wed, 12 Dec 2001 04:47:52 +0000 (+0000)
Subject: * test-dist.el (test-refcard-version): New testcases.
X-Git-Tag: wl-2_8-root~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f4d54962fddf289911e3a3f229ae7851c8b6000f;p=elisp%2Fwanderlust.git

* test-dist.el (test-refcard-version): New testcases.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 6d513be..7b8cb29 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* test-dist.el (test-refcard-version): New testcases.
+
 2001-11-25  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* check-base64.el (toplevel): Remove (require 'wl).
diff --git a/tests/test-dist.el b/tests/test-dist.el
index c26a0f8..28ef908 100644
--- a/tests/test-dist.el
+++ b/tests/test-dist.el
@@ -81,3 +81,14 @@
       (insert-file-contents (expand-file-name "version.texi" DOCDIR))
       (re-search-forward "^@set VERSION \\([0-9\.]+\\)$")
       (match-string 1)))))
+
+;; wl-refcard.tex
+(luna-define-method test-refcard-version ((case test-dist))
+  (require 'wl-version)
+  (lunit-assert
+   (string=
+    (product-version-string (product-find 'wl-version))
+    (with-temp-buffer
+      (insert-file-contents (expand-file-name "wl-refcard.tex" DOCDIR))
+      (re-search-forward "^\\\\def\\\\versionnumber{\\([0-9\.]+\\)}$")
+      (match-string 1)))))