92 lines
2.4 KiB
Clojure
92 lines
2.4 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at https://mozilla.org/MPL/2.0/.
|
|
|
|
|
|
(ns helins.binf.test.int
|
|
|
|
{:author "Adam Helins"}
|
|
|
|
(:require [clojure.test :as t]
|
|
[helins.binf.int :as binf.int]
|
|
[helins.binf.int64 :as binf.int64]))
|
|
|
|
|
|
;;;;;;;;;;
|
|
|
|
|
|
(t/deftest casting
|
|
|
|
(t/are [n-bit fi fu]
|
|
(let [value (dec (binf.int/from-float (Math/pow 2
|
|
n-bit)))]
|
|
(t/is (= value
|
|
(-> value
|
|
fu
|
|
fi
|
|
fu
|
|
fi
|
|
fu))))
|
|
8 binf.int/i8 binf.int/u8
|
|
16 binf.int/i16 binf.int/u16
|
|
32 binf.int/i32 binf.int/u32))
|
|
|
|
|
|
|
|
(t/deftest byte-combining
|
|
|
|
(t/is (= 0x1122
|
|
(binf.int/i16 0x11
|
|
0x22)
|
|
(binf.int/u16 0x11
|
|
0x22))
|
|
"16-bits")
|
|
|
|
(t/is (= 0x11223344
|
|
(binf.int/i32 0x11
|
|
0x22
|
|
0x33
|
|
0x44)
|
|
(binf.int/i32 0x1122
|
|
0x3344)
|
|
(binf.int/u32 0x11
|
|
0x22
|
|
0x33
|
|
0x44)
|
|
(binf.int/u32 0x1122
|
|
0x3344))
|
|
"32-bit")
|
|
|
|
(t/is (= (binf.int64/i* 0x1122334455667788)
|
|
(binf.int/i64 0x11
|
|
0x22
|
|
0x33
|
|
0x44
|
|
0x55
|
|
0x66
|
|
0x77
|
|
0x88)
|
|
(binf.int/i64 0x1122
|
|
0x3344
|
|
0x5566
|
|
0x7788)
|
|
(binf.int/i64 0x11223344
|
|
0x55667788))
|
|
"Signed 64-bit")
|
|
|
|
(t/is (= (binf.int64/u* 0x1122334455667788)
|
|
(binf.int/u64 0x11
|
|
0x22
|
|
0x33
|
|
0x44
|
|
0x55
|
|
0x66
|
|
0x77
|
|
0x88)
|
|
(binf.int/u64 0x1122
|
|
0x3344
|
|
0x5566
|
|
0x7788)
|
|
(binf.int/u64 0x11223344
|
|
0x55667788))
|
|
"Unsigned 64-bit"))
|