From: "Andreas Röhler" <andreas.roehler@easy-emacs.de>
To: Bastien <bzg@altern.org>
Cc: emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: FIX missing case-folding in test-ob-emacs-lisp.el
Date: Tue, 12 Mar 2013 18:12:44 +0100 [thread overview]
Message-ID: <513F620C.6010207@easy-emacs.de> (raw)
In-Reply-To: <87r4jkzk12.fsf@bzg.ath.cx>
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)
next prev parent reply other threads:[~2013-03-12 17:24 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
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 [this message]
2013-03-13 17:19 ` Michael Brand
2013-03-13 17:33 ` Andreas Röhler
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=513F620C.6010207@easy-emacs.de \
--to=andreas.roehler@easy-emacs.de \
--cc=bzg@altern.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).