Mercurial > emacs
annotate lisp/emacs-lisp/tcover-ses.el @ 78058:431b099d4610
*** empty log message ***
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Thu, 28 Jun 2007 09:13:37 +0000 |
parents | 7a3f13e2dd57 |
children | 935157c0b596 |
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 |
75346 | 3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 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
|
4 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
5 ;; 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
|
6 ;; 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
|
7 ;; Keywords: spreadsheet lisp utility |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
8 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
9 ;; GNU Emacs is free software; you can redistribute it and/or modify |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
10 ;; it under the terms of the GNU General Public License as published by |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
11 ;; the Free Software Foundation; either version 2, or (at your option) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
12 ;; any later version. |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
13 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
14 ;; 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
|
15 ;; 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
|
16 ;; 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
|
17 ;; 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
|
18 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
19 ;; You should have received a copy of the GNU General Public License |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 21 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
22 ;; Boston, MA 02110-1301, USA. | |
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 |
53440
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
29 ;;;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
|
30 ;;;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
|
31 (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
|
32 (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
|
33 (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
|
34 ;;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
|
35 (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
|
36 (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
|
37 x "10" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
38 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
39 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
40 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
|
41 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
|
42 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
|
43 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
|
44 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
45 x "\r2\r" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
46 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
47 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
|
48 x "4" |
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 "(+ o\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
52 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
|
53 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
54 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
55 ;;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
|
56 (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
|
57 (concat y |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
58 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
|
59 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
|
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 "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
63 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
|
64 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
|
65 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
|
66 x "\t" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
67 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
|
68 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
|
69 x "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
70 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
|
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 ;;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
|
74 (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
|
75 (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
|
76 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
77 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
|
78 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
|
79 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
|
80 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
|
81 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
|
82 x "5w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
83 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
|
84 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
85 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
|
86 x "\t" |
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 "345678\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 "3w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
90 x "\0>" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
91 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
92 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
93 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
94 x "" |
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 "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
97 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
98 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
|
99 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
100 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
101 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
|
102 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
|
103 x "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
104 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
|
105 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
|
106 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
|
107 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
|
108 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
|
109 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
110 ;;Cell formulas |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
111 (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
|
112 (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
|
113 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
|
114 x "\t" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
115 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
|
116 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
|
117 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
|
118 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
|
119 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
|
120 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
|
121 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
|
122 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
|
123 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
124 x "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
125 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
|
126 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
|
127 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
|
128 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
|
129 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
|
130 x "\t" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
131 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
|
132 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
|
133 x "k" |
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 "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
136 x "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
137 x "3" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
138 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
139 x "2o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
140 x "3k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
141 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
|
142 x "k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
143 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
|
144 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
145 ;;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
|
146 (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
|
147 (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
|
148 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
149 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
|
150 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
151 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
|
152 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
153 x "\n" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
154 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
155 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
|
156 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
157 x ">nw" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
158 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
|
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 "8" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
161 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
|
162 x "" |
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 "k" |
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 "\"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
|
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 "\r\r" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
169 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
170 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
171 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
172 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
|
173 x "o" |
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 "\rC3\r" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
176 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
|
177 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
178 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
|
179 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
|
180 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
181 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
182 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
|
183 x "<" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
184 x "2k" |
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 ;;Header line |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
187 (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
|
188 (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
|
189 x "<" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
190 x ">" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
191 x "6<" |
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 "7<" |
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 "8<" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
196 x "2<" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
197 x ">" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
198 x "3w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
199 x "10<" |
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 "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
202 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
203 ;;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
|
204 (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
|
205 (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
|
206 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
|
207 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
|
208 x "\0n" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
209 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
|
210 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
|
211 x "\0n" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
212 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
|
213 x "\0n" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
214 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
215 ;;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
|
216 (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
|
217 (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
|
218 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
219 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
|
220 x "20" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
221 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
|
222 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
223 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
|
224 x "\021" |
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 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
227 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
|
228 x "k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
229 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
|
230 x "19" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
231 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
232 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
|
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 ;;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
|
235 (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
|
236 (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
|
237 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
|
238 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
239 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
240 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
241 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
242 x "k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
243 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
|
244 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
|
245 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
246 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
247 x "2o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
248 x "3k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
249 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
|
250 x "26o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
251 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
|
252 x "26o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
253 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
|
254 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
|
255 x "400" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
256 x "50k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
257 x "\0D" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
258 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
259 (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
|
260 (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
|
261 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
|
262 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
|
263 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
264 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
265 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
|
266 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
|
267 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
|
268 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
|
269 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
|
270 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
|
271 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
|
272 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
|
273 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
|
274 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
|
275 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
|
276 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
|
277 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
|
278 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
279 x "h" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
280 x "H" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
281 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
282 x ">\t" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
283 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
284 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
285 x "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
286 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
287 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
288 x "h" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
289 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
290 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
|
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 "\0'\r" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
293 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
|
294 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
|
295 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
|
296 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
|
297 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
|
298 x "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
299 x "-2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
300 x "-2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
301 x "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
302 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
303 x "H" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
304 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
305 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
|
306 x "H" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
307 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
308 x "<" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
309 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
310 x ">" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
311 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
312 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
313 ;;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
|
314 (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
|
315 (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
|
316 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
|
317 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
|
318 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
|
319 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
|
320 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
|
321 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
|
322 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
|
323 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
|
324 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
325 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
|
326 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
327 ;;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
|
328 (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
|
329 (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
|
330 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
|
331 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
|
332 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
|
333 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
|
334 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
|
335 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
336 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
|
337 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
|
338 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
|
339 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
|
340 x "\t" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
341 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
|
342 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
|
343 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
|
344 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
|
345 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
|
346 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
|
347 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
|
348 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
|
349 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
|
350 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
|
351 x "\r" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
352 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
|
353 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
|
354 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
|
355 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
|
356 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
|
357 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
|
358 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
|
359 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
|
360 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
|
361 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
|
362 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
363 ;;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
|
364 (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
|
365 (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
|
366 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
|
367 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
|
368 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
|
369 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
|
370 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
|
371 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
|
372 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
|
373 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
|
374 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
|
375 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
|
376 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
|
377 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
|
378 x "\t" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
379 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
|
380 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
|
381 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
|
382 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
383 x "k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
384 x "k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
385 x "\t" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
386 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
387 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
388 x "2k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
389 x "k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
390 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
391 ;;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
|
392 (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
|
393 (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
|
394 x "\0w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
395 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
396 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
397 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
|
398 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
399 x "w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
400 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
401 x "w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
402 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
403 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
404 x "2y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
405 x "y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
406 x "y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
407 x ">" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
408 x "y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
409 x ">y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
410 x "<" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
411 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
|
412 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
|
413 x "\0" |
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 "" |
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 "\r\0w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
418 x "\r" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
419 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
|
420 x "\0w" |
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 "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
423 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
|
424 x "\0k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
425 x "7" |
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 "(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
|
428 x "\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
429 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
430 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
|
431 x "\0k" |
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 "(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
|
434 x "\0k" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
435 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
436 x "2" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
437 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
|
438 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
|
439 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
|
440 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
|
441 x "\0w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
442 x "" |
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 "\0w" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
445 x "" |
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 ;;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
|
448 (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
|
449 (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
|
450 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
|
451 x "" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
452 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
|
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 "\"xxx\0" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
455 x "wo" |
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 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
|
459 x "wo" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
460 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
|
461 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
462 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
|
463 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
464 x ">y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
465 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
|
466 x "oy2y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
467 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
|
468 x "o" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
469 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
|
470 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
|
471 x "oy" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
472 x)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
473 ;;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
|
474 (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
|
475 (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
|
476 x "\0xt" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
477 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
|
478 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
|
479 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
|
480 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
|
481 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
|
482 x "\0xT" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
483 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
|
484 x "\0y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
485 x "\0xt" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
486 x "\0y" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
487 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
|
488 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
|
489 x "\0xtxT" |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
490 x))) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
491 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
492 (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
|
493 "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
|
494 (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
|
495 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
|
496 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
|
497 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
|
498 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
|
499 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
|
500 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
|
501 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
|
502 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
|
503 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
|
504 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
|
505 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
|
506 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
|
507 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
|
508 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
|
509 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
|
510 (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
|
511 (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
|
512 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
513 (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
|
514 "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
|
515 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
|
516 (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
|
517 (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
|
518 (deactivate-mark) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
519 (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
|
520 (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
|
521 (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
|
522 (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
|
523 (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
|
524 (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
|
525 (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
|
526 (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
|
527 (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
|
528 (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
|
529 (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
|
530 (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
|
531 (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
|
532 (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
|
533 (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
|
534 (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
|
535 (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
|
536 (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
|
537 (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
|
538 (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
|
539 (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
|
540 (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
|
541 (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
|
542 (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
|
543 (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
|
544 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
|
545 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
|
546 nil) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
547 (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
|
548 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
|
549 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
|
550 nil) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
551 (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
|
552 (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
|
553 (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
|
554 (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
|
555 (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
|
556 (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
|
557 (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
|
558 (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
|
559 (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
|
560 (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
|
561 (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
|
562 (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
|
563 (progn |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
564 (eval x) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
565 (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
|
566 (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
|
567 (error nil))) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
568 ;;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
|
569 (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
|
570 (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
|
571 (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
|
572 (progn |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
573 (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
|
574 (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
|
575 (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
|
576 (error nil)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
577 (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
|
578 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
579 (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
|
580 "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
|
581 ;;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
|
582 (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
|
583 (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
|
584 (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
|
585 (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
|
586 (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
|
587 (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
|
588 (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
|
589 (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
|
590 "(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
|
591 "(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
|
592 "(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
|
593 "(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
|
594 "(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
|
595 "(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
|
596 "\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
|
597 "\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
|
598 "\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
|
599 "\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
|
600 "\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
|
601 "\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
|
602 (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
|
603 (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
|
604 (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
|
605 (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
|
606 (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
|
607 (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
|
608 (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
|
609 (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
|
610 (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
|
611 (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
|
612 (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
|
613 (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
|
614 (insert x) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
615 (ses-load) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
616 (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
|
617 (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
|
618 (error nil))))) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
619 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
620 (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
|
621 "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
|
622 ;;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
|
623 (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
|
624 (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
|
625 (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
|
626 (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
|
627 (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
|
628 (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
|
629 ;;Enable |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
630 (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
|
631 ;;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
|
632 ;;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
|
633 ;;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
|
634 ;;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
|
635 ;; returns nil |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
636 (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
|
637 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
|
638 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
|
639 (testcover-constants |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
640 ;;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
|
641 (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
|
642 testcover-constants))) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
643 (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
|
644 (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
|
645 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
646 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
647 ;;;######################################################################### |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
648 (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
|
649 "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
|
650 (interactive) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
651 (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
|
652 ;;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
|
653 (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
|
654 (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
|
655 (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
|
656 (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
|
657 (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
|
658 (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
|
659 (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
|
660 (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
|
661 (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
|
662 ;;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
|
663 (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
|
664 (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
|
665 (ses-load)) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
666 ;;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
|
667 ;;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
|
668 (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
|
669 (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
|
670 ;;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
|
671 ;;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
|
672 (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
|
673 (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
|
674 (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
|
675 ;;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
|
676 (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
|
677 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
|
678 (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
|
679 (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
|
680 ;;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
|
681 (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
|
682 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
|
683 (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
|
684 (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
|
685 (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
|
686 ;;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
|
687 (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
|
688 (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
|
689 ("%.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
|
690 (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
|
691 (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
|
692 (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
|
693 (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
|
694 (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
|
695 (ses-mode))))) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
696 ;;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
|
697 ;;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
|
698 (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
|
699 (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
|
700 ;;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
|
701 ;;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
|
702 (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
|
703 (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
|
704 ;;Print results |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
705 (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
|
706 (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
|
707 (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
|
708 ;;Cleanup |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
709 (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
|
710 (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
|
711 ;;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
|
712 (message "Done")) |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
713 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
714 ;;; arch-tag: 87052ba4-5cf8-46cf-9375-fe245f3360b8 |
296b4cb363cc
emacs-lisp/tcover-unsafep.el, emacs-lisp/tcover-ses.el: Renamed
Eli Zaretskii <eliz@is.elta.co.il>
parents:
diff
changeset
|
715 ;; testcover-ses.el ends here. |