Re: master 95b1eacd47: Fix handling of UNCs in 'parse-colon-path

[Ken Brown]

On 8/24/2022 12:20 PM, Eli Zaretskii wrote:
> branch: master
> commit 95b1eacd4750da7329380aabcb383a8f9d96a59b
> Author: Eli Zaretskii <eliz@gnu.org>
> Commit: Eli Zaretskii <eliz@gnu.org>
>
>      Fix handling of UNCs in 'parse-colon-path
>      
>      * lisp/files.el (parse-colon-path): Don't remove the second
>      leading slash on systems that support UNCs.  (Bug#57353)
>      
>      * test/lisp/files-tests.el (files-tests-bug-21454): Update
>      expected results.
>      (files-colon-path): Add a new test pattern.

After this commit I'm getting the following test failure on Cygwin.  I don't 
have time to look into it now, but I can do so in a few days if the fix isn't 
obvious.

Test files-tests-bug-21454 backtrace:
  signal(ert-test-failed (((should (equal res (parse-colon-path "$FOO"
  ert-fail(((should (equal res (parse-colon-path "$FOO"))) :form (equa
  #f(compiled-function () #<bytecode 0x197d9660f67edbed>)()
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name files-tests-bug-21454 :documentation
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-m
  ert-run-tests((not (or (tag :expensive-test) (tag :unstable) (tag :n
  ert-run-tests-batch((not (or (tag :expensive-test) (tag :unstable) (
  ert-run-tests-batch-and-exit((not (or (tag :expensive-test) (tag :un
  eval((ert-run-tests-batch-and-exit '(not (or (tag :expensive-test) (
  command-line-1(("-L" ":../../master/test" "-l" "ert" "-l" "lisp/file
  command-line()
  normal-top-level()
Test files-tests-bug-21454 condition:
    (ert-test-failed
     ((should
       (equal res
              (parse-colon-path "$FOO")))
      :form
      (equal
       ("/foo/bar/" "/bar/qux/" "/qux/foo/")
       ("//foo/bar/" "/bar/qux/" "/qux/foo/"))
      :value nil :explanation
      (list-elt 0
                (arrays-of-different-length 9 10 "/foo/bar/" "//foo/bar/" 
first-mismatch-at 1))))

Ken