mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add new tests to bindat-tests.el

Browse source 
* test/lisp/emacs-lisp/bindat-tests.el (bindat-test-format-vector)
(bindat-test-vector-to-dec, bindat-test-vector-to-hex)
(bindat-test-ip-to-string): New tests.
* lisp/emacs-lisp/bindat.el (bindat-vector-to-hex): Fix typo.
This commit is contained in:
Stefan Kangas 2020-04-29 09:52:34 +02:00
parent c8115e88f1
commit 702d9d86f2
2 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
test/lisp/emacs-lisp/bindat-tests.el
View file

@ -96,4 +96,20 @@
(dest-ip .
[192 168 1 100]))))))
(ert-deftest bindat-test-format-vector ()
(should (equal (bindat-format-vector [1 2 3] "%d" "x" 2) "1x2"))
(should (equal (bindat-format-vector [1 2 3] "%d" "x") "1x2x3")))
(ert-deftest bindat-test-vector-to-dec ()
(should (equal (bindat-vector-to-dec [1 2 3]) "1.2.3"))
(should (equal (bindat-vector-to-dec [2048 1024 512] ".") "2048.1024.512")))
(ert-deftest bindat-test-vector-to-hex ()
(should (equal (bindat-vector-to-hex [1 2 3]) "01:02:03"))
(should (equal (bindat-vector-to-hex [2048 1024 512] ".") "800.400.200")))
(ert-deftest bindat-test-ip-to-string ()
(should (equal (bindat-ip-to-string [192 168 0 1]) "192.168.0.1"))
(should (equal (bindat-ip-to-string "\300\250\0\1") "192.168.0.1")))
;;; bindat-tests.el ends here