Auto-commit of loaddefs files.

[emacs.git] / lisp / emacs-lisp / tcover-ses.el

;;;; testcover-ses.el -- Example use of `testcover' to test "SES"

;; Copyright (C) 2002-2013 Free Software Foundation, Inc.

;; Author: Jonathan Yavner <jyavner@engineer.com>
;; Maintainer: Jonathan Yavner <jyavner@engineer.com>
;; Keywords: spreadsheet lisp utility
;; Package: testcover

;; 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/>.

(require 'testcover)

(defvar ses-initial-global-parameters)
(defvar ses-mode-map)

(declare-function ses-set-curcell "ses")
(declare-function ses-update-cells "ses")
(declare-function ses-load "ses")
(declare-function ses-vector-delete "ses")
(declare-function ses-create-header-string "ses")
(declare-function ses-read-cell "ses")
(declare-function ses-read-symbol "ses")
(declare-function ses-command-hook "ses")
(declare-function ses-jump "ses")


;;;Here are some macros that exercise SES.  Set `pause' to t if you want the
;;;macros to pause after each step.
(let* ((pause nil)
       (x (if pause "\x18q" ""))
       (y "\x18\x06ses-test.ses\r\e<"))
  ;;Fiddle with the existing spreadsheet
  (fset 'ses-exercise-example
        (concat   "\x18\x06" data-directory "ses-example.ses\r\e<"
                x "\x1510\x0e"
                x "\v"
                x "\x1f"
                x "\x10\x10\x06pses-center\r"
                x "\x06p\r"
                x "\x15\x10\t\t"
                x "\r\x02 A9 B9\r"
                x "\x15\x0e\x02\x02\x02"
                x "\r\x01\v2\r"
                x "\x0e\x0e\x06"
                x "50\r"
                x "\x154\x1f"
                x "\x03\e\f"
                x "\x1f"
                x "(+ \x18o\x0e\x0e\x06\0\x06\x06"
                x "\x15-1\x18o\x03\x12 \x03\x13\r\x02"
                x "\x1f"
                x))
  ;;Create a new spreadsheet
  (fset 'ses-exercise-new
        (concat y
                x "\x03\x10\"%.8g\"\r"
                x "2\r"
                x "\x0f"
                x "\x10"
                x "\x152\x0f"
                x "\"Header\r"
                x "(sqrt 1\r\x02"
                x "pses-center\r\x06"
                x "\t"
                x "\x10(+ A2 A3\r"
                x "\x06(* B2 A3\r"
                x "\x152\x03\e\b"
                x "\r\x7f\x7f\x7fB3\r"
                x "\x18\x13"
                x))
  ;;Basic cell display
  (fset 'ses-exercise-display
        (concat y "\e:(revert-buffer t t)\r"
                x "\x05"
                x "\"Very long\r\x02"
                x "w3\r"
                x "w3\r"
                x "(/ 1 0\r\x02"
                x "234567\r\x02"
                x "\x155w"
                x "\t1\r\x02"
                x "\x02\x03\x03"
                x "\x06234567\r\x02"
                x "\t\x04\x02"
                x "\x02\x03\x03"
                x "345678\r\x02"
                x "\x153w"
                x "\0\e>"
                x "\x03\x03"
                x "\x18\x18"
                x "\x05"
                x "\x18\x18\x01"
                x "\x05"
                x "\x06\x05"
                x "\x03\x03"
                x "1\r\x02"
                x "\x03\x03\x06"
                x "\x05"
                x "\x02\x02\x02\"1234567-1234567-1234567\r\x02"
                x "123\r\x02"
                x "\x152\x0f"
                x "\x0e\"1234567-1234567-1234567\r\x02"
                x "123\r\x02"
                x "\x06\x06w8\r"
                x "\x02\x02\"1234567\r"
                x "\x0e\x02w5\r"
                x))
  ;;Cell formulas
  (fset 'ses-exercise-formulas
        (concat y "\e:(revert-buffer t t)\r"
                x "\t\t"
                x "\t"
                x "(* B1 B2 D1\r\x02"
                x "(* B2 B3\r\x02"
                x "\x0e(apply '+ (ses-range B1 B3)\r\x02"
                x "(apply 'ses+ (ses-range B1 B3)\r\x02"
                x "\x0e(apply 'ses+ (ses-range A2 A3)\r\x02"
                x "\x0e(mapconcat'number-to-string(ses-range B2 B4) \"-\"\r\x02"
                x "\x02(apply 'concat (reverse (ses-range A3 D3))\r\x02"
                x "\x02(* (+ A2 A3) (ses+ B2 B3)\r\x02"
                x "\x0e"
                x "\x152\x0f"
                x "\x155\t"
                x "\x10(apply 'ses+ (ses-range E1 E2)\r\x02"
                x "\x10(apply 'ses+ (ses-range A5 B5)\r\x02"
                x "\x10(apply 'ses+ (ses-range E1 F1)\r\x02"
                x "\x10(apply 'ses+ (ses-range D1 E1)\r\x02"
                x "\t"
                x "(ses-average (ses-range A2 A5)\r\x02"
                x "\x0e(apply 'ses+ (ses-range A5 A6)\r\x02"
                x "\x02\x02\ek"
                x "\x0e\x0e\v"
                x "\x10\x10\x10\x0f"
                x "\x0e\x152\x0f"
                x "\x10\x153\v"
                x "\x02\x02\x02\eo"
                x "\x06\x152\eo"
                x "\x02\x153\ek"
                x "\x06(ses-average (ses-range B3 E3)\r\x02"
                x "\x02\ek"
                x "\x0e\x1012345678\r\x02"
                x))
  ;;Recalculating and reconstructing
  (fset 'ses-exercise-recalc
        (concat y "\e:(revert-buffer t t)\r"
                x "\x03\e\f"
                x "\t\t"
                x "\x03\x03"
                x "(/ 1 0\r\x02"
                x "\x03\x03"
                x "\n"
                x "\x03\x03"
                x "\x03\x10\"%.6g\"\r"
                x "\x03\e\f"
                x "\e>\x18nw\x06\x06\x06"
                x "\0\e>\exdelete-region\r"
                x "\x03\e\f"
                x "\x158\x0e"
                x "\0\e>\exdelete-region\r"
                x "\x03\e\f"
                x "\x03\x0e"
                x "\x0e\v\x02\ek"
                x "\x03\f"
                x "\x02\"Very long\r"
                x "\x10\x03\x14"
                x "\x02\r\r"
                x "\x0e\x03\x14"
                x "\x06\eo"
                x "\x06\x03\x14"
                x "\x02\x02\"Very long2\r"
                x "\x02\eo\x06"
                x "\x03\x14"
                x "\r\x7f\x7f\x7fC3\r"
                x "\x0e\r\x7f\x7f\x7fC2\r"
                x "\x10\0\x0e\x06\x03\x03"
                x "\r\x7f\x7fC4\r"
                x "\x0e\x0e\r\x7f\x7f\x7fC2\r"
                x "\x06\0\x02\x10\x10"
                x "\x03\x03"
                x "\exses-mode\r"
                x "\e<\x0f"
                x "\x152\ek"
                x))
  ;;Header line
  (fset 'ses-exercise-header-row
        (concat y "\e:(revert-buffer t t)\r"
                x "\x18<"
                x "\x18>"
                x "\x156\x18<"
                x "\x18>"
                x "\x157\x18<"
                x "\x18>"
                x "\x158\x18<"
                x "\x152\x18<"
                x "\x18>"
                x "\x06\x153w\x02"
                x "\x1510\x18<"
                x "\x18>"
                x "\x152\v"
                x))
  ;;Detecting unsafe formulas and printers
  (fset 'ses-exercise-unsafe
        (concat y "\e:(revert-buffer t t)\r"
                x "p(lambda (x) (delete-file x))\rn"
                x "p(lambda (x) (delete-file \"ses-nothing\"))\ry"
                x "\0\x06\x17\x19n"
                x "\x0e(delete-file \"x\"\rn"
                x "(delete-file \"ses-nothing\"\ry\x02"
                x "\0\x06\x17\x19n"
                x "(open-network-stream \"x\" nil \"localhost\" \"smtp\"\ry\x02"
                x "\0\x06\x17\x19n"
                x))
  ;;Inserting and deleting rows
  (fset 'ses-exercise-rows
        (concat y "\e:(revert-buffer t t)\r"
                x "\x0e\x06"
                x "\x03\x10\"%s=\"\r"
                x "\x1520\x0f"
                x "\ep\"%s+\"\r"
                x "\x0e\x0f"
                x "123456789\r\x02"
                x "\0\x1521\x0e\x06"
                x "\x03\x03"
                x "\e\f"
                x "\x10\x10(not B25\r\x02"
                x "\x0e\ek"
                x "jA3\r"
                x "\x1519\v"
                x "\x10\x06\v"
                x "\x15100\x0f"  ;Make this approx your CPU speed in MHz
                x))
  ;;Inserting and deleting columns
  (fset 'ses-exercise-columns
        (concat y "\e:(revert-buffer t t)\r"
                x "\x03\x10\"%s@\"\r"
                x "\eo"
                x "\x0f"
                x "\eo"
                x "\v"
                x "\ek"
                x "w8\r"
                x "\ep\"%.7s*\"\r"
                x "\eo"
                x "\x06"
                x "\x152\eo"
                x "\x153\ek"
                x "\x03\x10\"%.6g\"\r"
                x "\x1526\eo"
                x "\0\x1526\t"
                x "\x1526\eo"
                x "\x03\e\b0\r"
                x "\x1526\t"
                x "\x15400\x02"
                x "\x1550\ek"
                x "\0\x0e\x0e\x06\x06\x03\e\x13D"
                x))
  (fset 'ses-exercise-editing
        (concat y "\e:(revert-buffer t t)\r"
                x "\x0e\x0e\x0e1\r\x02"
                x "\x06(\x02'\x06x\r\x02"
                x "\x02\x10\x10\x10\x0f"
                x "\x1f"
                x "\r\r"
                x "w9\r"
                x "\x0e\r\x02.5\r"
                x "\x0e\x06\r\x02 10\r"
                x "w12\r"
                x "\r\x01'\r"
                x "\r\x01\x04\r"
                x "jA4\r"
                x "(+ A2 100\r\x02"
                x "\x10\x103\r\x02"
                x "jB1\r"
                x "(not A1\r\x02"
                x "\x02\"Very long\r\x02"
                x "\x03\x03"
                x "\eh"
                x "\eH"
                x "\x03\x03"
                x "\e>\t"
                x "\x10\x10\x04"
                x "\x10\x04"
                x "\x06\x06\x152\x7f"
                x "\x10\x7f"
                x "\eo"
                x "\eh"
                x "\0\x0f\x06"
                x "\"Also very long\r\x02"
                x "\x0e\x06\eH"
                x "\0'\r\x02"
                x "'Trial\r\x02"
                x "\x0e\x02'qwerty\r\x02"
                x "\x06(concat \x18o\e<\0\x0e\x0e"
                x "\x15-1\x18o\x03\x12\r\x02"
                x "(apply '+ \x18o\e<\0\x0e\x06\x15-1\x18o\x03\x13\r\x02"
                x "\x10\x152\x7f"
                x "\x15-2\x7f"
                x "\x15-2\x04"
                x "\x152\x04"
                x "\x02\x10\x10\v"
                x "\x0e\x06\eH"
                x "\x02\x10\0\x0f"
                x "\"Another long one\r\x02"
                x "\x0e\x0e\x06\eH"
                x "\x01\x10\x05"
                x "\x03\x03\e<"
                x "\x0e\x05"
                x "\e>\x10\x0f"
                x "\0\x05\x06\x05"
                x))
  ;;Sorting of columns
  (fset 'ses-exercise-sort-column
        (concat y "\e:(revert-buffer t t)\r"
                x "\"Very long\r"
                x "\x0699\r"
                x "\x06\eo13\r"
                x "(+ A3 B3\r"
                x "7\r8\r(* A4 B4\r"
                x "\0\x10\x10\x10\x03\e\x13A\r"
                x "\x0e\0\x10\x10\x10\x03\e\x13B\r"
                x "\x10\x10\x06\0\x0e\x0e\x06\x06\x03\e\x13C\r"
                x "\x06\eo\x10\x0f"
                x "\x02\0\x0e\x0e\x0e\x15\x03\e\x13C\r"
                x))
  ;;Simple cell printers
  (fset 'ses-exercise-cell-printers
        (concat y "\e:(revert-buffer t t)\r"
                x "\x06\"4\x11\t76\r\x02"
                x "\"4\x11\n7\r\x02"
                x "p\"{%S}\"\r"
                x "p(\"[%s]\")\r"
                x "p(\"<%s>\")\r"
                x "\x02\0\x06\x06"
                x "p\r"
                x "pnil\r"
                x "pses-dashfill\r"
                x "48\r\x02"
                x "\t"
                x "\x02\0\x06p\r"
                x "\x06p\r"
                x "pses-dashfill\r"
                x "\x02\0\x06\x06pnil\r"
                x "5\r\x02"
                x "pses-center\r"
                x "\x03\x10\"%s\"\r"
                x "w8\r"
                x "\ep\r"
                x "\ep\"%.7g@\"\r"
                x "\x03\x10\r"
                x "\x03\x10\"%.6g#\"\r"
                x "\x03\x10\"%.6g.\"\r"
                x "\x03\x10\"%.6g.\"\r"
                x "\epidentity\r"
                x "6\r\x02"
                x "\x0e\"UPCASE\r\x02"
                x "\epdowncase\r"
                x "(* 3 4\r\x02"
                x "p(lambda\x11 (x)\x11 '(\"Hi\"))\r"
                x "p(lambda\x11 (x)\x11 '(\"Bye\"))\r"
                x))
  ;;Spanning cell printers
  (fset 'ses-exercise-spanning-printers
        (concat y "\e:(revert-buffer t t)\r"
                x "\ep\"%.6g*\"\r"
                x "pses-dashfill-span\r"
                x "5\r\x02"
                x "pses-tildefill-span\r"
                x "\"4\r\x02"
                x "\ep\"$%s\"\r"
                x "\ep(\"$%s\")\r"
                x "8\r\x02"
                x "\ep(\"!%s!\")\r"
                x "\t\"12345678\r\x02"
                x "pses-dashfill-span\r"
                x "\"23456789\r\x02"
                x "\t"
                x "(not t\r\x02"
                x "\x02w6\r"
                x "\"5\r\x02"
                x "\x0e\x06\eo"
                x "\ek"
                x "\ek"
                x "\t"
                x "\x02\x10\x03\x03"
                x "\eo"
                x "\x0e\x152\ek"
                x "\x02\x02\ek"
                x))
  ;;Cut/copy/paste - within same buffer
  (fset 'ses-exercise-paste-1buf
        (concat y "\e:(revert-buffer t t)\r"
                x "\x0e\0\x06\ew"
                x "\x03\x03\x10\x06\x19"
                x "\x0e\eo"
                x "\"middle\r\x02"
                x "\0\x06\x0e\x06"
                x "\ew"
                x "\x10\0\x06"
                x "\ew"
                x "\x03\x03\x06\x0e"
                x "\x19"
                x "\x152\x19y"
                x "\x06\x15\x19y"
                x "\x10\x10\x06\x15\x19y"
                x "\e>"
                x "\x19y"
                x "\e>\x19y"
                x "\e<"
                x "p\"<%s>\"\r"
                x "\x06pses-dashfill\r"
                x "\x02\0\x06\x06\x06\x0e\x0e\x0e"
                x "\x17"
                x "\x1f"
                x "\x15\x19y"
                x "\r\0\x02\x02\x02\ew"
                x "\r\x06\x19"
                x "\x153\x10(+ G2 H1\r"
                x "\0\x02\ew"
                x "\x03\x03\e>\x02"
                x "\x19"
                x "\x02\x158\x10(ses-average (ses-range G2 H2)\r\x02"
                x "\0\x06\x17\ek"
                x "\x157\x0e"
                x "\x19"
                x "\x10\x02(ses-average (ses-range E7 E9)\r\x02"
                x "\0\x06\x17\v"
                x "\x0e\x19"
                x "\x02\x02\x10(ses-average (ses-range E7 F7)\r\x02"
                x "\0\x06\x17\ek"
                x "\x06\x19"
                x "\x02\x02\x10(ses-average (ses-range D6 E6)\r\x02"
                x "\0\x06\x17\ek"
                x "\x06\x19"
                x "\x01\x152\x0f"
                x "\"Line A\r\x02"
                x "pses-tildefill-span\r"
                x "\x0e\x06\"Subline A(1)\r\x02"
                x "pses-dashfill-span\r"
                x "\x02\x10\0\x0e\x0e\x0e\ew\x03\x03"
                x "\x01\x10\x10\x10\x10\x10\x10"
                x "\x19"
                x "\0\x0e\x06\x06\ew\x03\x03"
                x "\x06\x19"
                x))
  ;;Cut/copy/paste - between two buffers
  (fset 'ses-exercise-paste-2buf
        (concat y "\e:(revert-buffer t t)\r"
                x "\x06\x0e\eo\"middle\r\x02\0\x06\x0e\x06"
                x "\x17"
                x "\x184bses-test.txt\r"
                x " \x01\x19"
                x "\x05\"xxx\0\x02\x02\x02\x02"
                x "\ew\x18o"
                x "\x1f"
                x "\x19"
                x "\x18o\x05\"\0\x02\x02\x02\x02\x02"
                x "\ew\x18o\x19"
                x "\x18o123.45\0\x02\x02\x02\x02\x02\x02"
                x "\x17\x18o\x19"
                x "\x18o1 \x02\x02\0\x06\x06\x06\x06\x06\x06\x06"
                x "\x17\x18o\x19"
                x "\e>\x19y"
                x "\x06\x18o symb\0\x02\x02\x02\x02"
                x "\x17\x18o\x15\x19\ey\x152\ey"
                x "\x18o1\t\0\x02\x02"
                x "\x17\x18o\x02\x19"
                x "w9\n\ep\"<%s>\"\n"
                x "\x18o\n2\t\"3\nxxx\t5\n\0\x10\x10"
                x "\x17\x18o\x19y"
                x))
  ;;Export text, import it back
  (fset 'ses-exercise-import-export
        (concat y "\e:(revert-buffer t t)\r"
                x "\x0e\x0e\x06\0\x06xt"
                x "\x184bses-test.txt\r"
                x "\n\x19\x15-1\x18o"
                x "xT\x18o\x19\x15-1\x18o"
                x "\x03\x03\x06'crunch\r\x02"
                x "\x10\x10\x10pses-center-span\r"
                x "\0\x0e\x0e\x0e\x0exT"
                x "\x18o\n\x19\x15-1\x18o"
                x "\0\x19y"
                x "\x06\0\x02\x10\x10xt"
                x "\x0e\x0e\0\x15\x19y"
                x "12345678\r\x02"
                x "\x06\x06'bunch\r"
                x "\0\x10\x10xtxT"
                x)))

