Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a2c56a90
Commit
a2c56a90
authored
Jul 02, 2019
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* test/src/editfns-tests.el (test-group-name): Accept nil group-name.
parent
0a7bc33d
Pipeline
#2227
failed with stage
in 51 minutes and 3 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
8 deletions
+8
-8
test/src/editfns-tests.el
test/src/editfns-tests.el
+8
-8
No files found.
test/src/editfns-tests.el
View file @
a2c56a90
...
...
@@ -165,10 +165,10 @@
(
should
(
string-equal
(
format
"%d"
-18446744073709551616.0
)
"-18446744073709551616"
)))
;;
;
Perhaps Emacs will be improved someday to return the correct
;;
;
answer for positive numbers instead of overflowing; in
;;
;
that case these tests will need to be changed. In the meantime make
;;
;
sure Emacs is reporting the overflow correctly.
;; Perhaps Emacs will be improved someday to return the correct
;; answer for positive numbers instead of overflowing; in
;; that case these tests will need to be changed. In the meantime make
;; sure Emacs is reporting the overflow correctly.
(
ert-deftest
format-%x-large-float
()
(
should-error
(
format
"%x"
18446744073709551616.0
)
:type
'overflow-error
))
...
...
@@ -351,10 +351,10 @@
"-0x000000003ffffffffffffffe000000000000000 "
))))
(
ert-deftest
test-group-name
()
;; FIXME: Actually my GID in one of my systems has no associated entry
;;
in /etc/group so there's no name for it and `group-name' correctly
;; return
s
nil!
(
should
(
stringp
(
group-name
(
group-
gid
))))
(
let
((
group-name
(
group-name
(
group-gid
))))
;;
If the GID has no associated entry in /etc/group there's no
;;
name for it and `group-name' should
return nil!
(
should
(
or
(
null
group-name
)
(
stringp
group-
name
))))
(
should-error
(
group-name
'foo
))
(
cond
((
memq
system-type
'
(
windows-nt
ms-dos
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment