138 lines
3 KiB
Clojure
138 lines
3 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.native
|
||
|
|
|
||
|
|
""
|
||
|
|
|
||
|
|
{:author "Adam Helinski"}
|
||
|
|
|
||
|
|
(:require [clojure.test :as t]
|
||
|
|
[helins.binf.native :as binf.native]))
|
||
|
|
|
||
|
|
|
||
|
|
;;;;;;;;;;
|
||
|
|
|
||
|
|
|
||
|
|
(def n-byte
|
||
|
|
64)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(def ptr
|
||
|
|
(binf.native/alloc n-byte))
|
||
|
|
|
||
|
|
;;;;;
|
||
|
|
|
||
|
|
|
||
|
|
(t/deftest copy
|
||
|
|
|
||
|
|
(let [ptr (binf.native/alloc 64)]
|
||
|
|
|
||
|
|
(binf.native/w-b64 ptr
|
||
|
|
42)
|
||
|
|
(binf.native/copy (+ ptr
|
||
|
|
8)
|
||
|
|
ptr
|
||
|
|
8)
|
||
|
|
(t/is (= 42
|
||
|
|
(binf.native/r-b64 (+ ptr
|
||
|
|
8)))
|
||
|
|
"From low address to high")
|
||
|
|
|
||
|
|
(binf.native/w-b64 (+ ptr
|
||
|
|
8)
|
||
|
|
100)
|
||
|
|
(binf.native/copy ptr
|
||
|
|
(+ ptr
|
||
|
|
8)
|
||
|
|
8)
|
||
|
|
(t/is (= 100
|
||
|
|
(binf.native/r-b64 ptr))
|
||
|
|
"From high address to low")
|
||
|
|
|
||
|
|
(binf.native/copy (inc ptr)
|
||
|
|
ptr
|
||
|
|
24)
|
||
|
|
(t/is (= 100
|
||
|
|
(binf.native/r-b64 (inc ptr)))
|
||
|
|
"No corruption when dest address overlaps src address")))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(t/deftest free
|
||
|
|
|
||
|
|
(t/is (nil? (binf.native/free (binf.native/alloc 4)))))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(t/deftest realloc
|
||
|
|
|
||
|
|
(t/is (not (zero? (binf.native/realloc (binf.native/alloc 4)
|
||
|
|
8)))))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(t/deftest rw
|
||
|
|
|
||
|
|
(t/is (= -42
|
||
|
|
(do
|
||
|
|
(binf.native/w-b8 ptr
|
||
|
|
-42)
|
||
|
|
(binf.native/r-i8 ptr))
|
||
|
|
(do
|
||
|
|
(binf.native/w-b16 ptr
|
||
|
|
-42)
|
||
|
|
(binf.native/r-i16 ptr))
|
||
|
|
(do
|
||
|
|
(binf.native/w-b32 ptr
|
||
|
|
-42)
|
||
|
|
(binf.native/r-i32 ptr))
|
||
|
|
(do
|
||
|
|
(binf.native/w-b64 ptr
|
||
|
|
-42)
|
||
|
|
(binf.native/r-b64 ptr)))
|
||
|
|
"Signed")
|
||
|
|
|
||
|
|
(t/is (= 42
|
||
|
|
(do
|
||
|
|
(binf.native/w-b8 ptr
|
||
|
|
42)
|
||
|
|
(binf.native/r-u8 ptr))
|
||
|
|
(do
|
||
|
|
(binf.native/w-b16 ptr
|
||
|
|
42)
|
||
|
|
(binf.native/r-u16 ptr))
|
||
|
|
(do
|
||
|
|
(binf.native/w-b32 ptr
|
||
|
|
42)
|
||
|
|
(binf.native/r-u32 ptr))
|
||
|
|
(do
|
||
|
|
(binf.native/w-b64 ptr
|
||
|
|
42)
|
||
|
|
(binf.native/r-b64 ptr)))
|
||
|
|
"Unsigned")
|
||
|
|
|
||
|
|
(t/is (= (float 42.24)
|
||
|
|
(do
|
||
|
|
(binf.native/w-f32 ptr
|
||
|
|
42.24)
|
||
|
|
(binf.native/r-f32 ptr)))
|
||
|
|
"f32")
|
||
|
|
|
||
|
|
(t/is (= 42.24
|
||
|
|
(do
|
||
|
|
(binf.native/w-f64 ptr
|
||
|
|
42.24)
|
||
|
|
(binf.native/r-f64 ptr)))
|
||
|
|
"f64")
|
||
|
|
|
||
|
|
(t/is (= 0xffffffff
|
||
|
|
(do
|
||
|
|
(binf.native/w-ptr ptr
|
||
|
|
0xffffffff)
|
||
|
|
(binf.native/r-ptr ptr)))
|
||
|
|
"ptr"))
|