(defun ses-exercise-macros ()
  "Executes all SES coverage-test macros."
  (dolist (x '(ses-exercise-example
               ses-exercise-new
               ses-exercise-display
               ses-exercise-formulas
               ses-exercise-recalc
               ses-exercise-header-row
               ses-exercise-unsafe
               ses-exercise-rows
               ses-exercise-columns
               ses-exercise-editing
               ses-exercise-sort-column
               ses-exercise-cell-printers
               ses-exercise-spanning-printers
               ses-exercise-paste-1buf
               ses-exercise-paste-2buf
               ses-exercise-import-export))
    (message "<Testing %s>" x)
    (execute-kbd-macro x)))

(defun ses-exercise-signals ()
  "Exercise code paths that lead to error signals, other than those for
spreadsheet files with invalid formatting."
  (message "<Checking for expected errors>")
  (switch-to-buffer "ses-test.ses")
  (deactivate-mark)
  (ses-jump 'A1)
  (ses-set-curcell)
  (dolist (x '((ses-column-widths 14)
               (ses-column-printers "%s")
               (ses-column-printers ["%s" "%s" "%s"]) ;Should be two
               (ses-column-widths [14])
               (ses-delete-column -99)
               (ses-delete-column 2)
               (ses-delete-row -1)
               (ses-goto-data 'hogwash)
               (ses-header-row -56)
               (ses-header-row 99)
               (ses-insert-column -14)
               (ses-insert-row 0)
               (ses-jump 'B8) ;Covered by preceding cell
               (ses-printer-validate '("%s" t))
               (ses-printer-validate '([47]))
               (ses-read-header-row -1)
               (ses-read-header-row 32767)
               (ses-relocate-all 0 0 -1 1)
               (ses-relocate-all 0 0 1 -1)
               (ses-select (ses-range A1 A2) 'x (ses-range B1 B1))
               (ses-set-cell 0 0 'hogwash nil)
               (ses-set-column-width 0 0)
               (ses-yank-cells #("a\nb"
                                 0 1 (ses (A1 nil nil))
                                 2 3 (ses (A3 nil nil)))
                               nil)
               (ses-yank-cells #("ab"
                                 0 1 (ses (A1 nil nil))
                                 1 2 (ses (A2 nil nil)))
                               nil)
               (ses-yank-pop nil)
               (ses-yank-tsf "1\t2\n3" nil)
               (let ((curcell nil)) (ses-check-curcell))
               (let ((curcell 'A1)) (ses-check-curcell 'needrange))
               (let ((curcell '(A1 . A2))) (ses-check-curcell 'end))
               (let ((curcell '(A1 . A2))) (ses-sort-column "B"))
               (let ((curcell '(C1 . D2))) (ses-sort-column "B"))
               (execute-kbd-macro "jB10\n\x152\x04")
               (execute-kbd-macro [?j ?B ?9 ?\n ?\C-@ ?\C-f ?\C-f cut])
               (progn (kill-new "x") (execute-kbd-macro "\e>\x19n"))
               (execute-kbd-macro "\x02\0\ew")))
    (condition-case nil
        (progn
          (eval x)
          (signal 'singularity-error nil)) ;Shouldn't get here
      (singularity-error (error "No error from %s?" x))
      (error nil)))
  ;;Test quit-handling in ses-update-cells.  Cant' use `eval' here.
  (let ((inhibit-quit t))
    (setq quit-flag t)
    (condition-case nil
        (progn
          (ses-update-cells '(A1))
          (signal 'singularity-error nil))
      (singularity-error (error "Quit failure in ses-update-cells"))
      (error nil))
    (setq quit-flag nil)))

(defun ses-exercise-invalid-spreadsheets ()
  "Execute code paths that detect invalid spreadsheet files."
  ;;Detect invalid spreadsheets
  (let ((p&d "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n")
        (cw  "(ses-column-widths [7])\n")
        (cp  "(ses-column-printers [ses-center])\n")
        (dp  "(ses-default-printer \"%.7g\")\n")
        (hr  "(ses-header-row 0)\n")
        (p11 "(2 1 1)")
        (igp ses-initial-global-parameters))
    (dolist (x (list "(1)"
                     "(x 2 3)"
                     "(1 x 3)"
                     "(1 -1 0)"
                     "(1 2 x)"
                     "(1 2 -1)"
                     "(3 1 1)"
                     "\n\n\f(2 1 1)"
                     "\n\n\f\n(ses-cell)(2 1 1)"
                     "\n\n\f\n(x)\n(2 1 1)"
                     "\n\n\n\f\n(ses-cell A2)\n(2 2 2)"
                     "\n\n\n\f\n(ses-cell B1)\n(2 2 2)"
                     "\n\n\f\n(ses-cell A1 nil nil nil nil)\n(2 1 1)"
                     (concat p&d "(x)\n(x)\n(x)\n(x)\n" p11)
                     (concat p&d "(ses-column-widths)(x)\n(x)\n(x)\n" p11)
                     (concat p&d cw "(x)\n(x)\n(x)\n(2 1 1)")
                     (concat p&d cw "(ses-column-printers)(x)\n(x)\n" p11)
                     (concat p&d cw cp "(x)\n(x)\n" p11)
                     (concat p&d cw cp "(ses-default-printer)(x)\n" p11)
                     (concat p&d cw cp dp "(x)\n" p11)
                     (concat p&d cw cp dp "(ses-header-row)" p11)
                     (concat p&d cw cp dp hr p11)
                     (concat p&d cw cp dp "\n" hr igp)))
      (condition-case nil
          (with-temp-buffer
            (insert x)
            (ses-load)
            (signal 'singularity-error nil)) ;Shouldn't get here
        (singularity-error (error "%S is an invalid spreadsheet!" x))
        (error nil)))))

(defun ses-exercise-startup ()
  "Prepare for coverage tests"
  ;;Clean up from any previous runs
  (condition-case nil (kill-buffer "ses-example.ses") (error nil))
  (condition-case nil (kill-buffer "ses-test.ses") (error nil))
  (condition-case nil (delete-file "ses-test.ses") (file-error nil))
  (delete-other-windows) ;Needed for "\C-xo" in ses-exercise-editing
  (setq ses-mode-map nil) ;Force rebuild
  (testcover-unmark-all "ses.el")
  ;;Enable
  (let ((testcover-1value-functions
         ;;forward-line always returns 0, for us.
         ;;remove-text-properties always returns t for us.
         ;;ses-recalculate-cell returns the same " " any time curcell is a cons
         ;;Macros ses-dorange and ses-dotimes-msg generate code that always
         ;;  returns nil
         (append '(forward-line remove-text-properties ses-recalculate-cell
                   ses-dorange ses-dotimes-msg)
                 testcover-1value-functions))
        (testcover-constants
         ;;These maps get initialized, then never changed again
         (append '(ses-mode-map ses-mode-print-map ses-mode-edit-map)
                 testcover-constants)))
    (testcover-start "ses.el" t))
  (require 'unsafep)) ;In case user has safe-functions = t!


;;;#########################################################################
(defun ses-exercise ()
  "Executes all SES coverage tests and displays the results."
  (interactive)
  (ses-exercise-startup)
  ;;Run the keyboard-macro tests
  (let ((safe-functions nil)
        (ses-initial-size '(1 . 1))
        (ses-initial-column-width 7)
        (ses-initial-default-printer "%.7g")
        (ses-after-entry-functions '(forward-char))
        (ses-mode-hook nil))
    (ses-exercise-macros)
    (ses-exercise-signals)
    (ses-exercise-invalid-spreadsheets)
    ;;Upgrade of old-style spreadsheet
    (with-temp-buffer
      (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")
      (ses-load))
    ;;ses-vector-delete is always called from buffer-undo-list with the same
    ;;symbol as argument.  We'll give it a different one here.
    (let ((x [1 2 3]))
      (ses-vector-delete 'x 0 0))
    ;;ses-create-header-string behaves differently in a non-window environment
    ;;but we always test under windows.
    (let ((window-system (not window-system)))
      (scroll-left 7)
      (ses-create-header-string))
    ;;Test for nonstandard after-entry functions
    (let ((ses-after-entry-functions '(forward-line))
          ses-mode-hook)
      (ses-read-cell 0 0 1)
      (ses-read-symbol 0 0 t)))
  ;;Tests with unsafep disabled
  (let ((safe-functions t)
        ses-mode-hook)
    (message "<Checking safe-functions = t>")
    (kill-buffer "ses-example.ses")
    (find-file "ses-example.ses"))
  ;;Checks for nonstandard default values for new spreadsheets
  (let (ses-mode-hook)
    (dolist (x '(("%.6g" 8 (2 . 2))
                 ("%.8g" 6 (3 . 3))))
      (let ((ses-initial-size            (nth 2 x))
            (ses-initial-column-width    (nth 1 x))
            (ses-initial-default-printer (nth 0 x)))
        (with-temp-buffer
          (set-buffer-modified-p t)
          (ses-mode)))))
  ;;Test error-handling in command hook, outside a macro.
  ;;This will ring the bell.
  (let (curcell-overlay)
    (ses-command-hook))
  ;;Due to use of run-with-timer, ses-command-hook sometimes gets called
  ;;after we switch to another buffer.
  (switch-to-buffer "*scratch*")
  (ses-command-hook)
  ;;Print results
  (message "<Marking source code>")
  (testcover-mark-all "ses.el")
  (testcover-next-mark)
  ;;Cleanup
  (delete-other-windows)
  (kill-buffer "ses-test.txt")
  ;;Could do this here: (testcover-end "ses.el")
  (message "Done"))

;; testcover-ses.el ends here.