From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?ISO-8859-1?Q?Andreas_R=F6hler?= Subject: Re: FIX missing case-folding in test-ob-emacs-lisp.el Date: Tue, 12 Mar 2013 18:12:44 +0100 Message-ID: <513F620C.6010207@easy-emacs.de> References: <513F4D96.6000702@easy-emacs.de> <87r4jkzk12.fsf@bzg.ath.cx> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([208.118.235.92]:54020) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UFSsg-0003Lp-S2 for emacs-orgmode@gnu.org; Tue, 12 Mar 2013 13:24:42 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UFSk0-0007GH-1P for emacs-orgmode@gnu.org; Tue, 12 Mar 2013 13:15:37 -0400 Received: from moutng.kundenserver.de ([212.227.17.9]:59735) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UFSjz-0007GB-JV for emacs-orgmode@gnu.org; Tue, 12 Mar 2013 13:11:55 -0400 In-Reply-To: <87r4jkzk12.fsf@bzg.ath.cx> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bastien Cc: emacs-orgmode Am 12.03.2013 16:59, schrieb Bastien: > Hi Andreas, > > Andreas Röhler 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 "
    \n
  • a\n
    • \n
" (with-temp-buffer (insert "\n\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 "
    \n
  • a\n
    • \n
" "
    \n
  • a
    • \n
") :value nil :explanation (arrays-of-different-length 37 21 "
    \n
  • a\n
    • \n
" "
    \n
  • a
    • \n
" 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 "<> <<>> : <>" (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)