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.

diff --git a/test/src/charset-tests.el b/test/src/charset-tests.el
index 01a68c21a526c45633c47be7aa2ebd2ad09b5b89..9a1d0a46f91455142cf60e1c3bbc37a8d7179525 100644 (file)
--- a/test/src/charset-tests.el
+++ b/test/src/charset-tests.el
@@ -1,4 +1,4 @@
-;;; charset-tests.el --- Tests for charset.c
+;;; charset-tests.el --- Tests for charset.c -*- lexical-binding: t -*-
 
 ;; Copyright 2017-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/chartab-tests.el b/test/src/chartab-tests.el
index da320e33b5144ec2a91ab1b52cbbfe39f3c61a78..0ddea2b338c41c87028dbe28fb8a8842281aff6f 100644 (file)
--- a/test/src/chartab-tests.el
+++ b/test/src/chartab-tests.el
@@ -1,4 +1,4 @@
-;;; chartab-tests.el --- Tests for char-tab.c
+;;; chartab-tests.el --- Tests for char-tab.c -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2016-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/cmds-tests.el b/test/src/cmds-tests.el
index 8604d3461094b99a47a0df1b45e1786e4e57d7ed..e98e5784609577f396c0f4669ff600d2f074130a 100644 (file)
--- a/test/src/cmds-tests.el
+++ b/test/src/cmds-tests.el
@@ -1,4 +1,4 @@
-;;; cmds-tests.el --- Testing some Emacs commands
+;;; cmds-tests.el --- Testing some Emacs commands -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2013-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/coding-tests.el b/test/src/coding-tests.el
index a741e233d39f8a7ea33f117da05155e5759d1c18..c438ae22ce3b0cb17de662ada5f410e3aa37aaa0 100644 (file)
--- a/test/src/coding-tests.el
+++ b/test/src/coding-tests.el
@@ -1,4 +1,4 @@
-;;; coding-tests.el --- tests for text encoding and decoding
+;;; coding-tests.el --- tests for text encoding and decoding -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2013-2020 Free Software Foundation, Inc.
 
