Re: master 7ce721b: Migrate MH-E functional tests from SourceForge

[Lars Ingebrigtsen]

stepheng+savannah@gildea.com (Stephen Gildea) writes:

>     Migrate MH-E functional tests from SourceForge
>
>     * test/lisp/mh-e/mh-limit-tests.el:
>     * test/lisp/mh-e/mh-utils-tests.el:
>     * test/lisp/mh-e/mh-xface-tests.el:
>     Import the functional tests from src/mh-unit.el.

This leads to the following test failure -- but only when
native-compilation is enabled.  And the backtrace looks pretty odd: It's
failing when trying to make a trampoline for file-directory-p?

I've added Andrea to the CCs; perhaps he has some insights here.

Test mh-sub-folders condition:
    (native-compiler-error
     (lambda
       (arg852 &optional)
       (let
           ((f ...))
         (funcall f arg852)))
     "")
   FAILED  15/16  mh-sub-folders (0.002489 sec)
call-process mock unexpected arglist (emacs --batch -l 
/tmp/emacs-int-comp-subr--trampoline-66696c652d6469726563746f72792d70_file_directory_p_0-vEOZpy.el)
call-process mock unexpected arglist (emacs --batch -l 
/tmp/emacs-int-comp-subr--trampoline-66696c652d6469726563746f72792d70_file_directory_p_0-fiD9dz.el)
Test mh-sub-folders-actual backtrace:
  signal(native-compiler-error ((lambda (arg883 &optional) (let ((f #'
  comp--native-compile((lambda (arg883 &optional) (let ((f #'file-dire
  comp-trampoline-compile(file-directory-p)
  comp-subr-trampoline-install(file-directory-p)
  fset(file-directory-p #<subr file-directory-p>)
  (unwind-protect (progn (if mh-test-variant-logged-already nil (mh-va
  (let* ((vnew (make-hash-table :test #'equal)) (vnew (getenv "MH")) (
  (closure (t) nil (let* ((vnew (make-hash-table :test #'equal)) (vnew
  ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
  ert-run-test(#s(ert-test :name mh-sub-folders-actual :documentation 
  ert-run-or-rerun-test(#s(ert--stats :selector ... :tests ... :test-m
  ert-run-tests((not (tag :unstable)) #f(compiled-function (event-type
  ert-run-tests-batch((not (tag :unstable)))
  ert-run-tests-batch-and-exit((not (tag :unstable)))
  command-line-1(("-L" ":." "-l" "ert" "-l" "lisp/mh-e/mh-utils-tests.
  command-line()
 

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no