diff options
| author | Stefan Kangas | 2020-04-24 15:28:22 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2020-04-24 18:25:13 +0200 |
| commit | c52f8863a536c003980c8fcc24dfb48dfb2353a8 (patch) | |
| tree | 4f446aae70a45ac44f61f42dcf47d27b28c8696e /test/src/coding-tests.el | |
| parent | 85fb94273375fe793ced4404ade6392e38b4c381 (diff) | |
| download | emacs-c52f8863a536c003980c8fcc24dfb48dfb2353a8.tar.gz emacs-c52f8863a536c003980c8fcc24dfb48dfb2353a8.zip | |
Use lexical-binding in most src tests
* test/src/charset-tests.el:
* test/src/chartab-tests.el:
* test/src/cmds-tests.el:
* test/src/coding-tests.el (top-level)
(generate-ascii-file, generate-mostly-nonascii-file):
* test/src/doc-tests.el:
* test/src/floatfns-tests.el:
* test/src/font-tests.el:
* test/src/keymap-tests.el:
* test/src/process-tests.el (top-level)
(process-test-sentinel-wait-function-working-p)
(process-test-stderr-buffer, process-test-stderr-filter):
* test/src/textprop-tests.el:
* test/src/thread-tests.el:
* test/src/timefns-tests.el:
* test/src/undo-tests.el:
* test/src/xml-tests.el: Use lexical-binding.
Diffstat (limited to 'test/src/coding-tests.el')
| -rw-r--r-- | test/src/coding-tests.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/src/coding-tests.el b/test/src/coding-tests.el index a741e233d39..c438ae22ce3 100644 --- a/test/src/coding-tests.el +++ b/test/src/coding-tests.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; coding-tests.el --- tests for text encoding and decoding | 1 | ;;; coding-tests.el --- tests for text encoding and decoding -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2013-2020 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2013-2020 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -296,7 +296,7 @@ | |||
| 296 | ;;; decoder, not for regression testing. | 296 | ;;; decoder, not for regression testing. |
| 297 | 297 | ||
| 298 | (defun generate-ascii-file () | 298 | (defun generate-ascii-file () |
| 299 | (dotimes (i 100000) | 299 | (dotimes (_i 100000) |
| 300 | (insert-char ?a 80) | 300 | (insert-char ?a 80) |
| 301 | (insert "\n"))) | 301 | (insert "\n"))) |
| 302 | 302 | ||
| @@ -309,13 +309,13 @@ | |||
| 309 | (insert "\n"))) | 309 | (insert "\n"))) |
| 310 | 310 | ||
| 311 | (defun generate-mostly-nonascii-file () | 311 | (defun generate-mostly-nonascii-file () |
| 312 | (dotimes (i 30000) | 312 | (dotimes (_i 30000) |
| 313 | (insert-char ?a 80) | 313 | (insert-char ?a 80) |
| 314 | (insert "\n")) | 314 | (insert "\n")) |
| 315 | (dotimes (i 20000) | 315 | (dotimes (_i 20000) |
| 316 | (insert-char ?À 80) | 316 | (insert-char ?À 80) |
| 317 | (insert "\n")) | 317 | (insert "\n")) |
| 318 | (dotimes (i 10000) | 318 | (dotimes (_i 10000) |
| 319 | (insert-char ?あ 80) | 319 | (insert-char ?あ 80) |
| 320 | (insert "\n"))) | 320 | (insert "\n"))) |
| 321 | 321 | ||