bbad770cf2
Another meh package, but let's finish the job and package it up. Change-Id: I7852a776c93c8c6717878a5ee0742287d2d23052 Reviewed-on: https://cl.tvl.fyi/c/depot/+/7394 Reviewed-by: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
18 lines
767 B
EmacsLisp
18 lines
767 B
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; 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)))))
|