luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests

Browse source
This commit is contained in:
Michiel Borkent 2021-04-14 17:30:54 +02:00
parent 67ace2f676
commit 92557ad2dc
3 changed files with 31 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/babashka/impl/classes.clj
View file

@ -353,7 +353,13 @@
(instance? java.util.stream.BaseStream v) (instance? java.util.stream.BaseStream v)
java.util.stream.BaseStream java.util.stream.BaseStream
(instance? java.nio.ByteBuffer v) (instance? java.nio.ByteBuffer v)
java.nio.ByteBuffer))))) java.nio.ByteBuffer
(instance? java.nio.charset.Charset v)
java.nio.charset.Charset
(instance? java.nio.charset.CharsetEncoder v)
java.nio.charset.CharsetEncoder
(instance? java.nio.CharBuffer v)
java.nio.CharBuffer)))))
(def class-map (gen-class-map)) (def class-map (gen-class-map))

42
test-resources/lib_tests/helins/binf/test.cljc
View file

@ -2,7 +2,6 @@
;; License, v. 2.0. If a copy of the MPL was not distributed with this ;; 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/. ;; file, You can obtain one at https://mozilla.org/MPL/2.0/.
(ns helins.binf.test (ns helins.binf.test
{:author "Adam Helins"} {:author "Adam Helins"}
@ -12,11 +11,10 @@
[helins.binf.buffer :as binf.buffer] [helins.binf.buffer :as binf.buffer]
[helins.binf.int :as binf.int] [helins.binf.int :as binf.int]
[helins.binf.int64 :as binf.int64] [helins.binf.int64 :as binf.int64]
#?(:clj [helins.binf.native :as binf.native]) #?@(:bb [] :clj [[helins.binf.native :as binf.native]])
[helins.binf.test.buffer :as binf.test.buffer] [helins.binf.test.buffer :as binf.test.buffer]
[helins.binf.test.string :as binf.test.string])) [helins.binf.test.string :as binf.test.string]))
#?(:clj (set! *warn-on-reflection* #?(:clj (set! *warn-on-reflection*
true)) true))
@ -42,7 +40,8 @@
(binf/endian-set :little-endian))) (binf/endian-set :little-endian)))
#?(:clj (def view-native #?(:bb nil
:clj (def view-native
(binf/endian-set (binf.native/view size) (binf/endian-set (binf.native/view size)
:little-endian))) :little-endian)))
@ -53,8 +52,8 @@
(binf/endian-set :little-endian)))) (binf/endian-set :little-endian))))
;; view native not supported in bb
(t/deftest buffer->view #_(t/deftest buffer->view
;; Without offset nor size ;; Without offset nor size
@ -137,7 +136,7 @@
;; With offset ;; With offset
(let [v (binf/view view #_(let [v (binf/view view
offset) offset)
#?@(:clj [v-native (binf/view view-native #?@(:clj [v-native (binf/view view-native
offset)])] offset)])]
@ -163,7 +162,7 @@
;; With offset and size ;; With offset and size
(let [v (binf/view view #_(let [v (binf/view view
offset offset
size-2) size-2)
#?@(:clj [v-native (binf/view view-native #?@(:clj [v-native (binf/view view-native
@ -199,12 +198,11 @@
#?(:clj (defn view-8-native ;; #?(:clj (defn view-8-native
[] ;; []
(binf.native/view 8)))
;; (binf.native/view 8)))
#?(:cljs (defn view-8-shared #?(:cljs (defn view-8-shared
@ -311,7 +309,7 @@
#?(:clj (t/deftest view-uints-native #?(:clj (t/deftest view-uints-native
(-view-uints view-8-native))) #_(-view-uints view-8-native)))
@ -329,7 +327,7 @@
#?(:clj (t/deftest view-i64-native #?(:clj (t/deftest view-i64-native
(-view-i64 view-8-native))) #_(-view-i64 view-8-native)))
@ -347,7 +345,7 @@
#?(:clj (t/deftest view-f32-native #?(:clj (t/deftest view-f32-native
(-view-f32 view-8-native))) #_(-view-f32 view-8-native)))
@ -359,7 +357,7 @@
#?(:clj (t/deftest view-f64-native #?(:clj (t/deftest view-f64-native
(-view-f64 view-8-native))) #_(-view-f64 view-8-native)))
@ -447,7 +445,8 @@
#?(:clj (t/deftest rwa-buffer-native #?(:bb nil
:clj (t/deftest rwa-buffer-native
(-rwa-buffer (binf.native/view copy-size)))) (-rwa-buffer (binf.native/view copy-size))))
@ -465,7 +464,8 @@
#?(:clj (t/deftest rwr-buffer-shared #?(:bb nil
:clj (t/deftest rwr-buffer-shared
(-rwr-buffer (binf.native/view copy-size)))) (-rwr-buffer (binf.native/view copy-size))))
@ -564,7 +564,8 @@
#?(:clj (t/deftest a-string-native #?(:bb nil
:clj (t/deftest a-string-native
(-a-string #(binf.native/view 1024)))) (-a-string #(binf.native/view 1024))))
@ -576,7 +577,8 @@
#?(:clj (t/deftest r-string-native #?(:bb nil
:clj (t/deftest r-string-native
(-r-string #(binf.native/view 1024)))) (-r-string #(binf.native/view 1024))))

4
test-resources/lib_tests/helins/binf/test/string.cljc
View file

@ -10,7 +10,7 @@
{:author "Adam Helinski"} {:author "Adam Helinski"}
(:require [clojure.test :as t] (:require [clojure.test :as t]
[clojure.test.check.clojure-test :as tc.ct] #?@(:bb [] :clj [clojure.test.check.clojure-test :as tc.ct])
[clojure.test.check.generators :as tc.gen] [clojure.test.check.generators :as tc.gen]
[clojure.test.check.properties :as tc.prop] [clojure.test.check.properties :as tc.prop]
[helins.binf.string :as binf.string])) [helins.binf.string :as binf.string]))
@ -33,7 +33,7 @@
(tc.ct/defspec gen #_(tc.ct/defspec gen
(tc.prop/for-all [string tc.gen/string] (tc.prop/for-all [string tc.gen/string]
(= string (= string