about summary refs log tree commit diff
path: root/users/wpcarro/emacs/pkgs/bytes/tests.el
blob: 9b71a466c736a27d667906486971f4d4569e8b66 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'ert)
(require 'bytes)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(ert-deftest bytes-to-string ()
  (should (equal "1000B" (bytes-to-string 1000)))
  (should (equal "2KB" (bytes-to-string (* 2 bytes-kb))))
  (should (equal "17MB" (bytes-to-string (* 17 bytes-mb))))
  (should (equal "419GB" (bytes-to-string (* 419 bytes-gb))))
  (should (equal "999TB" (bytes-to-string (* 999 bytes-tb))))
  (should (equal "2PB" (bytes-to-string (* 2 bytes-pb)))))