]> code.delx.au - gnu-emacs/blob - lisp/emacs-lisp/tcover-ses.el
delx.au / code / gnu-emacs / blob


ad5234d6f0a7befd8306ead7f4c46f374af48af0
[gnu-emacs] / lisp / emacs-lisp / tcover-ses.el
1 ;;;; testcover-ses.el -- Example use of `testcover' to test "SES"
2
3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
4 ;; Free Software Foundation, Inc.
5
6 ;; Author: Jonathan Yavner <jyavner@engineer.com>
7 ;; Maintainer: Jonathan Yavner <jyavner@engineer.com>
8 ;; Keywords: spreadsheet lisp utility
9 ;; Package: testcover
10
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
15
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
23
24 (require 'testcover)
25
26 (defvar ses-initial-global-parameters)
27 (defvar ses-mode-map)
28
29 (declare-function ses-set-curcell "ses")
30 (declare-function ses-update-cells "ses")
31 (declare-function ses-load "ses")
32 (declare-function ses-vector-delete "ses")
33 (declare-function ses-create-header-string "ses")
34 (declare-function ses-read-cell "ses")
35 (declare-function ses-read-symbol "ses")
36 (declare-function ses-command-hook "ses")
37 (declare-function ses-jump "ses")
38
39
40 ;;;Here are some macros that exercise SES. Set `pause' to t if you want the
41 ;;;macros to pause after each step.
42 (let* ((pause nil)
43 (x (if pause "\18q" ""))
44 (y "\18\ 6ses-test.ses\r\e<"))
45 ;;Fiddle with the existing spreadsheet
46 (fset 'ses-exercise-example
47 (concat "\18\ 6" data-directory "ses-example.ses\r\e<"
48 x "\1510\ e"
49 x "\v"
50 x "\1f"
51 x "\10\10\ 6pses-center\r"
52 x "\ 6p\r"
53 x "\15\10\t\t"
54 x "\r\ 2 A9 B9\r"
55 x "\15\ e\ 2\ 2\ 2"
56 x "\r\ 1\v2\r"
57 x "\ e\ e\ 6"
58 x "50\r"
59 x "\154\1f"
60 x "\ 3\e\f"
61 x "\1f"
62 x "(+ \18o\ e\ e\ 6\0\ 6\ 6"
63 x "\15-1\18o\ 3\12 \ 3\13\r\ 2"
64 x "\1f"
65 x))
66 ;;Create a new spreadsheet
67 (fset 'ses-exercise-new
68 (concat y
69 x "\ 3\10\"%.8g\"\r"
70 x "2\r"
71 x "\ f"
72 x "\10"
73 x "\152\ f"
74 x "\"Header\r"
75 x "(sqrt 1\r\ 2"
76 x "pses-center\r\ 6"
77 x "\t"
78 x "\10(+ A2 A3\r"
79 x "\ 6(* B2 A3\r"
80 x "\152\ 3\e\b"
81 x "\r\7f\7f\7fB3\r"
82 x "\18\13"
83 x))
84 ;;Basic cell display
85 (fset 'ses-exercise-display
86 (concat y "\e:(revert-buffer t t)\r"
87 x "\ 5"
88 x "\"Very long\r\ 2"
89 x "w3\r"
90 x "w3\r"
91 x "(/ 1 0\r\ 2"
92 x "234567\r\ 2"
93 x "\155w"
94 x "\t1\r\ 2"
95 x "\ 2\ 3\ 3"
96 x "\ 6234567\r\ 2"
97 x "\t\ 4\ 2"
98 x "\ 2\ 3\ 3"
99 x "345678\r\ 2"
100 x "\153w"
101 x "\0\e>"
102 x "\ 3\ 3"
103 x "\18\18"
104 x "\ 5"
105 x "\18\18\ 1"
106 x "\ 5"
107 x "\ 6\ 5"
108 x "\ 3\ 3"
109 x "1\r\ 2"
110 x "\ 3\ 3\ 6"
111 x "\ 5"
112 x "\ 2\ 2\ 2\"1234567-1234567-1234567\r\ 2"
113 x "123\r\ 2"
114 x "\152\ f"
115 x "\ e\"1234567-1234567-1234567\r\ 2"
116 x "123\r\ 2"
117 x "\ 6\ 6w8\r"
118 x "\ 2\ 2\"1234567\r"
119 x "\ e\ 2w5\r"
120 x))
121 ;;Cell formulas
122 (fset 'ses-exercise-formulas
123 (concat y "\e:(revert-buffer t t)\r"
124 x "\t\t"
125 x "\t"
126 x "(* B1 B2 D1\r\ 2"
127 x "(* B2 B3\r\ 2"
128 x "\ e(apply '+ (ses-range B1 B3)\r\ 2"
129 x "(apply 'ses+ (ses-range B1 B3)\r\ 2"
130 x "\ e(apply 'ses+ (ses-range A2 A3)\r\ 2"
131 x "\ e(mapconcat'number-to-string(ses-range B2 B4) \"-\"\r\ 2"
132 x "\ 2(apply 'concat (reverse (ses-range A3 D3))\r\ 2"
133 x "\ 2(* (+ A2 A3) (ses+ B2 B3)\r\ 2"
134 x "\ e"
135 x "\152\ f"
136 x "\155\t"
137 x "\10(apply 'ses+ (ses-range E1 E2)\r\ 2"
138 x "\10(apply 'ses+ (ses-range A5 B5)\r\ 2"
139 x "\10(apply 'ses+ (ses-range E1 F1)\r\ 2"
140 x "\10(apply 'ses+ (ses-range D1 E1)\r\ 2"
141 x "\t"
142 x "(ses-average (ses-range A2 A5)\r\ 2"
143 x "\ e(apply 'ses+ (ses-range A5 A6)\r\ 2"
144 x "\ 2\ 2\ek"
145 x "\ e\ e\v"
146 x "\10\10\10\ f"
147 x "\ e\152\ f"
148 x "\10\153\v"
149 x "\ 2\ 2\ 2\eo"
150 x "\ 6\152\eo"
151 x "\ 2\153\ek"
152 x "\ 6(ses-average (ses-range B3 E3)\r\ 2"
153 x "\ 2\ek"
154 x "\ e\1012345678\r\ 2"
155 x))
156 ;;Recalculating and reconstructing
157 (fset 'ses-exercise-recalc
158 (concat y "\e:(revert-buffer t t)\r"
159 x "\ 3\e\f"
160 x "\t\t"
161 x "\ 3\ 3"
162 x "(/ 1 0\r\ 2"
163 x "\ 3\ 3"
164 x "\n"
165 x "\ 3\ 3"
166 x "\ 3\10\"%.6g\"\r"
167 x "\ 3\e\f"
168 x "\e>\18nw\ 6\ 6\ 6"
169 x "\0\e>\exdelete-region\r"
170 x "\ 3\e\f"
171 x "\158\ e"
172 x "\0\e>\exdelete-region\r"
173 x "\ 3\e\f"
174 x "\ 3\ e"
175 x "\ e\v\ 2\ek"
176 x "\ 3\f"
177 x "\ 2\"Very long\r"
178 x "\10\ 3\14"
179 x "\ 2\r\r"
180 x "\ e\ 3\14"
181 x "\ 6\eo"
182 x "\ 6\ 3\14"
183 x "\ 2\ 2\"Very long2\r"
184 x "\ 2\eo\ 6"
185 x "\ 3\14"
186 x "\r\7f\7f\7fC3\r"
187 x "\ e\r\7f\7f\7fC2\r"
188 x "\10\0\ e\ 6\ 3\ 3"
189 x "\r\7f\7fC4\r"
190 x "\ e\ e\r\7f\7f\7fC2\r"
191 x "\ 6\0\ 2\10\10"
192 x "\ 3\ 3"
193 x "\exses-mode\r"
194 x "\e<\ f"
195 x "\152\ek"
196 x))
197 ;;Header line
198 (fset 'ses-exercise-header-row
199 (concat y "\e:(revert-buffer t t)\r"
200 x "\18<"
201 x "\18>"
202 x "\156\18<"
203 x "\18>"
204 x "\157\18<"
205 x "\18>"
206 x "\158\18<"
207 x "\152\18<"
208 x "\18>"
209 x "\ 6\153w\ 2"
210 x "\1510\18<"
211 x "\18>"
212 x "\152\v"
213 x))
214 ;;Detecting unsafe formulas and printers
215 (fset 'ses-exercise-unsafe
216 (concat y "\e:(revert-buffer t t)\r"
217 x "p(lambda (x) (delete-file x))\rn"
218 x "p(lambda (x) (delete-file \"ses-nothing\"))\ry"
219 x "\0\ 6\17\19n"
220 x "\ e(delete-file \"x\"\rn"
221 x "(delete-file \"ses-nothing\"\ry\ 2"
222 x "\0\ 6\17\19n"
223 x "(open-network-stream \"x\" nil \"localhost\" \"smtp\"\ry\ 2"
224 x "\0\ 6\17\19n"
225 x))
226 ;;Inserting and deleting rows
227 (fset 'ses-exercise-rows
228 (concat y "\e:(revert-buffer t t)\r"
229 x "\ e\ 6"
230 x "\ 3\10\"%s=\"\r"
231 x "\1520\ f"
232 x "\ep\"%s+\"\r"
233 x "\ e\ f"
234 x "123456789\r\ 2"
235 x "\0\1521\ e\ 6"
236 x "\ 3\ 3"
237 x "\e\f"
238 x "\10\10(not B25\r\ 2"
239 x "\ e\ek"
240 x "jA3\r"
241 x "\1519\v"
242 x "\10\ 6\v"
243 x "\15100\ f" ;Make this approx your CPU speed in MHz
244 x))
245 ;;Inserting and deleting columns
246 (fset 'ses-exercise-columns
247 (concat y "\e:(revert-buffer t t)\r"
248 x "\ 3\10\"%s@\"\r"
249 x "\eo"
250 x "\ f"
251 x "\eo"
252 x "\v"
253 x "\ek"
254 x "w8\r"
255 x "\ep\"%.7s*\"\r"
256 x "\eo"
257 x "\ 6"
258 x "\152\eo"
259 x "\153\ek"
260 x "\ 3\10\"%.6g\"\r"
261 x "\1526\eo"
262 x "\0\1526\t"
263 x "\1526\eo"
264 x "\ 3\e\b0\r"
265 x "\1526\t"
266 x "\15400\ 2"
267 x "\1550\ek"
268 x "\0\ e\ e\ 6\ 6\ 3\e\13D"
269 x))
270 (fset 'ses-exercise-editing
271 (concat y "\e:(revert-buffer t t)\r"
272 x "\ e\ e\ e1\r\ 2"
273 x "\ 6(\ 2'\ 6x\r\ 2"
274 x "\ 2\10\10\10\ f"
275 x "\1f"
276 x "\r\r"
277 x "w9\r"
278 x "\ e\r\ 2.5\r"
279 x "\ e\ 6\r\ 2 10\r"
280 x "w12\r"
281 x "\r\ 1'\r"
282 x "\r\ 1\ 4\r"
283 x "jA4\r"
284 x "(+ A2 100\r\ 2"
285 x "\10\103\r\ 2"
286 x "jB1\r"
287 x "(not A1\r\ 2"
288 x "\ 2\"Very long\r\ 2"
289 x "\ 3\ 3"
290 x "\eh"
291 x "\eH"
292 x "\ 3\ 3"
293 x "\e>\t"
294 x "\10\10\ 4"
295 x "\10\ 4"
296 x "\ 6\ 6\152\7f"
297 x "\10\7f"
298 x "\eo"
299 x "\eh"
300 x "\0\ f\ 6"
301 x "\"Also very long\r\ 2"
302 x "\ e\ 6\eH"
303 x "\0'\r\ 2"
304 x "'Trial\r\ 2"
305 x "\ e\ 2'qwerty\r\ 2"
306 x "\ 6(concat \18o\e<\0\ e\ e"
307 x "\15-1\18o\ 3\12\r\ 2"
308 x "(apply '+ \18o\e<\0\ e\ 6\15-1\18o\ 3\13\r\ 2"
309 x "\10\152\7f"
310 x "\15-2\7f"
311 x "\15-2\ 4"
312 x "\152\ 4"
313 x "\ 2\10\10\v"
314 x "\ e\ 6\eH"
315 x "\ 2\10\0\ f"
316 x "\"Another long one\r\ 2"
317 x "\ e\ e\ 6\eH"
318 x "\ 1\10\ 5"
319 x "\ 3\ 3\e<"
320 x "\ e\ 5"
321 x "\e>\10\ f"
322 x "\0\ 5\ 6\ 5"
323 x))
324 ;;Sorting of columns
325 (fset 'ses-exercise-sort-column
326 (concat y "\e:(revert-buffer t t)\r"
327 x "\"Very long\r"
328 x "\ 699\r"
329 x "\ 6\eo13\r"
330 x "(+ A3 B3\r"
331 x "7\r8\r(* A4 B4\r"
332 x "\0\10\10\10\ 3\e\13A\r"
333 x "\ e\0\10\10\10\ 3\e\13B\r"
334 x "\10\10\ 6\0\ e\ e\ 6\ 6\ 3\e\13C\r"
335 x "\ 6\eo\10\ f"
336 x "\ 2\0\ e\ e\ e\15\ 3\e\13C\r"
337 x))
338 ;;Simple cell printers
339 (fset 'ses-exercise-cell-printers
340 (concat y "\e:(revert-buffer t t)\r"
341 x "\ 6\"4\11\t76\r\ 2"
342 x "\"4\11\n7\r\ 2"
343 x "p\"{%S}\"\r"
344 x "p(\"[%s]\")\r"
345 x "p(\"<%s>\")\r"
346 x "\ 2\0\ 6\ 6"
347 x "p\r"
348 x "pnil\r"
349 x "pses-dashfill\r"
350 x "48\r\ 2"
351 x "\t"
352 x "\ 2\0\ 6p\r"
353 x "\ 6p\r"
354 x "pses-dashfill\r"
355 x "\ 2\0\ 6\ 6pnil\r"
356 x "5\r\ 2"
357 x "pses-center\r"
358 x "\ 3\10\"%s\"\r"
359 x "w8\r"
360 x "\ep\r"
361 x "\ep\"%.7g@\"\r"
362 x "\ 3\10\r"
363 x "\ 3\10\"%.6g#\"\r"
364 x "\ 3\10\"%.6g.\"\r"
365 x "\ 3\10\"%.6g.\"\r"
366 x "\epidentity\r"
367 x "6\r\ 2"
368 x "\ e\"UPCASE\r\ 2"
369 x "\epdowncase\r"
370 x "(* 3 4\r\ 2"
371 x "p(lambda\11 (x)\11 '(\"Hi\"))\r"
372 x "p(lambda\11 (x)\11 '(\"Bye\"))\r"
373 x))
374 ;;Spanning cell printers
375 (fset 'ses-exercise-spanning-printers
376 (concat y "\e:(revert-buffer t t)\r"
377 x "\ep\"%.6g*\"\r"
378 x "pses-dashfill-span\r"
379 x "5\r\ 2"
380 x "pses-tildefill-span\r"
381 x "\"4\r\ 2"
382 x "\ep\"$%s\"\r"
383 x "\ep(\"$%s\")\r"
384 x "8\r\ 2"
385 x "\ep(\"!%s!\")\r"
386 x "\t\"12345678\r\ 2"
387 x "pses-dashfill-span\r"
388 x "\"23456789\r\ 2"
389 x "\t"
390 x "(not t\r\ 2"
391 x "\ 2w6\r"
392 x "\"5\r\ 2"
393 x "\ e\ 6\eo"
394 x "\ek"
395 x "\ek"
396 x "\t"
397 x "\ 2\10\ 3\ 3"
398 x "\eo"
399 x "\ e\152\ek"
400 x "\ 2\ 2\ek"
401 x))
402 ;;Cut/copy/paste - within same buffer
403 (fset 'ses-exercise-paste-1buf
404 (concat y "\e:(revert-buffer t t)\r"
405 x "\ e\0\ 6\ew"
406 x "\ 3\ 3\10\ 6\19"
407 x "\ e\eo"
408 x "\"middle\r\ 2"
409 x "\0\ 6\ e\ 6"
410 x "\ew"
411 x "\10\0\ 6"
412 x "\ew"
413 x "\ 3\ 3\ 6\ e"
414 x "\19"
415 x "\152\19y"
416 x "\ 6\15\19y"
417 x "\10\10\ 6\15\19y"
418 x "\e>"
419 x "\19y"
420 x "\e>\19y"
421 x "\e<"
422 x "p\"<%s>\"\r"
423 x "\ 6pses-dashfill\r"
424 x "\ 2\0\ 6\ 6\ 6\ e\ e\ e"
425 x "\17"
426 x "\1f"
427 x "\15\19y"
428 x "\r\0\ 2\ 2\ 2\ew"
429 x "\r\ 6\19"
430 x "\153\10(+ G2 H1\r"
431 x "\0\ 2\ew"
432 x "\ 3\ 3\e>\ 2"
433 x "\19"
434 x "\ 2\158\10(ses-average (ses-range G2 H2)\r\ 2"
435 x "\0\ 6\17\ek"
436 x "\157\ e"
437 x "\19"
438 x "\10\ 2(ses-average (ses-range E7 E9)\r\ 2"
439 x "\0\ 6\17\v"
440 x "\ e\19"
441 x "\ 2\ 2\10(ses-average (ses-range E7 F7)\r\ 2"
442 x "\0\ 6\17\ek"
443 x "\ 6\19"
444 x "\ 2\ 2\10(ses-average (ses-range D6 E6)\r\ 2"
445 x "\0\ 6\17\ek"
446 x "\ 6\19"
447 x "\ 1\152\ f"
448 x "\"Line A\r\ 2"
449 x "pses-tildefill-span\r"
450 x "\ e\ 6\"Subline A(1)\r\ 2"
451 x "pses-dashfill-span\r"
452 x "\ 2\10\0\ e\ e\ e\ew\ 3\ 3"
453 x "\ 1\10\10\10\10\10\10"
454 x "\19"
455 x "\0\ e\ 6\ 6\ew\ 3\ 3"
456 x "\ 6\19"
457 x))
458 ;;Cut/copy/paste - between two buffers
459 (fset 'ses-exercise-paste-2buf
460 (concat y "\e:(revert-buffer t t)\r"
461 x "\ 6\ e\eo\"middle\r\ 2\0\ 6\ e\ 6"
462 x "\17"
463 x "\184bses-test.txt\r"
464 x " \ 1\19"
465 x "\ 5\"xxx\0\ 2\ 2\ 2\ 2"
466 x "\ew\18o"
467 x "\1f"
468 x "\19"
469 x "\18o\ 5\"\0\ 2\ 2\ 2\ 2\ 2"
470 x "\ew\18o\19"
471 x "\18o123.45\0\ 2\ 2\ 2\ 2\ 2\ 2"
472 x "\17\18o\19"
473 x "\18o1 \ 2\ 2\0\ 6\ 6\ 6\ 6\ 6\ 6\ 6"
474 x "\17\18o\19"
475 x "\e>\19y"
476 x "\ 6\18o symb\0\ 2\ 2\ 2\ 2"
477 x "\17\18o\15\19\ey\152\ey"
478 x "\18o1\t\0\ 2\ 2"
479 x "\17\18o\ 2\19"
480 x "w9\n\ep\"<%s>\"\n"
481 x "\18o\n2\t\"3\nxxx\t5\n\0\10\10"
482 x "\17\18o\19y"
483 x))
484 ;;Export text, import it back
485 (fset 'ses-exercise-import-export
486 (concat y "\e:(revert-buffer t t)\r"
487 x "\ e\ e\ 6\0\ 6xt"
488 x "\184bses-test.txt\r"
489 x "\n\19\15-1\18o"
490 x "xT\18o\19\15-1\18o"
491 x "\ 3\ 3\ 6'crunch\r\ 2"
492 x "\10\10\10pses-center-span\r"
493 x "\0\ e\ e\ e\ exT"
494 x "\18o\n\19\15-1\18o"
495 x "\0\19y"
496 x "\ 6\0\ 2\10\10xt"
497 x "\ e\ e\0\15\19y"
498 x "12345678\r\ 2"
499 x "\ 6\ 6'bunch\r"
500 x "\0\10\10xtxT"
501 x)))
502
503 (defun ses-exercise-macros ()
504 "Executes all SES coverage-test macros."
505 (dolist (x '(ses-exercise-example
506 ses-exercise-new
507 ses-exercise-display
508 ses-exercise-formulas
509 ses-exercise-recalc
510 ses-exercise-header-row
511 ses-exercise-unsafe
512 ses-exercise-rows
513 ses-exercise-columns
514 ses-exercise-editing
515 ses-exercise-sort-column
516 ses-exercise-cell-printers
517 ses-exercise-spanning-printers
518 ses-exercise-paste-1buf
519 ses-exercise-paste-2buf
520 ses-exercise-import-export))
521 (message "<Testing %s>" x)
522 (execute-kbd-macro x)))
523
524 (defun ses-exercise-signals ()
525 "Exercise code paths that lead to error signals, other than those for
526 spreadsheet files with invalid formatting."
527 (message "<Checking for expected errors>")
528 (switch-to-buffer "ses-test.ses")
529 (deactivate-mark)
530 (ses-jump 'A1)
531 (ses-set-curcell)
532 (dolist (x '((ses-column-widths 14)
533 (ses-column-printers "%s")
534 (ses-column-printers ["%s" "%s" "%s"]) ;Should be two
535 (ses-column-widths [14])
536 (ses-delete-column -99)
537 (ses-delete-column 2)
538 (ses-delete-row -1)
539 (ses-goto-data 'hogwash)
540 (ses-header-row -56)
541 (ses-header-row 99)
542 (ses-insert-column -14)
543 (ses-insert-row 0)
544 (ses-jump 'B8) ;Covered by preceding cell
545 (ses-printer-validate '("%s" t))
546 (ses-printer-validate '([47]))
547 (ses-read-header-row -1)
548 (ses-read-header-row 32767)
549 (ses-relocate-all 0 0 -1 1)
550 (ses-relocate-all 0 0 1 -1)
551 (ses-select (ses-range A1 A2) 'x (ses-range B1 B1))
552 (ses-set-cell 0 0 'hogwash nil)
553 (ses-set-column-width 0 0)
554 (ses-yank-cells #("a\nb"
555 0 1 (ses (A1 nil nil))
556 2 3 (ses (A3 nil nil)))
557 nil)
558 (ses-yank-cells #("ab"
559 0 1 (ses (A1 nil nil))
560 1 2 (ses (A2 nil nil)))
561 nil)
562 (ses-yank-pop nil)
563 (ses-yank-tsf "1\t2\n3" nil)
564 (let ((curcell nil)) (ses-check-curcell))
565 (let ((curcell 'A1)) (ses-check-curcell 'needrange))
566 (let ((curcell '(A1 . A2))) (ses-check-curcell 'end))
567 (let ((curcell '(A1 . A2))) (ses-sort-column "B"))
568 (let ((curcell '(C1 . D2))) (ses-sort-column "B"))
569 (execute-kbd-macro "jB10\n\152\ 4")
570 (execute-kbd-macro [?j ?B ?9 ?\n ?\C-@ ?\C-f ?\C-f cut])
571 (progn (kill-new "x") (execute-kbd-macro "\e>\19n"))
572 (execute-kbd-macro "\ 2\0\ew")))
573 (condition-case nil
574 (progn
575 (eval x)
576 (signal 'singularity-error nil)) ;Shouldn't get here
577 (singularity-error (error "No error from %s?" x))
578 (error nil)))
579 ;;Test quit-handling in ses-update-cells. Cant' use `eval' here.
580 (let ((inhibit-quit t))
581 (setq quit-flag t)
582 (condition-case nil
583 (progn
584 (ses-update-cells '(A1))
585 (signal 'singularity-error nil))
586 (singularity-error (error "Quit failure in ses-update-cells"))
587 (error nil))
588 (setq quit-flag nil)))
589
590 (defun ses-exercise-invalid-spreadsheets ()
591 "Execute code paths that detect invalid spreadsheet files."
592 ;;Detect invalid spreadsheets
593 (let ((p&d "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n")
594 (cw "(ses-column-widths [7])\n")
595 (cp "(ses-column-printers [ses-center])\n")
596 (dp "(ses-default-printer \"%.7g\")\n")
597 (hr "(ses-header-row 0)\n")
598 (p11 "(2 1 1)")
599 (igp ses-initial-global-parameters))
600 (dolist (x (list "(1)"
601 "(x 2 3)"
602 "(1 x 3)"
603 "(1 -1 0)"
604 "(1 2 x)"
605 "(1 2 -1)"
606 "(3 1 1)"
607 "\n\n\f(2 1 1)"
608 "\n\n\f\n(ses-cell)(2 1 1)"
609 "\n\n\f\n(x)\n(2 1 1)"
610 "\n\n\n\f\n(ses-cell A2)\n(2 2 2)"
611 "\n\n\n\f\n(ses-cell B1)\n(2 2 2)"
612 "\n\n\f\n(ses-cell A1 nil nil nil nil)\n(2 1 1)"
613 (concat p&d "(x)\n(x)\n(x)\n(x)\n" p11)
614 (concat p&d "(ses-column-widths)(x)\n(x)\n(x)\n" p11)
615 (concat p&d cw "(x)\n(x)\n(x)\n(2 1 1)")
616 (concat p&d cw "(ses-column-printers)(x)\n(x)\n" p11)
617 (concat p&d cw cp "(x)\n(x)\n" p11)
618 (concat p&d cw cp "(ses-default-printer)(x)\n" p11)
619 (concat p&d cw cp dp "(x)\n" p11)
620 (concat p&d cw cp dp "(ses-header-row)" p11)
621 (concat p&d cw cp dp hr p11)
622 (concat p&d cw cp dp "\n" hr igp)))
623 (condition-case nil
624 (with-temp-buffer
625 (insert x)
626 (ses-load)
627 (signal 'singularity-error nil)) ;Shouldn't get here
628 (singularity-error (error "%S is an invalid spreadsheet!" x))
629 (error nil)))))
630
631 (defun ses-exercise-startup ()
632 "Prepare for coverage tests"
633 ;;Clean up from any previous runs
634 (condition-case nil (kill-buffer "ses-example.ses") (error nil))
635 (condition-case nil (kill-buffer "ses-test.ses") (error nil))
636 (condition-case nil (delete-file "ses-test.ses") (file-error nil))
637 (delete-other-windows) ;Needed for "\C-xo" in ses-exercise-editing
638 (setq ses-mode-map nil) ;Force rebuild
639 (testcover-unmark-all "ses.el")
640 ;;Enable
641 (let ((testcover-1value-functions
642 ;;forward-line always returns 0, for us.
643 ;;remove-text-properties always returns t for us.
644 ;;ses-recalculate-cell returns the same " " any time curcell is a cons
645 ;;Macros ses-dorange and ses-dotimes-msg generate code that always
646 ;; returns nil
647 (append '(forward-line remove-text-properties ses-recalculate-cell
648 ses-dorange ses-dotimes-msg)
649 testcover-1value-functions))
650 (testcover-constants
651 ;;These maps get initialized, then never changed again
652 (append '(ses-mode-map ses-mode-print-map ses-mode-edit-map)
653 testcover-constants)))
654 (testcover-start "ses.el" t))
655 (require 'unsafep)) ;In case user has safe-functions = t!
656
657
658 ;;;#########################################################################
659 (defun ses-exercise ()
660 "Executes all SES coverage tests and displays the results."
661 (interactive)
662 (ses-exercise-startup)
663 ;;Run the keyboard-macro tests
664 (let ((safe-functions nil)
665 (ses-initial-size '(1 . 1))
666 (ses-initial-column-width 7)
667 (ses-initial-default-printer "%.7g")
668 (ses-after-entry-functions '(forward-char))
669 (ses-mode-hook nil))
670 (ses-exercise-macros)
671 (ses-exercise-signals)
672 (ses-exercise-invalid-spreadsheets)
673 ;;Upgrade of old-style spreadsheet
674 (with-temp-buffer
675 (insert " \n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers [nil])\n(ses-default-printer \"%.7g\")\n\n( ;Global parameters (these are read first)\n 1 ;SES file-format\n 1 ;numrows\n 1 ;numcols\n)\n\n")
676 (ses-load))
677 ;;ses-vector-delete is always called from buffer-undo-list with the same
678 ;;symbol as argument. We'll give it a different one here.
679 (let ((x [1 2 3]))
680 (ses-vector-delete 'x 0 0))
681 ;;ses-create-header-string behaves differently in a non-window environment
682 ;;but we always test under windows.
683 (let ((window-system (not window-system)))
684 (scroll-left 7)
685 (ses-create-header-string))
686 ;;Test for nonstandard after-entry functions
687 (let ((ses-after-entry-functions '(forward-line))
688 ses-mode-hook)
689 (ses-read-cell 0 0 1)
690 (ses-read-symbol 0 0 t)))
691 ;;Tests with unsafep disabled
692 (let ((safe-functions t)
693 ses-mode-hook)
694 (message "<Checking safe-functions = t>")
695 (kill-buffer "ses-example.ses")
696 (find-file "ses-example.ses"))
697 ;;Checks for nonstandard default values for new spreadsheets
698 (let (ses-mode-hook)
699 (dolist (x '(("%.6g" 8 (2 . 2))
700 ("%.8g" 6 (3 . 3))))
701 (let ((ses-initial-size (nth 2 x))
702 (ses-initial-column-width (nth 1 x))
703 (ses-initial-default-printer (nth 0 x)))
704 (with-temp-buffer
705 (set-buffer-modified-p t)
706 (ses-mode)))))
707 ;;Test error-handling in command hook, outside a macro.
708 ;;This will ring the bell.
709 (let (curcell-overlay)
710 (ses-command-hook))
711 ;;Due to use of run-with-timer, ses-command-hook sometimes gets called
712 ;;after we switch to another buffer.
713 (switch-to-buffer "*scratch*")
714 (ses-command-hook)
715 ;;Print results
716 (message "<Marking source code>")
717 (testcover-mark-all "ses.el")
718 (testcover-next-mark)
719 ;;Cleanup
720 (delete-other-windows)
721 (kill-buffer "ses-test.txt")
722 ;;Could do this here: (testcover-end "ses.el")
723 (message "Done"))
724
725 ;; arch-tag: 87052ba4-5cf8-46cf-9375-fe245f3360b8
726 ;; testcover-ses.el ends here.