branch: externals/dtache
commit bf71be0eaeedb1efc283d2abd57c2d42ba0f4c64
Author: Niklas Eklund <niklas.ekl...@zenseact.com>
Commit: Niklas Eklund <niklas.ekl...@zenseact.com>
Change output-size to log-size
---
dtache.el | 10 +++++-----
test/dtache-test.el | 4 ++--
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/dtache.el b/dtache.el
index 29c6b071b5..a9258db99b 100644
--- a/dtache.el
+++ b/dtache.el
@@ -239,7 +239,7 @@ Valid values are: create, new and attach")
(action nil :read-only t)
(status nil)
(duration nil)
- (output-size nil)
+ (log-size nil)
(state nil))
;;;; Commands
@@ -484,7 +484,7 @@ compilation or shell-command the command will also kill the
window."
:redirect-only (dtache-redirect-only-p
command)
:creation-time (time-to-seconds
(current-time))
:status 'unknown
- :output-size 0
+ :log-size 0
:log-directory (file-name-as-directory
dtache-log-directory)
:host (dtache--host)
:metadata (dtache-metadata)
@@ -853,7 +853,7 @@ Sessions running on current host or localhost are updated."
(if (or (dtache--state-transition-p session)
(dtache--session-missing-p session))
(dtache--session-state-transition-update session)
- (setf (dtache--session-output-size session)
+ (setf (dtache--session-log-size session)
(file-attribute-size (file-attributes
(dtache--session-file session 'log))))
(dtache--db-update-entry session)))
@@ -989,7 +989,7 @@ Optionally make the path LOCAL to host."
(dtache--db-remove-entry session)
;; Update session
- (setf (dtache--session-output-size session)
+ (setf (dtache--session-log-size session)
(file-attribute-size
(file-attributes
(dtache--session-file session 'log))))
@@ -1114,7 +1114,7 @@ the current time is used."
(defun dtache--size-str (session)
"Return the size of SESSION's output."
(file-size-human-readable
- (dtache--session-output-size session)))
+ (dtache--session-log-size session)))
(defun dtache--status-str (session)
"Return string if SESSION has failed."
diff --git a/test/dtache-test.el b/test/dtache-test.el
index 004c9f918a..a433d1cc91 100644
--- a/test/dtache-test.el
+++ b/test/dtache-test.el
@@ -256,8 +256,8 @@
(should (string= "May 08 08:49" (dtache--creation-str
(dtache--session-create :creation-time 1620463748.7636228))))))
(ert-deftest dtache-test-size-str ()
- (should (string= "100" (dtache--size-str (dtache--session-create
:output-size 100))))
- (should (string= "1k" (dtache--size-str (dtache--session-create :output-size
1024)))))
+ (should (string= "100" (dtache--size-str (dtache--session-create :log-size
100))))
+ (should (string= "1k" (dtache--size-str (dtache--session-create :log-size
1024)))))
(ert-deftest dtache-test-status-str ()
(should (string= "!" (dtache--status-str (dtache--session-create :status
'failure))))
