; Fix typos

2 files changed, 3 insertions, 3 deletions

diff --git a/test/lisp/progmodes/cperl-mode-resources/extra-delimiters.pl b/test/lisp/progmodes/cperl-mode-resources/extra-delimiters.pl
index 8d2f6397e9d..4c59ad6249a 100644
--- a/test/lisp/progmodes/cperl-mode-resources/extra-delimiters.pl
+++ b/test/lisp/progmodes/cperl-mode-resources/extra-delimiters.pl
@@ -8,7 +8,7 @@ print $string_with_strange_delimiters;
 $printed = 1;
 
 # With cperl-extra-delimiters-mode=on the previous lines are a label
-# and a a print statement.  This line here is a comment.  Without
+# and a print statement.  This line here is a comment.  Without
 # cperl-extra-delimiters-mode, all this is part of the variable
 # declaration.
 
diff --git a/test/lisp/ses-tests.el b/test/lisp/ses-tests.el
index a916aed9eb3..3ca1297f5ec 100644
--- a/test/lisp/ses-tests.el
+++ b/test/lisp/ses-tests.el
@@ -201,7 +201,7 @@ to `ses--bar' and inserting a row, makes A2 value empty, and `ses--bar' equal to
 
 
 (ert-deftest ses-jump-B2-lowcase ()
-  "Test jumping to cell B2 by use of lowcase cell name string"
+  "Test jumping to cell B2 by use of lowercase cell name string"
     (let ((ses-initial-size '(3 . 3))
           ses-after-entry-functions)
       (with-temp-buffer
@@ -211,7 +211,7 @@ to `ses--bar' and inserting a row, makes A2 value empty, and `ses--bar' equal to
         (should (eq (ses--cell-at-pos (point)) 'B2)))))
 
 (ert-deftest ses-jump-B2-lowcase-keys ()
-  "Test jumping to cell B2 by use of lowcase cell name string with simulating keys"
+  "Test jumping to cell B2 by use of lowercase cell name string with simulating keys"
     (let ((ses-initial-size '(3 . 3))
           ses-after-entry-functions)
       (with-temp-buffer