* 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).