annotate lisp/emacs-lisp/tcover-ses.el @ 112295:2108d829c749

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