[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] FIX missing case-folding in test-ob-emacs-lisp.el
|
From: |
Andreas Röhler |
|
Subject: |
Re: [O] FIX missing case-folding in test-ob-emacs-lisp.el |
|
Date: |
Tue, 12 Mar 2013 18:12:44 +0100 |
|
User-agent: |
Mozilla/5.0 (X11; Linux i686; rv:17.0) Gecko/20130215 Thunderbird/17.0.3 |
Am 12.03.2013 16:59, schrieb Bastien:
Hi Andreas,
Andreas Röhler <address@hidden> 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 "@address@hidden address@hidden itemize"
(with-temp-buffer
(insert "@c BEGIN RECEIVE ORGLST address@hidden END RECEIVE ORGLST
address@hidden: SEND name org-list-to-texinfo\n- address@hidden 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 "@address@hidden address@hidden itemize" "@address@hidden@end
enumerate")
:value nil :explanation
(arrays-of-different-length 31 33 "@address@hidden address@hidden itemize"
"@address@hidden@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 = '(/ (+ @address@hidden) (length '(@address@hidden))); N :: $7 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); EN
:: $8 = '(/ (+ @address@hidden) (length '(@address@hidden))); EN" "
| | | 5 | 7 | 3 | 6 | 3 | 3 |
#+TBLFM: $5 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); N :: $6 = '(/ (+ @address@hidden) (length '(@address@hidden))); N :: $7 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); EN
:: $8 = '(/ (+ @address@hidden) (length '(@address@hidden))); 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(@address@hidden); E :: $7 = vlen($1..$2); E :: $8 = vlen(@address@hidden); 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(@address@hidden); E :: $7 = vlen($1..$2); E :: $8 = vlen(@address@hidden);
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(@address@hidden); E :: $7 = vlen($1..$2); E :: $8 = vlen(@address@hidden); 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(@address@hidden); E :: $7 = vlen($1..$2); E :: $8 = vlen(@address@hidden);
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(@address@hidden); EN :: $7 = vlen($1..$2); EN :: $8 = vlen(@address@hidden);
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(@address@hidden); EN :: $7 = vlen($1..$2); EN :: $8 = vlen(@address@hidden);
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 =
'(+ @address@hidden); L :: $7 = '(length '($1..$2)); L :: $8 = '(length '(@address@hidden));
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 = '(+ @address@hidden); L :: $7 = '(length '($1..$2)); L :: $8 = '(length
'(@address@hidden)); 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 = '(+
@address@hidden); N :: $7 = '(length '($1..$2)); N :: $8 = '(length '(@address@hidden));
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 =
'(+ @address@hidden); N :: $7 = '(length '($1..$2)); N :: $8 = '(length
'(@address@hidden)); 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(@address@hidden) :: $7
= vlen($1..$2) :: $8 = vlen(@address@hidden)" "
| 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(@address@hidden)
:: $7 = vlen($1..$2) :: $8 = vlen(@address@hidden)")
: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)