procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Port mod-test to x86-64 GNU/Linux running 32-bit

Browse source 
* modules/mod-test/test.el (mod-test-sum-test):
Don’t attempt to match descriptions to operating systems.
It didn’t work on Fedora x86-64 running a 32-bit executable,
and it’s not worth the trouble anyway.
Port to 32-bit platforms by removing an assumption about
fixnum widths.
This commit is contained in:
Paul Eggert 2015-12-06 08:55:30 -08:00
parent 8b87522925
commit 2b3f5de2b3
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
modules/mod-test/test.el
View file

@ -34,11 +34,9 @@
(should (stringp (nth 1 descr)))
(should (eq 0
(string-match
(if (eq system-type 'windows-nt)
"#<module function at \\(0x\\)?[0-9a-fA-F]+ from .*>"
(if (eq system-type 'cygwin)
"#<module function at \\(0x\\)?[0-9a-fA-F]+>"
"#<module function Fmod_test_sum from .*>"))
(concat "#<module function "
"\\(at \\(0x\\)?[0-9a-fA-F]+\\( from .*\\)?"
"\\|Fmod_test_sum from .*\\)>")
(nth 1 descr))))
(should (= (nth 2 descr) 3)))
(should-error (mod-test-sum "1" 2) :type 'wrong-type-argument)
@ -48,10 +46,10 @@
(1- most-positive-fixnum)))
(should (= (mod-test-sum 1 most-negative-fixnum)
(1+ most-negative-fixnum)))
(should (= (mod-test-sum 1 #x1fffffff)
(1+ #x1fffffff)))
(should (= (mod-test-sum -1 #x20000000)
#x1fffffff)))
(should-error (mod-test-sum 1 most-positive-fixnum)
:type 'overflow-error)
(should-error (mod-test-sum -1 most-negative-fixnum)
:type 'overflow-error))
(ert-deftest mod-test-sum-docstring ()
(should (string= (documentation 'mod-test-sum) "Return A + B")))