Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f8654242
Commit
f8654242
authored
Aug 03, 2013
by
Glenn Morris
Browse files
* test/automated/icalendar-tests.el (icalendar-tests--test-export)
(icalendar-tests--test-import): Remove debug messages.
parent
f0b79313
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
4 deletions
+9
-4
test/ChangeLog
test/ChangeLog
+1
-0
test/automated/icalendar-tests.el
test/automated/icalendar-tests.el
+8
-4
No files found.
test/ChangeLog
View file @
f8654242
...
...
@@ -2,6 +2,7 @@
* automated/icalendar-tests.el (icalendar-tests--test-export)
(icalendar-tests--test-import): Try more precise TZ specification.
Remove debug messages.
2013-08-03 Glenn Morris <rgm@gnu.org>
...
...
test/automated/icalendar-tests.el
View file @
f8654242
...
...
@@ -433,9 +433,11 @@ and ISO style input data must use english month names."
(
icalendar-recurring-start-year
2000
))
(
unwind-protect
(
progn
(
message
"Current time zone: %s"
(
current-time-zone
))
;;; (message "Current time zone: %s" (current-time-zone))
;; Use this form so as not to rely on system tz database.
;; Eg hydra.nixos.org.
(
setenv
"TZ"
"CET-1CEST,M3.5.0/2,M10.5.0/3"
)
(
message
"Current time zone: %s"
(
current-time-zone
))
;;;
(message "Current time zone: %s" (current-time-zone))
(
when
input-iso
(
let
((
calendar-month-name-array
[
"January"
"February"
"March"
"April"
"May"
"June"
"July"
"August"
...
...
@@ -676,9 +678,11 @@ Argument EXPECTED-AMERICAN expected american style diary string."
(
let
((
timezone
(
getenv
"TZ"
)))
(
unwind-protect
(
progn
(
message
"Current time zone: %s"
(
current-time-zone
))
;;; (message "Current time zone: %s" (current-time-zone))
;; Use this form so as not to rely on system tz database.
;; Eg hydra.nixos.org.
(
setenv
"TZ"
"CET-1CEST,M3.5.0/2,M10.5.0/3"
)
(
message
"Current time zone: %s"
(
current-time-zone
))
;;;
(message "Current time zone: %s" (current-time-zone))
(
with-temp-buffer
(
if
(
string-match
"^BEGIN:VCALENDAR"
input
)
(
insert
input
)
...
...
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