1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
;; run with `emacs --batch --script test.el'
;;; load ert
(when load-file-name
(add-to-list 'load-path
(expand-file-name "ert"
(file-name-directory load-file-name))))
(require 'ert-batch)
;;; load navi2ch
(setq load-path
(cons (expand-file-name ".."
(file-name-directory load-file-name))
load-path))
(require 'navi2ch-util)
(require 'navi2ch-http-date)
(require 'navi2ch-net)
(require 'navi2ch-thumbnail)
;;; define tests
(ert-deftest replace-html-tag ()
(should (string=
(navi2ch-replace-html-tag
" <a href=\"../test/read.cgi/***/***/***\" target=\"_blank\">>>139</a> <br> foo")
" >>139 \n foo")))
(ert-deftest http-date-test-1 ()
(let ((expected "Sun, 06 Nov 1994 08:49:37 GMT"))
(should (string= expected (navi2ch-http-date-encode
(navi2ch-http-date-decode
"Sun, 06 Nov 1994 08:49:37 GMT"))))))
(ert-deftest http-date-test-2 ()
(let ((expected "Sun, 06 Nov 1994 08:49:37 GMT"))
(should (string= expected (navi2ch-http-date-encode
(navi2ch-http-date-decode
"Sunday, 06-Nov-94 08:49:37 GMT"))))))
(ert-deftest http-date-test-3 ()
(let ((expected "Sun, 06 Nov 1994 08:49:37 GMT"))
(should (string= expected (navi2ch-http-date-encode
(navi2ch-http-date-decode
"Sun Nov 6 08:49:37 1994"))))))
(ert-deftest tanpan-check-1 ()
(should (navi2ch-net-is-tanpan-thread-p
"短パンマン ★<><>2010/09/15 01:09:42 ID:TanpanM<>いろいろあるさ ＠bg r.so ver 2008/02/19<br>ERROR = 5656 <br>(e_mes = []) <br> <>名古屋はエ〜エ〜で ♪
")))
(ert-deftest thumbnail-save-good-work ()
(let* ((workdir (make-temp-file "workdir." t))
(fileFoo (expand-file-name "foo" workdir))
(fileBar (expand-file-name "bar" workdir)))
(unwind-protect
(progn
(with-temp-file fileFoo (insert "foo"))
;; copy する
(navi2ch-thumbnail-save-content fileFoo fileBar)
(should
(string= (with-temp-buffer (insert-file-contents fileBar) (buffer-string))
"foo"))
(with-temp-file fileBar (insert "bar"))
;; overwrite
(navi2ch-thumbnail-save-content fileFoo fileBar t)
(should
(string= (with-temp-buffer (insert-file-contents fileBar) (buffer-string))
"foo")))
(delete-directory workdir t))))
(ert-deftest thumbnail-save-interactive-check ()
(let ((si:read-file-name (symbol-function 'read-file-name))
intform)
(unwind-protect
(progn
(fset 'read-file-name (lambda (a b c)
(expand-file-name (or c "hoge") b)))
(lexical-let ((evalform (cadr (interactive-form 'navi2ch-thumbnail-save-content))))
(fset 'intform (lambda () (eval evalform))))
(with-temp-buffer
;; prop `navi2ch-link' から読みだす。読みだせないとエラー。
(should-error (intform))
(save-excursion (insert (propertize "foo" 'navi2ch-link "foobar")))
(let ((res (intform)))
(should (equal res (list "foobar"
(expand-file-name "hoge"
navi2ch-thumbnail-save-content-dir)
0))))
(put-text-property (point-min) (point-max) 'file-name "barbaz")
(let ((res (intform)))
(should (equal res (list "foobar"
(expand-file-name "barbaz"
navi2ch-thumbnail-save-content-dir)
0))))))
(fset 'read-file-name si:read-file-name))))
(ert-deftest thumbnail-save-file-invalid ()
(let* ((workdir (make-temp-file "workdir." t))
(fileFoo (expand-file-name "foo" workdir))
(fileBar (expand-file-name "bar" workdir)))
(unwind-protect
(progn
;; ファイルがない
(should-error
(navi2ch-thumbnail-save-content fileFoo fileBar))
;; ファイルが書きこみできない
(with-temp-file fileFoo (insert "foo"))
(with-temp-file fileBar (insert "bar"))
(chmod fileBar 256)
(should-error
(navi2ch-thumbnail-save-content fileFoo fileBar)))
(delete-directory workdir t))))
(ert-deftest thumbnail-save-invalid-argument ()
;; 無効な引数
(let* ((workdir (make-temp-file "workdir." t))
(fileFoo (expand-file-name "foo" workdir)))
(unwind-protect
(progn
(should-error
(navi2ch-thumbnail-save-content nil nil))
(should-error
(navi2ch-thumbnail-save-content nil fileFoo))
(should-error
(navi2ch-thumbnail-save-content fileFoo nil)))
(delete-directory workdir t))))
(ert-deftest thumbnail-save-same-file ()
;; 同じファイル
(let* ((workdir (make-temp-file "workdir." t))
(file (expand-file-name "foo" workdir)))
(unwind-protect
(progn
(with-temp-file file (insert "foo"))
(should-error
(navi2ch-thumbnail-save-content file file t))
(should-error
(navi2ch-thumbnail-save-content file file nil)))
(delete-directory workdir t))))
(ert-deftest bm-sort-by-number ()
(should (string=
"1\n2\n 12\n1000\n"
(with-temp-buffer
(insert "1\n1000\n2\n 12\n")
(navi2ch-bm-sort-by-number)
(buffer-substring-no-properties (point-min) (point-max))))))
;;; run the tests
(ert-run-tests-batch)
|
