[Emacs-diffs] master eb8dbaf: Test an IPv4 mapped IPv6 address in Tramp

[Michael Albinus]

branch: master
commit eb8dbafff11fded9c96294a0680455bcde70882c
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Test an IPv4 mapped IPv6 address in Tramp
    
    * test/lisp/net/tramp-tests.el (tramp-test01-file-name-syntax)
    (tramp-test01-file-name-syntax-simplified)
    (tramp-test01-file-name-syntax-separate): Check also an IPv4
    mapped IPv6 address.
---
 test/lisp/net/tramp-tests.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 732b4f3..f470385 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -237,6 +237,10 @@ properly.  BODY shall not contain a timeout."
   (should (tramp-tramp-file-p "/method:[::1]:"))
   (should (tramp-tramp-file-p "/method:address@hidden::1]:"))
 
+  ;; Using an IPv4 mapped IPv6 address.
+  (should (tramp-tramp-file-p "/method:[::ffff:192.168.0.1]:"))
+  (should (tramp-tramp-file-p "/method:address@hidden::ffff:192.168.0.1]:"))
+
   ;; Local file name part.
   (should (tramp-tramp-file-p "/method:::"))
   (should (tramp-tramp-file-p "/method::/:"))
@@ -264,6 +268,7 @@ properly.  BODY shall not contain a timeout."
   (should-not (tramp-tramp-file-p "/1.2.3.4:"))
   (should-not (tramp-tramp-file-p "/[]:"))
   (should-not (tramp-tramp-file-p "/[::1]:"))
+  (should-not (tramp-tramp-file-p "/[::ffff:192.168.0.1]:"))
   (should-not (tramp-tramp-file-p "/host:/:"))
   (should-not (tramp-tramp-file-p "/host1|host2:"))
   (should-not (tramp-tramp-file-p "/address@hidden|address@hidden:"))
@@ -312,6 +317,10 @@ properly.  BODY shall not contain a timeout."
          (should (tramp-tramp-file-p "/[::1]:"))
          (should (tramp-tramp-file-p "/address@hidden::1]:"))
 
+         ;; Using an IPv4 mapped IPv6 address.
+         (should (tramp-tramp-file-p "/[::ffff:192.168.0.1]:"))
+         (should (tramp-tramp-file-p "/address@hidden::ffff:192.168.0.1]:"))
+
          ;; Local file name part.
          (should (tramp-tramp-file-p "/host::"))
          (should (tramp-tramp-file-p "/host:/:"))
@@ -362,6 +371,10 @@ properly.  BODY shall not contain a timeout."
          (should (tramp-tramp-file-p "/[method/::1]"))
          (should (tramp-tramp-file-p "/[method/user@::1]"))
 
+         ;; Using an IPv4 mapped IPv6 address.
+         (should (tramp-tramp-file-p "/[method/::ffff:192.168.0.1]"))
+         (should (tramp-tramp-file-p "/[method/user@::ffff:192.168.0.1]"))
+
          ;; Local file name part.
          (should (tramp-tramp-file-p "/[method/]"))
          (should (tramp-tramp-file-p "/[method/]/:"))