4 files changed, 84 insertions, 10 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index feae114f862..3b1921c5987 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,17 @@
+2010-11-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * indent/modula2.mod: New file.
+
+2010-10-27  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * indent/octave.m: Add a test to ensure indentation is local.
+
+2010-10-23  Glenn Morris  <rgm@gnu.org>
+
+        * comint-testsuite.el
+        (comint-testsuite--test-comint-password-prompt-regexp):
+        Add "Please enter the password".  (Bug#7224)
+
 2010-09-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * indent/prolog.prolog: Use normal spacing around !.
diff --git a/test/comint-testsuite.el b/test/comint-testsuite.el
index 35b946cf3da..9a4e7eae3b7 100644
--- a/test/comint-testsuite.el
+++ b/test/comint-testsuite.el
@@ -34,7 +34,8 @@
   (interactive)
   (let ((password-strings
          '("foo@example.net's password: " ;ssh
-           "Password for foo@example.org: " ; knit
+           "Password for foo@example.org: " ; kinit
+           "Please enter the password for foo@example.org: "   ; kinit
            "Kerberos password for devnull/root <at> GNU.ORG: " ; ksu
            "Enter passphrase: " ; ssh-add
            "Enter passphrase (empty for no passphrase): " ; ssh-keygen
diff --git a/test/indent/modula2.mod b/test/indent/modula2.mod
new file mode 100644
index 00000000000..f8fbcb7f4e5
--- /dev/null
+++ b/test/indent/modula2.mod
@@ -0,0 +1,53 @@
+(* -*- mode: modula-2; m2-indent:3 -*- *)
+
+IMPLEMENTATION MODULE Indent ;
+
+(* This is (* a nested comment *) *)
+// This is a single-line comment.
+
+FROM SYSTEM IMPORT ADR, TSIZE, SIZE, WORD ;
+
+CONST
+   c1 = 2;
+
+TYPE
+   t = POINTER TO ARRAY [0..10] OF LONGINT;
+
+VAR x: t;
+    y:LONGINT;
+
+
+PROCEDURE f1 (f: File) : INTEGER ;
+   VAR
+      fd: FileDescriptor ;
+   PROCEDURE foo (a:CARDINAL) : INTEGER;
+   BEGIN
+   END foo;
+BEGIN
+   IF f#Error
+   THEN
+      fd := GetIndice(FileInfo, f) ;
+      IF fd#NIL THEN
+         RETURN( fd^.unixfd )
+      ELSE
+         CASE z OF
+            1: do1();
+          | 2: do2();
+               toto(x);
+          | 3: ;
+          | 4: do4();
+         ELSE do5();
+         END ; (* CASE selection *)
+
+      END
+   END ;
+   FormatError1('file %d has not been opened or is out of range\n', f) ;
+   RETURN( -1 )
+END f1 ;
+
+
+BEGIN
+   init
+FINALLY
+   done
+END Indent.
diff --git a/test/indent/octave.m b/test/indent/octave.m
index dc6f8448152..768f3d85e01 100644
--- a/test/indent/octave.m
+++ b/test/indent/octave.m
@@ -17,15 +17,21 @@ function res = tcomp (fn)
   cnty = repmat(x(:,1)(:), 10, 1);
 
   pop = x(:,1:10)(:);
-  bir = x(:,11:20)(:);
-  dth = x(:,21:30)(:);
-  imig = x(:,31:40)(:);
-  dmig = x(:,41:50)(:);
-  gq = x(:,51:60)(:);
-  
-  yrs = repmat(2000:2009, 39, 1)(:);
-
-  res = [yrs, cnty, pop, bir, dth, imig, dmig, gq];
+    ## Here and below, we test if the indentation aligns with a previous
+    ## fixindented line.  This is important so as to make it easier for the
+    ## user to verride some indentation somewhere, and also because it
+    ## reflects the fact that the indentation decision is taken with a minimum
+    ## amount of work (i.e. in the present case, without having to walk back
+    ## until the `function' line).
+    bir = x(:,11:20)(:);        # fixindent
+    dth = x(:,21:30)(:);
+    imig = x(:,31:40)(:);
+    dmig = x(:,41:50)(:);
+    gq = x(:,51:60)(:);
+
+    yrs = repmat(2000:2009, 39, 1)(:);
+
+    res = [yrs, cnty, pop, bir, dth, imig, dmig, gq];
 
 endfunction