@@ -296,7 +296,7 @@
 ;;; decoder, not for regression testing.
 
 (defun generate-ascii-file ()
-  (dotimes (i 100000)
+  (dotimes (_i 100000)
     (insert-char ?a 80)
     (insert "\n")))
 
@@ -309,13 +309,13 @@
     (insert "\n")))
 
 (defun generate-mostly-nonascii-file ()
-  (dotimes (i 30000)
+  (dotimes (_i 30000)
     (insert-char ?a 80)
     (insert "\n"))
-  (dotimes (i 20000)
+  (dotimes (_i 20000)
     (insert-char ?À 80)
     (insert "\n"))
-  (dotimes (i 10000)
+  (dotimes (_i 10000)
     (insert-char ?あ 80)
     (insert "\n")))
 

diff --git a/test/src/decompress-tests.el b/test/src/decompress-tests.el
index 46fd26635c9dc4d4bce297734b3c4923d742d776..0a328396818cf268f9fc43d41b3c6f73e825b718 100644 (file)
--- a/test/src/decompress-tests.el
+++ b/test/src/decompress-tests.el
@@ -1,4 +1,4 @@
-;;; decompress-tests.el --- Test suite for decompress.
+;;; decompress-tests.el --- Test suite for decompress. -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2013-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/doc-tests.el b/test/src/doc-tests.el
index b6026e79c653a98731bdaa22a3a1f6c7f00abbce..50cf0144b807d0bf3f91651f2ec5d38c17a0a751 100644 (file)
--- a/test/src/doc-tests.el
+++ b/test/src/doc-tests.el
@@ -1,4 +1,4 @@
-;;; doc-tests.el --- Tests for doc.c
+;;; doc-tests.el --- Tests for doc.c -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2016-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/floatfns-tests.el b/test/src/floatfns-tests.el
index c1c2c8996a7c21fa7e5e086151663806a590de86..8c56674d4fd6e7b3457bc455359980dd9d174b64 100644 (file)
--- a/test/src/floatfns-tests.el
+++ b/test/src/floatfns-tests.el
@@ -1,4 +1,4 @@
-;;; floatfns-tests.el --- tests for floating point operations
+;;; floatfns-tests.el --- tests for floating point operations -*- lexical-binding: t -*-
 
 ;; Copyright 2017-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/font-tests.el b/test/src/font-tests.el
index 73c2846b0326b19b685c82a24f543b8b69cd9c6d..cfc6f4c31b749c7240396e958e73ee202ea043c2 100644 (file)
--- a/test/src/font-tests.el
+++ b/test/src/font-tests.el
@@ -1,4 +1,4 @@
-;;; font-tests.el --- Test suite for font-related functions.
+;;; font-tests.el --- Test suite for font-related functions. -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2011-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el
index dbf0a7d12290edf30485dfac766b3b143d4b4a5f..75f8c0f092ed4192d5f46084e0735b7b2209511a 100644 (file)
--- a/test/src/keymap-tests.el
+++ b/test/src/keymap-tests.el
@@ -1,4 +1,4 @@
-;;; keymap-tests.el --- Test suite for src/keymap.c
+;;; keymap-tests.el --- Test suite for src/keymap.c -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2015-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/process-tests.el b/test/src/process-tests.el
index 66a76fd33b8c805fc997785541226ec32abc2ba5..748afe41d2c9b13bb245812a33a99b32774dbb8d 100644 (file)
--- a/test/src/process-tests.el
+++ b/test/src/process-tests.el
@@ -1,4 +1,4 @@
-;;; process-tests.el --- Testing the process facilities
+;;; process-tests.el --- Testing the process facilities -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2013-2020 Free Software Foundation, Inc.
 
@@ -33,7 +33,7 @@
   (let ((proc (start-process "test" nil "bash" "-c" "exit 20"))
        (sentinel-called nil)
        (start-time (float-time)))
-    (set-process-sentinel proc (lambda (proc msg)
+    (set-process-sentinel proc (lambda (_proc _msg)
                                 (setq sentinel-called t)))
     (while (not (or sentinel-called
                    (> (- (float-time) start-time)
@@ -88,7 +88,7 @@
                             :stderr stderr-buffer))
         (sentinel-called nil)
         (start-time (float-time)))
-    (set-process-sentinel proc (lambda (proc msg)
+    (set-process-sentinel proc (lambda (_proc _msg)
                                 (setq sentinel-called t)))
     (while (not (or sentinel-called
                    (> (- (float-time) start-time)
@@ -120,13 +120,13 @@
                                                    "exit 20"))
                             :stderr stderr-proc))
         (start-time (float-time)))
-    (set-process-filter proc (lambda (proc input)
+    (set-process-filter proc (lambda (_proc input)
                               (push input stdout-output)))
-    (set-process-sentinel proc (lambda (proc msg)
+    (set-process-sentinel proc (lambda (_proc _msg)
                                 (setq sentinel-called t)))
-    (set-process-filter stderr-proc (lambda (proc input)
+    (set-process-filter stderr-proc (lambda (_proc input)
                                      (push input stderr-output)))
-    (set-process-sentinel stderr-proc (lambda (proc input)
+    (set-process-sentinel stderr-proc (lambda (_proc _input)
                                        (setq stderr-sentinel-called t)))
     (while (not (or sentinel-called
                    (> (- (float-time) start-time)

diff --git a/test/src/textprop-tests.el b/test/src/textprop-tests.el
index 7333444df0b41b906b827e1a27844b050856291a..365d2c7a7b7c016f0bfac991a702f0f74f4f9c9d 100644 (file)
--- a/test/src/textprop-tests.el
+++ b/test/src/textprop-tests.el
@@ -1,4 +1,4 @@
-;;; textprop-tests.el --- Test suite for text properties.
+;;; textprop-tests.el --- Test suite for text properties. -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2015-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el
index 5d85fc74e50f0773eb39d12bbbd9790a2aa0f7d0..df34a2b66ebb4defeea25d217c993ab6d1aebab3 100644 (file)
--- a/test/src/thread-tests.el
+++ b/test/src/thread-tests.el
@@ -1,4 +1,4 @@
-;;; threads.el --- tests for threads.
+;;; threads.el --- tests for threads. -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2012-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/timefns-tests.el b/test/src/timefns-tests.el
index b24d44335e576c1dcec2736f55f37fd2356c1963..51dd1d1aeb5bfdfe9f11da1ee1f92691f24e86d0 100644 (file)
--- a/test/src/timefns-tests.el
+++ b/test/src/timefns-tests.el
@@ -1,4 +1,4 @@
-;;; timefns-tests.el -- tests for timefns.c
+;;; timefns-tests.el -- tests for timefns.c -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2016-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/undo-tests.el b/test/src/undo-tests.el
index 995e4365e128460d5ae81774595d990859b619ea..13335a9bb1017da0ec404350563cb277fd385b13 100644 (file)
--- a/test/src/undo-tests.el
+++ b/test/src/undo-tests.el
@@ -1,4 +1,4 @@
-;;; undo-tests.el --- Tests of primitive-undo
+;;; undo-tests.el --- Tests of primitive-undo -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2012-2020 Free Software Foundation, Inc.
 

diff --git a/test/src/xml-tests.el b/test/src/xml-tests.el
index 02a52e9115d2dec597cbdf70fc15e42f567bf3de..d758c8868cf83f0f8a0422db8eff18ba76818b05 100644 (file)
--- a/test/src/xml-tests.el
+++ b/test/src/xml-tests.el
@@ -1,4 +1,4 @@
-;;; libxml-parse-tests.el --- Test suite for libxml parsing.
+;;; xml-tests.el --- Test suite for libxml parsing. -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2014-2020 Free Software Foundation, Inc.