mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

* testing/lisp/test-ob-haskell-ghci.el: Enable fixed tests 

(ob-haskell/hello-world-output-multilines):
(ob-haskell/let-multilines-1):
(ob-haskell/let-multilines-2):
(ob-haskell/primes):
(ob-haskell/not-defined-then-defined-1-fixed): Re-enable tests.
This commit is contained in:
Ihor Radchenko 2023-03-24 11:26:00 +01:00
parent d6dd92d442
commit b852172170
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
testing/lisp/test-ob-haskell-ghci.el
View File

@ -93,7 +93,6 @@ before the code block. When UNPROTECTED is non-nil, check pre/post conditions."
(test-ob-haskell-ghci ":results output" "return \"Hello World!\""))))
(ert-deftest ob-haskell/hello-world-output-multilines ()
:expected-result :failed
(should (equal "Hello World!"
(test-ob-haskell-ghci ":results output" "
:{
@ -163,7 +162,6 @@ return \"useless\"
(ert-deftest ob-haskell/let-multilines-1 ()
"Local definitions on multiple lines."
:expected-result :failed
(should (equal 6 (test-ob-haskell-ghci "" "
:{
let { x=2
@ -175,7 +173,6 @@ return \"useless\"
(ert-deftest ob-haskell/let-multilines-2 ()
"Local definitions on multiple lines, relying on indentation."
:expected-result :failed
(should (equal 6 (test-ob-haskell-ghci "" "
:{
let x=2
@ -210,7 +207,6 @@ length' [1..5]
(ert-deftest ob-haskell/primes ()
"From haskell.org."""
:expected-result :failed
(should (equal '(2 3 5 7 11 13 17 19 23 29)
(test-ob-haskell-ghci "" "
:{
@ -336,7 +332,6 @@ v = 4
(ert-deftest ob-haskell/not-defined-then-defined-1-fixed ()
"Like not-defined-then-defined-1, but using the mutiline marks."
:expected-result :failed
(let ((r (test-ob-haskell-ghci "" "
:{
v :: Int