bug#81473: 31.0.91; nsm-check-local-subnet-ipv4 failure on 32-bit Solaris sparc

Ping!

> Cc: [email protected]
> Date: Sat, 25 Jul 2026 12:55:29 +0300
> From: Eli Zaretskii <[email protected]>
> 
> > Date: Fri, 24 Jul 2026 13:54:40 -0700
> > From: Paul Eggert <[email protected]>
> > 
> > This follows up on bug#81465 "31.0.91; ‘make check’ failures on Solaris 
> > 10 sparc 32-bit" and I am splitting this issue off into a separate bug 
> > report.
> > 
> > Here is the log of the failure:
> > 
> > Test nsm-check-local-subnet-ipv4 backtrace:
> >    signal(ert-test-failed (((should (eq nil (nsm-should-check "127.0.0.
> >    ert-fail(((should (eq nil (nsm-should-check "127.0.0.1"))) :form (eq
> >    #f(compiled-function () #<bytecode 0x13e18400>)()
> >    #f(compiled-function () #<bytecode 0x2c3144>)()
> >    handler-bind-1(#f(compiled-function () #<bytecode 0x2c3144>) (t) #f(
> >    ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> >    ert-run-test(#s(ert-test :name nsm-check-local-subnet-ipv4 :document
> >    ert-run-or-rerun-test(#s(ert--stats :selector (not (or (tag :expensi
> >    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" ":../../emacs-31.0.91/test" "-l" "ert" "--eval"
> >    command-line()
> >    normal-top-level()
> > Test nsm-check-local-subnet-ipv4 condition:
> >      (ert-test-failed
> >       ((should (eq nil (nsm-should-check "127.0.0.1"))) :form (eq nil t)
> >        :value nil))
> >     FAILED  1/2  nsm-check-local-subnet-ipv4 (0.015661 sec) at 
> > ../../emacs-31.0.91/test/lisp/net/nsm-tests.el:30
> 
> Could you please tell which of the two tests marked below fail:
> 
> (ert-deftest nsm-check-local-subnet-ipv4 ()
>   "Check that nsm can be avoided for local subnets."
>   (let ((local-ip '[172 26 128 160 0])
>         (mask '[255 255 255 0 0])
> 
>         (wrong-length-mask '[255 255 255])
>         (wrong-mask '[255 255 255 255 0])
>         (remote-ip-yes '[172 26 128 161 0])
>         (remote-ip-no '[172 26 129 161 0]))
> 
>     (should (eq t (nsm-network-same-subnet local-ip mask remote-ip-yes)))
>     (should (eq nil (nsm-network-same-subnet local-ip mask remote-ip-no)))
>     (should-error (nsm-network-same-subnet local-ip wrong-length-mask remote-ip-yes))
>     (should (eq nil (nsm-network-same-subnet local-ip wrong-mask remote-ip-yes)))
>     (should (eq t (nsm-should-check "google.com")))
>     (should (eq t (nsm-should-check "127.0.0.1")))  <<<<<<<<<<<<<<<<<<<<<<<<<
>     (should (eq t (nsm-should-check "localhost")))
>     (let ((nsm-trust-local-network t))
>       (should (eq t (nsm-should-check "google.com")))
>       (should (eq nil (nsm-should-check "127.0.0.1")))  <<<<<<<<<<<<<<<<<<<<<
>       (should (eq nil (nsm-should-check "localhost"))))))
> 
> Also, can you step through nsm-should-check and see why it fails in
> that case?  I'm guessing that network-interface-list returns something
> unexpected.
> 
> 
> 
>