* FIX missing case-folding in test-ob-emacs-lisp.el @ 2013-03-12 15:45 Andreas Röhler 2013-03-12 15:59 ` Bastien 0 siblings, 1 reply; 6+ messages in thread From: Andreas Röhler @ 2013-03-12 15:45 UTC (permalink / raw) To: emacs-orgmode [-- Attachment #1: Type: text/plain, Size: 28208 bytes --] Running tests from org-mode/testing/README failed due to missing case-folding Downcased "result" was searched while upcased was inserted Patch attached Error was: Debugger entered--Lisp error: (ert-test-failed ((should (string= #1=": 2" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))) :form (string= #1# "2;;") :value nil)) signal(ert-test-failed (((should (string= #1=": 2" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))) :form (string= #1# "2;;") :value nil))) ert-fail(((should (string= #1=": 2" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))) :form (string= #1# "2;;") :value nil)) (if (unwind-protect (setq value-76 (apply fn-74 args-75)) (setq form-description-78 (nconc (list (quote (should (string= ": 2" ...)))) (list :form (cons fn-74 args-75)) (if (eql value-76 (quote ert-form-evaluation-aborted-77)) nil (list :value value-76)) (let ((-explainer- (and ... ...))) (if -explainer- (progn (list :explanation ...)))))) (ert--signal-should-execution form-description-78)) nil (ert-fail form-description-78)) (let (form-description-78) (if (unwind-protect (setq value-76 (apply fn-74 args-75)) (setq form-description-78 (nconc (list (quote (should ...))) (list :form (cons fn-74 args-75)) (if (eql value-76 (quote ert-form-evaluation-aborted-77)) nil (list :value value-76)) (let ((-explainer- ...)) (if -explainer- (progn ...))))) (ert--signal-should-execution form-description-78)) nil (ert-fail form-description-78))) (let ((value-76 (quote ert-form-evaluation-aborted-77))) (let (form-description-78) (if (unwind-protect (setq value-76 (apply fn-74 args-75)) (setq form-description-78 (nconc (list (quote ...)) (list :form (cons fn-74 args-75)) (if (eql value-76 ...) nil (list :value value-76)) (let (...) (if -explainer- ...)))) (ert--signal-should-execution form-description-78)) nil (ert-fail form-description-78))) value-76) (let ((fn-74 (function string=)) (args-75 (list . #1=(": 2" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) (let ((value-76 (quote ert-form-evaluation-aborted-77))) (let (form-description-78) (if (unwind-protect (setq value-76 (apply fn-74 args-75)) (setq form-description-78 (nconc (list ...) (list :form ...) (if ... nil ...) (let ... ...))) (ert--signal-should-execution form-description-78)) nil (ert-fail form-description-78))) value-76)) (progn (org-babel-next-src-block) (org-ctrl-c-ctrl-c) (re-search-forward "results" nil t) (forward-line) (let ((fn-74 (function string=)) (args-75 (list . #1=(": 2" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) (let ((value-76 (quote ert-form-evaluation-aborted-77))) (let (form-description-78) (if (unwind-protect (setq value-76 (apply fn-74 args-75)) (setq form-description-78 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-78)) nil (ert-fail form-description-78))) value-76))) (setq G39143 (progn (org-babel-next-src-block) (org-ctrl-c-ctrl-c) (re-search-forward "results" nil t) (forward-line) (let ((fn-74 (function string=)) (args-75 (list . #1=(": 2" (buffer-substring-no-properties ... ...))))) (let ((value-76 (quote ert-form-evaluation-aborted-77))) (let (form-description-78) (if (unwind-protect (setq value-76 ...) (setq form-description-78 ...) (ert--signal-should-execution form-description-78)) nil (ert-fail form-description-78))) value-76)))) (let ((kill-buffer-query-functions nil) G39143) (let ((temp-file #1="/tmp/org-test634987c") (temp-buffer (get-buffer-create (generate-new-buffer-name " *temp file*")))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert "\n#+begin_src emacs-lisp :var a=2\n2;;\n#+end_src")) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (find-file #1#) (org-mode) (setq G39143 (progn (org-babel-next-src-block) (org-ctrl-c-ctrl-c) (re-search-forward "results" nil t) (forward-line) (let ((fn-74 (function string=)) (args-75 (list . #2=(": 2" ...)))) (let ((value-76 (quote ert-form-evaluation-aborted-77))) (let (form-description-78) (if (unwind-protect ... ... ...) nil (ert-fail form-description-78))) value-76)))) (save-buffer) (kill-buffer (current-buffer)) (delete-file #1#) G39143) eval-buffer(#<buffer *load*> nil "MY-PATH/test-ob-emacs-lisp.el" nil t) ; Reading at buffer position 2235 (let ((load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) (save-current-buffer (set-buffer buffer) (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) (quote raw-text)))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (eval-buffer buffer nil (if purify-flag file fullname) nil t)) (unwind-protect (let ((load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) (save-current-buffer (set-buffer buffer) (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (if (and enable-multibyte-characters (or (eq (coding-system-type last-coding-system-used) (quote raw-text)))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (eval-buffer buffer nil (if purify-flag file fullname) nil t)) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (let* ((buffer (get-buffer-create (generate-new-buffer-name " *load*"))) (load-in-progress t) (source (let ((save-match-data-internal (match-data))) (unwind-protect (progn (string-match "\\.el\\'" fullname)) (set-match-data save-match-data-internal (quote evaporate)))))) (if nomessage nil (if source (message "Loading %s (source)..." file) (message "Loading %s..." file))) (if purify-flag (progn (setq preloaded-file-list (cons (purecopy file) preloaded-file-list)))) (unwind-protect (let ((load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) (save-current-buffer (set-buffer buffer) (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (if (and enable-multibyte-characters (or (eq ... ...))) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (eval-buffer buffer nil (if purify-flag file fullname) nil t)) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) (if (or nomessage noninteractive) nil (if source (message "Loading %s (source)...done" file) (message "Loading %s...done" file))) t) (if (null (file-readable-p fullname)) (and (null noerror) (signal (quote file-error) (list "Cannot open load file" file))) (let* ((buffer (get-buffer-create (generate-new-buffer-name " *load*"))) (load-in-progress t) (source (let ((save-match-data-internal (match-data))) (unwind-protect (progn (string-match "\\.el\\'" fullname)) (set-match-data save-match-data-internal (quote evaporate)))))) (if nomessage nil (if source (message "Loading %s (source)..." file) (message "Loading %s..." file))) (if purify-flag (progn (setq preloaded-file-list (cons (purecopy file) preloaded-file-list)))) (unwind-protect (let ((load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) (save-current-buffer (set-buffer buffer) (set-buffer-multibyte t) (let (deactivate-mark) (insert-file-contents fullname)) (if (and enable-multibyte-characters (or ...)) (set-buffer-multibyte nil)) (set-buffer-modified-p nil)) (eval-buffer buffer nil (if purify-flag file fullname) nil t)) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) (if (or nomessage noninteractive) nil (if source (message "Loading %s (source)...done" file) (message "Loading %s...done" file))) t)) load-with-code-conversion("MY-PATH/test-ob-emacs-lisp.el" "MY-PATH/test-ob-emacs-lisp.el" nil nil) load("MY-PATH/test-ob-emacs-lisp.el" nil nil t) load-file("MY-PATH/test-ob-emacs-lisp.el") (progn (load-file path)) (if (string-match "^[A-Za-z].*\\.el$" (file-name-nondirectory path)) (progn (load-file path))) (condition-case err (if (string-match "^[A-Za-z].*\\.el$" (file-name-nondirectory path)) (progn (load-file path))) (missing-test-dependency (let ((name (intern (concat "org-missing-dependency/" (file-name-nondirectory ...))))) (eval (cons (quote ert-deftest) (cons name (quote (nil :expected-result :failed ...)))))))) (if (file-directory-p path) (rld path) (condition-case err (if (string-match "^[A-Za-z].*\\.el$" (file-name-nondirectory path)) (progn (load-file path))) (missing-test-dependency (let ((name (intern (concat "org-missing-dependency/" ...)))) (eval (cons (quote ert-deftest) (cons name (quote ...)))))))) (lambda (path) (if (file-directory-p path) (rld path) (condition-case err (if (string-match "^[A-Za-z].*\\.el$" (file-name-nondirectory path)) (progn (load-file path))) (missing-test-dependency (let ((name (intern ...))) (eval (cons (quote ert-deftest) (cons name ...))))))))("MY-PATH/test-ob-emacs-lisp.el") mapc((lambda (path) (if (file-directory-p path) (rld path) (condition-case err (if (string-match "^[A-Za-z].*\\.el$" (file-name-nondirectory path)) (progn (load-file path))) (missing-test-dependency (let ((name (intern ...))) (eval (cons (quote ert-deftest) (cons name ...)))))))) ("MY-PATH/test-ob-C.el" "MY-PATH/test-ob-R.el" "MY-PATH/test-ob-awk.el" "MY-PATH/test-ob-emacs-lisp.el" "MY-PATH/test-ob-exp.el" "MY-PATH/test-ob-fortran.el" "MY-PATH/test-ob-lilypond.el" "MY-PATH/test-ob-lob.el" "MY-PATH/test-ob-maxima.el" "MY-PATH/test-ob-octave.el" "MY-PATH/test-ob-perl.el" "MY-PATH/test-ob-python.el" "MY-PATH/test-ob-sh.el" "MY-PATH/test-ob-table.el" "MY-PATH/test-ob-tangle.el" "MY-PATH/test-ob.el" "MY-PATH/test-org-clock.el" "MY-PATH/test-org-element.el" "MY-PATH/test-org-footnote.el" "MY-PATH/test-org-list.el" "MY-PATH/test-org-macro.el" "MY-PATH/test-org-src.el" "MY-PATH/test-org-table.el" "MY-PATH/test-org.el" "MY-PATH/test-ox.el" "MY-PATH/test-property-inheritance.el")) (progn (mapc (function (lambda (path) (if (file-directory-p path) (rld path) (condition-case err (if (string-match "^[A-Za-z].*\\.el$" ...) (progn ...)) (missing-test-dependency (let ... ...)))))) (directory-files base (quote full) "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.el$"))) rld("MY-PATH/lisp") (progn (if (eq vnew (quote cl--unbound)) (fmakunbound #1=(quote rld)) (fset #1# vnew)) (rld (expand-file-name "lisp" org-test-dir))) (unwind-protect (progn (if (eq vnew . #2=((quote cl--unbound))) (fmakunbound #1=(quote rld)) (fset #1# vnew)) (rld (expand-file-name "lisp" org-test-dir))) (if (eq old . #2#) (fmakunbound #1#) (fset #1# old))) (let* ((vnew (function (lambda (base) (progn (mapc (function ...) (directory-files base ... "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.el$")))))) (old (if (fboundp #1=(quote rld)) (symbol-function #1#) (quote cl--unbound)))) (unwind-protect (progn (if (eq vnew . #2=((quote cl--unbound))) (fmakunbound #1#) (fset #1# vnew)) (rld (expand-file-name "lisp" org-test-dir))) (if (eq old . #2#) (fmakunbound #1#) (fset #1# old)))) org-test-load() org-test-run-all-tests() (progn (org-test-run-all-tests)) eval((progn (org-test-run-all-tests))) ((lambda (result) (if (member "none" #1=(cdr (assoc :result-params params))) nil (if (or (member "scalar" #1#) (member "verbatim" #1#) (member "html" #1#) (member "code" #1#) (member "pp" #1#) (and (member "output" #1#) (not (member "table" #1#)))) (let ((print-level nil) (print-length nil)) (if (or (member "scalar" ...) (member "verbatim" ...)) (format "%S" result) (format "%s" result))) (org-babel-reassemble-table result (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (assoc :colnames params))) (org-babel-pick-name (cdr (assoc :rowname-names params)) (cdr (assoc :rownames params))))))) (eval (read (format (if (member "output" (cdr (assoc :result-params params))) "(with-output-to-string %s)" "(progn %s)") (org-babel-expand-body:emacs-lisp body params))))) (progn ((lambda (result) (if (member "none" #1=(cdr (assoc :result-params params))) nil (if (or (member "scalar" #1#) (member "verbatim" #1#) (member "html" #1#) (member "code" #1#) (member "pp" #1#) (and (member "output" #1#) (not ...))) (let ((print-level nil) (print-length nil)) (if (or ... ...) (format "%S" result) (format "%s" result))) (org-babel-reassemble-table result (org-babel-pick-name (cdr ...) (cdr ...)) (org-babel-pick-name (cdr ...) (cdr ...)))))) (eval (read (format (if (member "output" (cdr ...)) "(with-output-to-string %s)" "(progn %s)") (org-babel-expand-body:emacs-lisp body params)))))) (unwind-protect (progn ((lambda (result) (if (member "none" #1=(cdr (assoc :result-params params))) nil (if (or (member "scalar" #1#) (member "verbatim" #1#) (member "html" #1#) (member "code" #1#) (member "pp" #1#) (and ... ...)) (let (... ...) (if ... ... ...)) (org-babel-reassemble-table result (org-babel-pick-name ... ...) (org-babel-pick-name ... ...))))) (eval (read (format (if (member "output" ...) "(with-output-to-string %s)" "(progn %s)") (org-babel-expand-body:emacs-lisp body params)))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn ((lambda (result) (if (member "none" #1=(cdr ...)) nil (if (or ... ... ... ... ... ...) (let ... ...) (org-babel-reassemble-table result ... ...)))) (eval (read (format (if ... "(with-output-to-string %s)" "(progn %s)") (org-babel-expand-body:emacs-lisp body params)))))) (set-window-configuration wconfig))) org-babel-execute:emacs-lisp("(org-test-run-all-tests)" ((:comments . #1="") (:shebang . #1#) (:cache . "no") (:padline . #1#) (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "silent") (:session . "none") (:padnewline . "yes") (:hlines . "yes") (:colnames . "no") (:result-type . value) (:result-params "silent") (:rowname-names) (:colname-names))) funcall(org-babel-execute:emacs-lisp "(org-test-run-all-tests)" ((:comments . #1="") (:shebang . #1#) (:cache . "no") (:padline . #1#) (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "silent") (:session . "none") (:padnewline . "yes") (:hlines . "yes") (:colnames . "no") (:result-type . value) (:result-params "silent") (:rowname-names) (:colname-names))) ((lambda (result) (if (and (eq (cdr (assoc :result-type params)) (quote value)) (or (member "vector" result-params) (member "table" result-params)) (not (listp result))) (list (list result)) result)) (funcall cmd body params)) (setq result ((lambda (result) (if (and (eq (cdr (assoc :result-type params)) (quote value)) (or (member "vector" result-params) (member "table" result-params)) (not (listp result))) (list (list result)) result)) (funcall cmd body params))) (if (member "none" result-params) (progn (funcall cmd body params) (message "result silenced")) (setq result ((lambda (result) (if (and (eq (cdr ...) (quote value)) (or (member "vector" result-params) (member "table" result-params)) (not (listp result))) (list (list result)) result)) (funcall cmd body params))) (if (cdr (assoc :file params)) (progn (if result (progn (let ((temp-file ...) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...))))) (setq result (cdr (assoc :file params))))) (org-babel-insert-result result result-params info new-hash indent lang) (run-hooks (quote org-babel-after-execute-hook)) result) (let ((call-process-region (function (lambda (&rest args) (apply (quote org-babel-tramp-handle-call-process-region) args))))) (let ((lang-check (function (lambda (f) (let (...) (if ... ...)))))) (setq cmd (or (funcall lang-check lang) (funcall lang-check (symbol-name (cdr (assoc lang org-src-lang-modes)))) (error "No org-babel-execute function for %s!" lang)))) (message "executing %s code block%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) "")) (if (member "none" result-params) (progn (funcall cmd body params) (message "result silenced")) (setq result ((lambda (result) (if (and (eq ... ...) (or ... ...) (not ...)) (list (list result)) result)) (funcall cmd body params))) (if (cdr (assoc :file params)) (progn (if result (progn (let (... ...) (unwind-protect ... ...)))) (setq result (cdr (assoc :file params))))) (org-babel-insert-result result result-params info new-hash indent lang) (run-hooks (quote org-babel-after-execute-hook)) result)) (unwind-protect (let ((call-process-region (function (lambda (&rest args) (apply (quote org-babel-tramp-handle-call-process-region) args))))) (let ((lang-check (function (lambda (f) (let ... ...))))) (setq cmd (or (funcall lang-check lang) (funcall lang-check (symbol-name (cdr ...))) (error "No org-babel-execute function for %s!" lang)))) (message "executing %s code block%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) "")) (if (member "none" result-params) (progn (funcall cmd body params) (message "result silenced")) (setq result ((lambda (result) (if (and ... ... ...) (list ...) result)) (funcall cmd body params))) (if (cdr (assoc :file params)) (progn (if result (progn (let ... ...))) (setq result (cdr (assoc :file params))))) (org-babel-insert-result result result-params info new-hash indent lang) (run-hooks (quote org-babel-after-execute-hook)) result)) (setq call-process-region (quote org-babel-call-process-region-original))) (let* ((lang (nth 0 info)) (result-params (cdr (assoc :result-params params))) (body (let* ((c (nthcdr 1 info))) (setcar c (if (org-babel-noweb-p params :eval) (org-babel-expand-noweb-references info) (nth 1 info))))) (dir (cdr (assoc :dir params))) (default-directory (or (and dir (file-name-as-directory (expand-file-name dir))) default-directory)) (org-babel-call-process-region-original (or (and (boundp (quote org-babel-call-process-region-original)) org-babel-call-process-region-original) (symbol-function (quote call-process-region)))) (indent (car (last info))) result cmd) (unwind-protect (let ((call-process-region (function (lambda (&rest args) (apply ... args))))) (let ((lang-check (function (lambda ... ...)))) (setq cmd (or (funcall lang-check lang) (funcall lang-check (symbol-name ...)) (error "No org-babel-execute function for %s!" lang)))) (message "executing %s code block%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) "")) (if (member "none" result-params) (progn (funcall cmd body params) (message "result silenced")) (setq result ((lambda (result) (if ... ... result)) (funcall cmd body params))) (if (cdr (assoc :file params)) (progn (if result (progn ...)) (setq result (cdr ...)))) (org-babel-insert-result result result-params info new-hash indent lang) (run-hooks (quote org-babel-after-execute-hook)) result)) (setq call-process-region (quote org-babel-call-process-region-original)))) (cond (cache-current-p (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 1) (let ((result (org-babel-read-result))) (message (replace-regexp-in-string "%" "%%" (format "%S" result))) result))) ((org-babel-confirm-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) (setcar c merged-params)) i)) (let* ((lang (nth 0 info)) (result-params (cdr (assoc :result-params params))) (body (let* ((c ...)) (setcar c (if ... ... ...)))) (dir (cdr (assoc :dir params))) (default-directory (or (and dir (file-name-as-directory ...)) default-directory)) (org-babel-call-process-region-original (or (and (boundp ...) org-babel-call-process-region-original) (symbol-function (quote call-process-region)))) (indent (car (last info))) result cmd) (unwind-protect (let ((call-process-region (function ...))) (let ((lang-check ...)) (setq cmd (or ... ... ...))) (message "executing %s code block%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" ...) "")) (if (member "none" result-params) (progn (funcall cmd body params) (message "result silenced")) (setq result (... ...)) (if (cdr ...) (progn ... ...)) (org-babel-insert-result result result-params info new-hash indent lang) (run-hooks (quote org-babel-after-execute-hook)) result)) (setq call-process-region (quote org-babel-call-process-region-original)))))) (let* ((params (if params (org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not arg) (cdr (assoc :cache params)) (string= "yes" (cdr (assoc :cache params))))) (new-hash (if cachep (progn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-current-result-hash)))) (cache-current-p (and (not arg) new-hash (equal new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 1) (let ((result (org-babel-read-result))) (message (replace-regexp-in-string "%" "%%" (format "%S" result))) result))) ((org-babel-confirm-evaluate (let ((i info)) (let* ((c ...)) (setcar c merged-params)) i)) (let* ((lang (nth 0 info)) (result-params (cdr (assoc :result-params params))) (body (let* (...) (setcar c ...))) (dir (cdr (assoc :dir params))) (default-directory (or (and dir ...) default-directory)) (org-babel-call-process-region-original (or (and ... org-babel-call-process-region-original) (symbol-function ...))) (indent (car (last info))) result cmd) (unwind-protect (let ((call-process-region ...)) (let (...) (setq cmd ...)) (message "executing %s code block%s..." (capitalize lang) (if ... ... "")) (if (member "none" result-params) (progn ... ...) (setq result ...) (if ... ...) (org-babel-insert-result result result-params info new-hash indent lang) (run-hooks ...) result)) (setq call-process-region (quote org-babel-call-process-region-original))))))) (progn (let* ((params (if params (org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not arg) (cdr (assoc :cache params)) (string= "yes" (cdr (assoc :cache params))))) (new-hash (if cachep (progn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-current-result-hash)))) (cache-current-p (and (not arg) new-hash (equal new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 1) (let ((result ...)) (message (replace-regexp-in-string "%" "%%" ...)) result))) ((org-babel-confirm-evaluate (let ((i info)) (let* (...) (setcar c merged-params)) i)) (let* ((lang (nth 0 info)) (result-params (cdr ...)) (body (let* ... ...)) (dir (cdr ...)) (default-directory (or ... default-directory)) (org-babel-call-process-region-original (or ... ...)) (indent (car ...)) result cmd) (unwind-protect (let (...) (let ... ...) (message "executing %s code block%s..." ... ...) (if ... ... ... ... ... ... result)) (setq call-process-region (quote org-babel-call-process-region-original)))))))) (if (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) (setcar c merged-params)) i)) (progn (let* ((params (if params (org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not arg) (cdr (assoc :cache params)) (string= "yes" (cdr ...)))) (new-hash (if cachep (progn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-current-result-hash)))) (cache-current-p (and (not arg) new-hash (equal new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 1) (let (...) (message ...) result))) ((org-babel-confirm-evaluate (let (...) (let* ... ...) i)) (let* ((lang ...) (result-params ...) (body ...) (dir ...) (default-directory ...) (org-babel-call-process-region-original ...) (indent ...) result cmd) (unwind-protect (let ... ... ... ...) (setq call-process-region ...)))))))) (let* ((info (or info (org-babel-get-src-block-info))) (merged-params (org-babel-merge-params (nth 2 info) params))) (if (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) (setcar c merged-params)) i)) (progn (let* ((params (if params (org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not arg) (cdr ...) (string= "yes" ...))) (new-hash (if cachep (progn ...))) (old-hash (if cachep (progn ...))) (cache-current-p (and (not arg) new-hash (equal new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char ...) (end-of-line 1) (forward-char 1) (let ... ... result))) ((org-babel-confirm-evaluate (let ... ... i)) (let* (... ... ... ... ... ... ... result cmd) (unwind-protect ... ...)))))))) org-babel-execute-src-block(nil ("emacs-lisp" "(org-test-run-all-tests)" ((:comments . #1="") (:shebang . #1#) (:cache . "no") (:padline . #1#) (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "silent") (:session . "none") (:padnewline . "yes") (:hlines . "yes") (:colnames . "no") (:result-type . value) (:result-params "silent") (:rowname-names) (:colname-names)) "" nil 3)) (progn (org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block current-prefix-arg info) t) (if info (progn (org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block current-prefix-arg info) t) nil) (let ((info (org-babel-get-src-block-info))) (if info (progn (org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block current-prefix-arg info) t) nil)) org-babel-execute-src-block-maybe() (or (org-babel-execute-src-block-maybe) (org-babel-lob-execute-maybe)) org-babel-execute-maybe() (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-execute-maybe)) org-babel-execute-safely-maybe() run-hook-with-args-until-success(org-babel-execute-safely-maybe) (cond ((or (and (boundp (quote org-clock-overlays)) org-clock-overlays) org-occur-highlights org-latex-fragment-image-overlays) (and (boundp (quote org-clock-overlays)) (org-clock-remove-overlays)) (org-remove-occur-highlights) (org-remove-latex-fragment-image-overlays) (message "Temporary highlights/overlays removed from current buffer")) ((and (local-variable-p (quote org-finish-function) (current-buffer)) (fboundp org-finish-function)) (funcall org-finish-function)) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-hook))) (t (let* ((context (org-element-context)) (type (org-element-type context))) (if (save-excursion (beginning-of-line) (looking-at "[ ]*$")) (or (run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (user-error "C-c C-c can do nothing useful at this location")) (if (eq type (quote paragraph)) (progn (let (...) (if ... ...)))) (cond ((eql type (quote clock)) (org-clock-update-time-maybe)) ((eql type (quote dynamic-block)) (save-excursion (goto-char ...) (org-update-dblock))) ((eql type (quote footnote-definition)) (goto-char (org-element-property :post-affiliated context)) (call-interactively (quote org-footnote-action))) ((eql type (quote footnote-reference)) (call-interactively (quote org-footnote-action))) ((memql type (quote ...)) (save-excursion (goto-char ...) (call-interactively ...))) ((eql type (quote item)) (let* (... ... ... ... ... ...) (org-list-set-checkbox ... struct ...) (org-list-struct-fix-ind struct parents 2) (org-list-struct-fix-item-end struct) (org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind struct parents) (let ... ... ...))) ((eql type (quote keyword)) (let (... ...) (if ... ...) (let ... ... --rtn)) (message "Local setup has been refreshed")) ((eql type (quote plain-list)) (let* (... ... ... ... ...) (cond ... ...) (org-list-write-struct struct ... old-struct) (org-update-checkbox-count-maybe) (save-excursion ... ...))) ((memql type (quote ...)) (call-interactively (quote org-property-action))) ((memql type (quote ...)) (call-interactively (quote org-update-radio-target-regexp))) ((eql type (quote statistics-cookie)) (call-interactively (quote org-update-statistics-cookies))) ((memql type (quote ...)) (if (eq ... ...) (message "Use C-c ' to edit table.el tables") (let ... ...))) ((eql type (quote timestamp)) (org-timestamp-change 0 (quote day))) (t (or (run-hook-with-args-until-success ...) (user-error "C-c C-c can do nothing useful at this location")))))))) org-ctrl-c-ctrl-c(nil) call-interactively(org-ctrl-c-ctrl-c nil nil) [-- Attachment #2: test-ob-emacs-lisp.el.patch --] [-- Type: text/x-patch, Size: 3062 bytes --] commit 59f3ed34ab7b032ce926c7b2e8f37460c1a7d619 Author: Andreas Roehler <andreas.roehler@online.de> Date: Tue Mar 12 16:44:13 2013 +0100 Fix missing `case-fold-search', test-ob-emacs-lisp.el Running tests from org-mode/testing/README failed due to missing case-folding Downcased "result" was searched while upcased was inserted diff --git a/testing/lisp/test-ob-emacs-lisp.el b/testing/lisp/test-ob-emacs-lisp.el index 94092e4..ed85a6d 100644 --- a/testing/lisp/test-ob-emacs-lisp.el +++ b/testing/lisp/test-ob-emacs-lisp.el @@ -24,55 +24,58 @@ ;;; Code: (ert-deftest ob-emacs-lisp/commented-last-block-line-no-var () - (org-test-with-temp-text-in-file " + (let (case-fold-search) + (org-test-with-temp-text-in-file " #+begin_src emacs-lisp ;; #+end_src" - (org-babel-next-src-block) - (org-ctrl-c-ctrl-c) - (should (re-search-forward "results:" nil t)) - (forward-line) - (should - (string= - "" - (buffer-substring-no-properties (point-at-bol) (point-at-eol))))) - (org-test-with-temp-text-in-file " + (org-babel-next-src-block) + (org-ctrl-c-ctrl-c) + (should (re-search-forward "results:" nil t)) + (forward-line) + (should + (string= + "" + (buffer-substring-no-properties (point-at-bol) (point-at-eol))))) + (org-test-with-temp-text-in-file " #+begin_src emacs-lisp \"some text\";; #+end_src" - (org-babel-next-src-block) - (org-ctrl-c-ctrl-c) - (should (re-search-forward "results:" nil t)) - (forward-line) - (should - (string= - ": some text" - (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) + (org-babel-next-src-block) + (org-ctrl-c-ctrl-c) + (should (re-search-forward "results:" nil t)) + (forward-line) + (should + (string= + ": some text" + (buffer-substring-no-properties (point-at-bol) (point-at-eol))))))) (ert-deftest ob-emacs-lisp/commented-last-block-line-with-var () - (org-test-with-temp-text-in-file " + (let (case-fold-search) + (org-test-with-temp-text-in-file " #+begin_src emacs-lisp :var a=1 ;; #+end_src" + (org-babel-next-src-block) + (org-ctrl-c-ctrl-c) + (re-search-forward "results" nil t) + (forward-line) + (should (string= + "" + (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) + (org-test-with-temp-text-in-file " +#+begin_src emacs-lisp :var a=2 +2;; +#+end_src" (org-babel-next-src-block) (org-ctrl-c-ctrl-c) (re-search-forward "results" nil t) (forward-line) (should (string= - "" + ": 2" (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))) -(org-test-with-temp-text-in-file " -#+begin_src emacs-lisp :var a=2 -2;; -#+end_src" - (org-babel-next-src-block) - (org-ctrl-c-ctrl-c) - (re-search-forward "results" nil t) - (forward-line) - (should (string= - ": 2" - (buffer-substring-no-properties (point-at-bol) (point-at-eol))))) + (provide 'test-ob-emacs-lisp) ;;; test-ob-emacs-lisp.el ends here ^ permalink raw reply related [flat|nested] 6+ messages in thread
* Re: FIX missing case-folding in test-ob-emacs-lisp.el 2013-03-12 15:45 FIX missing case-folding in test-ob-emacs-lisp.el Andreas Röhler @ 2013-03-12 15:59 ` Bastien 2013-03-12 16:40 ` Andreas Röhler 2013-03-12 17:12 ` Andreas Röhler 0 siblings, 2 replies; 6+ messages in thread From: Bastien @ 2013-03-12 15:59 UTC (permalink / raw) To: Andreas Röhler; +Cc: emacs-orgmode Hi Andreas, Andreas Röhler <andreas.roehler@easy-emacs.de> writes: > Running tests from org-mode/testing/README failed due to missing case-folding > Downcased "result" was searched while upcased was inserted It's weird, the test does not fail for me. Can you let me know how to reproduce it? > Patch attached Thanks, let's use this fix if we reproduce the problem. Best, -- Bastien ^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: FIX missing case-folding in test-ob-emacs-lisp.el 2013-03-12 15:59 ` Bastien @ 2013-03-12 16:40 ` Andreas Röhler 2013-03-12 17:12 ` Andreas Röhler 1 sibling, 0 replies; 6+ messages in thread From: Andreas Röhler @ 2013-03-12 16:40 UTC (permalink / raw) To: Bastien; +Cc: emacs-orgmode Am 12.03.2013 16:59, schrieb Bastien: > Hi Andreas, > > Andreas Röhler <andreas.roehler@easy-emacs.de> writes: > >> Running tests from org-mode/testing/README failed due to missing case-folding >> Downcased "result" was searched while upcased was inserted > > It's weird, the test does not fail for me. Can you let me know how to > reproduce it? > Called C-c C-c subsequently as told in ~/org-mode/testing/README * Interactive testing from within Emacs ;;;; Maybe missing spec only affect interactive calls? >> Patch attached > > Thanks, let's use this fix if we reproduce the problem. > > Best, > ^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: FIX missing case-folding in test-ob-emacs-lisp.el 2013-03-12 15:59 ` Bastien 2013-03-12 16:40 ` Andreas Röhler @ 2013-03-12 17:12 ` Andreas Röhler 2013-03-13 17:19 ` Michael Brand 1 sibling, 1 reply; 6+ messages in thread From: Andreas Röhler @ 2013-03-12 17:12 UTC (permalink / raw) To: Bastien; +Cc: emacs-orgmode Am 12.03.2013 16:59, schrieb Bastien: > Hi Andreas, > > Andreas Röhler <andreas.roehler@easy-emacs.de> writes: > >> Running tests from org-mode/testing/README failed due to missing case-folding >> Downcased "result" was searched while upcased was inserted > > It's weird, the test does not fail for me. Can you let me know how to > reproduce it? > >> Patch attached > > Thanks, let's use this fix if we reproduce the problem. > > Best, > Below the result from Emacs -Q Do you have debug-on-error activated? Cheers ;;;;;;;;;; Selector: "\\(org\\|ob\\)" Passed: 117 Failed: 61 (48 unexpected) Total: 178/178 Started at: 2013-03-12 18:08:00+0100 Finished. Finished at: 2013-03-12 18:08:08+0100 ..FFfFFFFFFFFF....ffffffffffffFFF.FF...............F......F...F.F......FF........F..F....F...FF..............F.F..........FFFF....F..F.FF.FFFF.....F........F..F.............FFFF. F ob-exp/evaluate-all-executables-in-order (void-function org-babel-exp-process-buffer) F ob-exp/export-call-line-information (void-function org-babel-exp-process-buffer) F ob-exp/export-with-header-argument (void-function org-babel-exp-process-buffer) F ob-exp/export-with-name (void-function org-babel-exp-process-buffer) F ob-exp/exports-both Test the ":exports both" header argument. (void-function org-babel-exp-process-buffer) F ob-exp/exports-inline (void-function org-babel-exp-process-buffer) F ob-exp/mixed-blocks-with-exports-both (void-function org-element-map) F ob-exp/noweb-no-export-and-exports-both (void-function org-babel-exp-process-buffer) F ob-exp/noweb-on-export Noweb header arguments export correctly. (void-function org-element-map) F ob-exp/noweb-on-export-with-exports-results Noweb header arguments export correctly using :exports results. (void-function org-element-map) F ob-exp/noweb-strip-export-ensure-strips (error "No org-babel-execute function for sh!") F test-ob-exp/org-babel-exp-src-blocks/w-no-file Testing export from buffers which are not visiting any file. (file-error "Cannot open load file" "ox-html") F test-ob-exp/org-babel-exp-src-blocks/w-no-headers Testing export without any headlines in the Org mode file. (file-error "Cannot open load file" "ox-html") F test-ob-exp/org-babel-exp-src-blocks/w-no-headers2 Testing export without any headlines in the org-mode file. (void-function org-export-to-file) F test-ob-lob/do-not-eval-lob-lines-in-example-blocks-on-export (file-error "Cannot open load file" "ox") F test-ob-lob/export-lob-lines Test the export of a variety of library babel call lines. (void-function org-babel-exp-process-buffer) F test-ob/org-babel-remove-result--results-default Test `org-babel-remove-result' with default :results. (error "No org-babel-execute function for sh!") F test-ob/org-babel-results-indented-wrap Ensure that wrapped results are inserted correction when indented. (error "No org-babel-execute function for sh!") F test-ob/results-in-narrowed-buffer Test block execution in a narrowed buffer. (ert-test-failed ((should-not (re-search-forward "^#\\+RESULTS:" nil t)) :form (re-search-forward "^#\\+RESULTS:" nil t) :value 66)) F test-org-babel/combining-scalar-and-raw-result-types (error "No org-babel-execute function for sh!") F test-org-babel/inline-src-blocks (error "No org-babel-execute function for sh!") F test-org-babel/inline-src_blk-default-results-replace-line-1 (error "No org-babel-execute function for sh!") F test-org-babel/just-one-results-block Test that evaluating two times the same code block does not result in a (error "No org-babel-execute function for sh!") F test-org-babel/nested-code-block Test nested code blocks inside code blocks don't cause problems. (error "No org-babel-execute function for org!") F test-org-babel/partial-nested-code-block Test nested code blocks inside code blocks don't cause problems. (error "No org-babel-execute function for org!") F test-org-clock/clocktable Test clocktable specifications. (error "Bad timestamp `[nil]'\nError was: (Not a standard Org-mode time string: [nil])") F test-org-footnote/delete Test `org-footnote-delete' specifications. (ert-test-failed ((should (equal "Para\n\n\nOutside footnote." (org-test-with-temp-text "Para[1]\n\n[1] para1\n\npara2\n\n\nOutside footnote." (org-footnote-delete "1") (org-trim ...)))) :form (equal "Para\n\n\nOutside footnote." "Para\n\npara2\n\n\nOutside footnote.") :value nil :explanation (arrays-of-different-length 24 31 "Para\n\n\nOutside footnote." "Para\n\npara2\n\n\nOutside footnote." first-mismatch-at 6))) F test-org-list/to-html Test `org-list-to-html' specifications. (ert-test-failed ((should (equal "<ul class=\"org-ul\">\n<li>a\n</li>\n</ul>" (with-temp-buffer (insert "<!-- BEGIN RECEIVE ORGLST name -->\n<!-- END RECEIVE ORGLST name -->\n<!--\n#+ORGLST: SEND name org-list-to-html\n- a\n-->") (goto-char ...) (re-search-forward "^- a" nil t) (beginning-of-line) (org-list-send-list) (goto-line 2) (buffer-substring-no-properties ... ...)))) :form (equal "<ul class=\"org-ul\">\n<li>a\n</li>\n</ul>" "<ul>\n<li>a</li>\n</ul>") :value nil :explanation (arrays-of-different-length 37 21 "<ul class=\"org-ul\">\n<li>a\n</li>\n</ul>" "<ul>\n<li>a</li>\n</ul>" first-mismatch-at 3))) F test-org-list/to-texinfo Test `org-list-to-latex' specifications. (ert-test-failed ((should (equal "@itemize\n@item \na\n\n@end itemize" (with-temp-buffer (insert "@c BEGIN RECEIVE ORGLST name\n@c END RECEIVE ORGLST name\n@ignore\n#+ORGLST: SEND name org-list-to-texinfo\n- a\n@end ignore") (goto-char ...) (re-search-forward "^- a" nil t) (beginning-of-line) (org-list-send-list) (goto-line 2) (buffer-substring-no-properties ... ...)))) :form (equal "@itemize\n@item \na\n\n@end itemize" "@enumerate\n@item\na\n@end enumerate") :value nil :explanation (arrays-of-different-length 31 33 "@itemize\n@item \na\n\n@end itemize" "@enumerate\n@item\na\n@end enumerate" first-mismatch-at 1))) F test-org-table/align Align columns within Org buffer, depends on `org-table-number-regexp'. (ert-test-failed ((should (equal expect result)) :form (equal " | 0 | 0 | 0 | 0 | 0 | 0 | | <-0x0ab.cf | >-36#0vw.yz | nan | uinf | -inf | inf | | ab | ab | ab | ab | ab | ab | " " | 0 | 0 | 0 | 0 | 0 | 0 | | <-0x0ab.cf | >-36#0vw.yz | nan | uinf | -inf | inf | | ab | ab | ab | ab | ab | ab | ") :value nil :explanation (array-elt 3 (different-atoms (32 "#x20" "? ") (48 "#x30" "?0"))))) F test-org-table/compare Basic: Compare field references in Calc. (ert-test-failed ((should (equal expect result)) :form (equal " | | 0 | z | | nan | uinf | -inf | inf | |------+---+---+---+-----+------+------+-----| | 0 | x | | | | | | | | z | | x | | | | | | | | | | x | | | | | | nan | | | | x | | | | | uinf | | | | | x | | | | -inf | | | | | | x | | | inf | | | | | | | x | #+TBLFM: @I$<<..@>$> = if(\"$1\" = \"@1\", x, string(\"\")); E" " | | 0 | z | | nan | uinf | -inf | inf | |------+---+---+---+-----+------+------+-----| | 0 | x | | x | | | | | | z | | x | | | | | | | | x | | x | | | | | | nan | | | | x | | | | | uinf | | | | | x | | | | -inf | | | | | | x | | | inf | | | | | | | x | #+TBLFM: @I$<<..@>$> = if(\"$1\" = \"@1\", x, string(\"\")); E") :value nil :explanation (array-elt 97 (different-atoms (32 "#x20" "? ") (48 "#x30" "?0"))))) F test-org-table/copy-field Experiments on how to copy one field into another field. (ert-test-failed ((should (equal expect result)) :form (equal " | 0 | 0 | | a b | a b | | c d | c d | | | | | 2012-12 | 2012-12 | | [2012-12-31 Mon] | <2012-12-31 Mon> | #+TBLFM: $2 = if(\"$1\" = \"nan\", string(\"\"), string(subvec(\"$1\", 2, vlen(\"$1\")))); E" " | 0 | 0 | | a b | a b | | c d | c d | | | 0 | | 2012-12 | 2012-12 | | [2012-12-31 Mon] | <2012-12-31 Mon> | #+TBLFM: $2 = if(\"$1\" = \"nan\", string(\"\"), string(subvec(\"$1\", 2, vlen(\"$1\")))); E") :value nil :explanation (array-elt 22 (different-atoms (48 "#x30" "?0") (32 "#x20" "? "))))) F test-org-table/empty-field Examples how to deal with empty fields. (ert-test-failed ((should (equal expect result)) :form (equal " | | | 5 | 7 | 6 | 6 | 3 | 3 | #+TBLFM: $5 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); N :: $6 = '(/ (+ @0$1..@0$4) (length '(@0$1..@0$4))); N :: $7 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); EN :: $8 = '(/ (+ @0$1..@0$4) (length '(@0$1..@0$4))); EN" " | | | 5 | 7 | 3 | 6 | 3 | 3 | #+TBLFM: $5 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); N :: $6 = '(/ (+ @0$1..@0$4) (length '(@0$1..@0$4))); N :: $7 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); EN :: $8 = '(/ (+ @0$1..@0$4) (length '(@0$1..@0$4))); EN") :value nil :explanation (array-elt 19 (different-atoms (54 "#x36" "?6") (51 "#x33" "?3"))))) F test-org-table/org-table-make-reference/format-specifier-E (ert-test-failed ((should (equal "nan" (f "" t nil nil))) :form (equal "nan" "(0)") :value nil :explanation (array-elt 0 (different-atoms (110 "#x6e" "?n") (40 "#x28" "?("))))) F test-org-table/org-table-make-reference/format-specifier-L (ert-test-failed ((should (equal "" (f '... nil nil 'literal))) :form (equal "" "0") :value nil :explanation (arrays-of-different-length 0 1 "" "0" first-mismatch-at 0))) F test-org-table/org-table-make-reference/format-specifier-none (ert-test-failed ((should (equal "\"\"" (f '... nil nil t))) :form (equal "\"\"" "\"0\"") :value nil :explanation (arrays-of-different-length 2 3 "\"\"" "\"0\"" first-mismatch-at 1))) F test-org-table/references/format-specifier-E Basic: Assign field reference, sum of field references, sum (ert-test-failed ((should (equal expect result)) :form (equal " | 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | z | 1 | z | z + 1 | z + 1 | z + 1 | 2 | 2 | | | 1 | nan | nan | nan | nan | 2 | 2 | | | | nan | nan | nan | nan | 2 | 2 | #+TBLFM: $3 = $1; E :: $4 = $1 + $2; E :: $5 = vsum($1..$2); E :: $6 = vsum(@0$1..@0$2); E :: $7 = vlen($1..$2); E :: $8 = vlen(@0$1..@0$2); E" " | 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | z | 1 | z | z + 1 | z + 1 | z + 1 | 2 | 2 | | | 1 | 0 | 1 | #ERROR | #ERROR | #ERROR | #ERROR | | | | 0 | 0 | #ERROR | #ERROR | #ERROR | #ERROR | #+TBLFM: $3 = $1; E :: $4 = $1 + $2; E :: $5 = vsum($1..$2); E :: $6 = vsum(@0$1..@0$2); E :: $7 = vlen($1..$2); E :: $8 = vlen(@0$1..@0$2); E") :value nil :explanation (arrays-of-different-length 335 375 " | 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | z | 1 | z | z + 1 | z + 1 | z + 1 | 2 | 2 | | | 1 | nan | nan | nan | nan | 2 | 2 | | | | nan | nan | nan | nan | 2 | 2 | #+TBLFM: $3 = $1; E :: $4 = $1 + $2; E :: $5 = vsum($1..$2); E :: $6 = vsum(@0$1..@0$2); E :: $7 = vlen($1..$2); E :: $8 = vlen(@0$1..@0$2); E" " | 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | z | 1 | z | z + 1 | z + 1 | z + 1 | 2 | 2 | | | 1 | 0 | 1 | #ERROR | #ERROR | #ERROR | #ERROR | | | | 0 | 0 | #ERROR | #ERROR | #ERROR | #ERROR | #+TBLFM: $3 = $1; E :: $4 = $1 + $2; E :: $5 = vsum($1..$2); E :: $6 = vsum(@0$1..@0$2); E :: $7 = vlen($1..$2); E :: $8 = vlen(@0$1..@0$2); E" first-mismatch-at 11))) F test-org-table/references/format-specifier-EN Basic: Assign field reference, sum of field references, sum (ert-test-failed ((should (equal expect result)) :form (equal " | nan | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | uinf | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | -inf | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | inf | 1 | 0 | 1 | 1 | 1 | 2 | 2 | #+TBLFM: $3 = $1; EN :: $4 = $1 + $2; EN :: $5 = vsum($1..$2); EN :: $6 = vsum(@0$1..@0$2); EN :: $7 = vlen($1..$2); EN :: $8 = vlen(@0$1..@0$2); EN" " | nan | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | uinf | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | -inf | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | inf | 1 | 0 | 1 | 1 | 1 | 2 | 2 | #+TBLFM: $3 = $1; EN :: $4 = $1 + $2; EN :: $5 = vsum($1..$2); EN :: $6 = vsum(@0$1..@0$2); EN :: $7 = vlen($1..$2); EN :: $8 = vlen(@0$1..@0$2); EN") :value nil :explanation (array-elt 3 (different-atoms (32 "#x20" "? ") (110 "#x6e" "?n"))))) F test-org-table/references/format-specifier-L Basic: Assign field reference, sum of field references, sum (ert-test-failed ((should (equal expect result)) :form (equal " | 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | z | 1 | z | #ERROR | #ERROR | #ERROR | 2 | 2 | | | 1 | | 1 | 1 | 1 | 1 | 1 | | | | | 0 | 0 | 0 | 0 | 0 | #+TBLFM: $3 = '(identity \"$1\"); L :: $4 = '(+ $1 $2); L :: $5 = '(+ $1..$2); L :: $6 = '(+ @0$1..@0$2); L :: $7 = '(length '($1..$2)); L :: $8 = '(length '(@0$1..@0$2)); L" " | 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | z | 1 | z | #ERROR | #ERROR | #ERROR | 2 | 2 | | | 1 | | 1 | 1 | 1 | 1 | 1 | | | | | 0 | 0 | 0 | 1 | 1 | #+TBLFM: $3 = '(identity \"$1\"); L :: $4 = '(+ $1 $2); L :: $5 = '(+ $1..$2); L :: $6 = '(+ @0$1..@0$2); L :: $7 = '(length '($1..$2)); L :: $8 = '(length '(@0$1..@0$2)); L") :value nil :explanation (array-elt 189 (different-atoms (48 "#x30" "?0") (49 "#x31" "?1"))))) F test-org-table/references/format-specifier-N Basic: Assign field reference, sum of field references, sum (ert-test-failed ((should (equal expect result)) :form (equal " | 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | z | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | | 1 | 0 | 1 | 1 | 1 | 1 | 1 | | | | 0 | 0 | 0 | 0 | 1 | 1 | #+TBLFM: $3 = '(identity $1); N :: $4 = '(+ $1 $2); N :: $5 = '(+ $1..$2); N :: $6 = '(+ @0$1..@0$2); N :: $7 = '(length '($1..$2)); N :: $8 = '(length '(@0$1..@0$2)); N" " | 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | z | 1 | 0 | 1 | 1 | 1 | 2 | 2 | | | 1 | 0 | 1 | 1 | 1 | 2 | 1 | | | | 0 | 0 | 0 | 0 | 2 | 1 | #+TBLFM: $3 = '(identity $1); N :: $4 = '(+ $1 $2); N :: $5 = '(+ $1..$2); N :: $6 = '(+ @0$1..@0$2); N :: $7 = '(length '($1..$2)); N :: $8 = '(length '(@0$1..@0$2)); N") :value nil :explanation (array-elt 95 (different-atoms (49 "#x31" "?1") (50 "#x32" "?2"))))) F test-org-table/references/format-specifier-none Basic: Assign field reference, sum of field references, sum (ert-test-failed ((should (equal expect result)) :form (equal " | nan | 1 | nan | nan | nan | nan | 2 | 2 | | uinf | 1 | uinf | uinf | uinf | uinf | 2 | 2 | | -inf | 1 | -inf | -inf | -inf | -inf | 2 | 2 | | inf | 1 | inf | inf | inf | inf | 2 | 2 | #+TBLFM: $3 = $1 :: $4 = $1 + $2 :: $5 = vsum($1..$2) :: $6 = vsum(@0$1..@0$2) :: $7 = vlen($1..$2) :: $8 = vlen(@0$1..@0$2)" " | nan | 1 | nan | nan | nan | nan | 2 | 2 | | uinf | 1 | uinf | uinf | uinf | uinf | 2 | 2 | | -inf | 1 | -inf | -inf | -inf | -inf | 2 | 2 | | inf | 1 | inf | inf | inf | inf | 2 | 2 | #+TBLFM: $3 = $1 :: $4 = $1 + $2 :: $5 = vsum($1..$2) :: $6 = vsum(@0$1..@0$2) :: $7 = vlen($1..$2) :: $8 = vlen(@0$1..@0$2)") :value nil :explanation (array-elt 3 (different-atoms (32 "#x20" "? ") (110 "#x6e" "?n"))))) F test-org/all-targets Test `org-all-targets' specifications. (ert-test-failed ((should (equal '("radio-target" "target") (org-test-with-temp-text "<<target>> <<<radio-target>>> : <<verb>>" (org-all-targets)))) :form (equal ("radio-target" "target") ("verb" "radio-target" "target")) :value nil :explanation (proper-lists-of-different-length 2 3 ("radio-target" "target") ("verb" "radio-target" "target") first-mismatch-at 0))) F test-org/fill-paragraph Test `org-fill-paragraph' specifications. (ert-test-failed ((should-not (org-test-with-temp-text "| a | b | | c | d | " (forward-char) (org-fill-paragraph) (eobp))) :form (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ...) (and ... ...)))) :value t)) F test-org/macro-replace-all Test `org-macro-replace-all' specifications. (void-function org-macro-initialize-templates) F test-org/timestamp-format Test `org-timestamp-format' specifications. (void-function org-timestamp-format) F test-org/timestamp-has-time-p Test `org-timestamp-has-time-p' specifications. (void-function org-timestamp-has-time-p) F test-org/timestamp-split-range Test `org-timestamp-split-range' specifications. (void-function org-timestamp-split-range) F test-org/timestamp-translate Test `org-timestamp-translate' specifications. (void-function org-timestamp-translate) ^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: FIX missing case-folding in test-ob-emacs-lisp.el 2013-03-12 17:12 ` Andreas Röhler @ 2013-03-13 17:19 ` Michael Brand 2013-03-13 17:33 ` Andreas Röhler 0 siblings, 1 reply; 6+ messages in thread From: Michael Brand @ 2013-03-13 17:19 UTC (permalink / raw) To: Andreas Röhler; +Cc: emacs-orgmode Hi Andreas On Tue, Mar 12, 2013 at 6:12 PM, Andreas Röhler <andreas.roehler@easy-emacs.de> wrote: > [...] > F test-org-table/compare > Basic: Compare field references in Calc. > (ert-test-failed > ((should > (equal expect result)) > :form > (equal " > | | 0 | z | | nan | uinf | -inf | inf | > |------+---+---+---+-----+------+------+-----| > | 0 | x | | | | | | | > | z | | x | | | | | | > | | | | x | | | | | > | nan | | | | x | | | | > | uinf | | | | | x | | | > | -inf | | | | | | x | | > | inf | | | | | | | x | > #+TBLFM: @I$<<..@>$> = if(\"$1\" = \"@1\", x, string(\"\")); E" " > | | 0 | z | | nan | uinf | -inf | inf | > |------+---+---+---+-----+------+------+-----| > | 0 | x | | x | | | | | > | z | | x | | | | | | > | | x | | x | | | | | > | nan | | | | x | | | | > | uinf | | | | | x | | | > | -inf | | | | | | x | | > | inf | | | | | | | x | > #+TBLFM: @I$<<..@>$> = if(\"$1\" = \"@1\", x, string(\"\")); E") > [...] This and all other “test-org-table/.*” look exactly as when I was working on some spreadsheet features: http://article.gmane.org/gmane.emacs.orgmode/63975 Therefore for me it seems that your lisp/org-table.el is older than testing/lisp/test-org-table.el and does not match. Are you sure you don’t have a mixed installation? What is the output of M-x org-version that would show this? Michael ^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: FIX missing case-folding in test-ob-emacs-lisp.el 2013-03-13 17:19 ` Michael Brand @ 2013-03-13 17:33 ` Andreas Röhler 0 siblings, 0 replies; 6+ messages in thread From: Andreas Röhler @ 2013-03-13 17:33 UTC (permalink / raw) To: Michael Brand; +Cc: emacs-orgmode Am 13.03.2013 18:19, schrieb Michael Brand: > Hi Andreas > > On Tue, Mar 12, 2013 at 6:12 PM, Andreas Röhler > <andreas.roehler@easy-emacs.de> wrote: >> [...] >> F test-org-table/compare >> Basic: Compare field references in Calc. >> (ert-test-failed >> ((should >> (equal expect result)) >> :form >> (equal " >> | | 0 | z | | nan | uinf | -inf | inf | >> |------+---+---+---+-----+------+------+-----| >> | 0 | x | | | | | | | >> | z | | x | | | | | | >> | | | | x | | | | | >> | nan | | | | x | | | | >> | uinf | | | | | x | | | >> | -inf | | | | | | x | | >> | inf | | | | | | | x | >> #+TBLFM: @I$<<..@>$> = if(\"$1\" = \"@1\", x, string(\"\")); E" " >> | | 0 | z | | nan | uinf | -inf | inf | >> |------+---+---+---+-----+------+------+-----| >> | 0 | x | | x | | | | | >> | z | | x | | | | | | >> | | x | | x | | | | | >> | nan | | | | x | | | | >> | uinf | | | | | x | | | >> | -inf | | | | | | x | | >> | inf | | | | | | | x | >> #+TBLFM: @I$<<..@>$> = if(\"$1\" = \"@1\", x, string(\"\")); E") >> [...] > > This and all other “test-org-table/.*” look exactly as when I was > working on some spreadsheet features: > http://article.gmane.org/gmane.emacs.orgmode/63975 > > Therefore for me it seems that your lisp/org-table.el is older than > testing/lisp/test-org-table.el and does not match. Are you sure you > don’t have a mixed installation? Hi Michael, thanks, that might be the case. Probably installed org-mode mixes up w/ loaded from source. Still trying to set up a developing environment, which should use the current trunk. emacs -Q already loads org-mode now. Maybe should unload it first. Andreas What is the output of M-x > org-version that would show this? > > Michael > ^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2013-03-13 17:32 UTC | newest] Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2013-03-12 15:45 FIX missing case-folding in test-ob-emacs-lisp.el Andreas Röhler 2013-03-12 15:59 ` Bastien 2013-03-12 16:40 ` Andreas Röhler 2013-03-12 17:12 ` Andreas Röhler 2013-03-13 17:19 ` Michael Brand 2013-03-13 17:33 ` Andreas Röhler
Code repositories for project(s) associated with this public inbox https://git.savannah.gnu.org/cgit/emacs/org-mode.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).