You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
159 lines
2.8 KiB
159 lines
2.8 KiB
(ns rustint.core-test
|
|
(:require [clojure.test :refer :all]
|
|
[rustint.core :refer :all]))
|
|
|
|
(deftest pasar-a-float-test01
|
|
(testing "Test 01 pasar-a-float"
|
|
(is (= (pasar-a-float 10) 10.0))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-float-test02
|
|
(testing "Test 02 pasar-a-float"
|
|
(is (= (pasar-a-float "10") 10.0))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-float-test03
|
|
(testing "Test 03 pasar-a-float"
|
|
(is (= (pasar-a-float 10.0) 10.0))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-float-test04
|
|
(testing "Test 04 pasar-a-float"
|
|
(is (= (pasar-a-float 'a) 'a))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-float-test05
|
|
(testing "Test 05 pasar-a-float"
|
|
(is (= (pasar-a-float [10]) [10]))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-int-test01
|
|
(testing "Test 01 int pasar-a-int"
|
|
(is (= (pasar-a-int "10") 10))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-int-test02
|
|
(testing "Test 02 int pasar-a-int"
|
|
(is (= (pasar-a-int 10.0) 10))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-int-test03
|
|
(testing "Test 03 int pasar-a-int"
|
|
(is (= (pasar-a-int 10) 10))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-int-test04
|
|
(testing "Test 04 int pasar-a-int"
|
|
(is (= (pasar-a-int 'a) 'a))
|
|
)
|
|
)
|
|
|
|
(deftest pasar-a-int-test05
|
|
(testing "Test 05 int pasar-a-int"
|
|
(is (= (pasar-a-int [10]) [10]))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test01
|
|
(testing "Test 01 compatibles?"
|
|
(is (= (compatibles? 'i64 5) true))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test02
|
|
(testing "Test 02 compatibles?"
|
|
(is (= (compatibles? 'i64 5.0) false))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test03
|
|
(testing "Test 03 compatibles?"
|
|
(is (= (compatibles? 'i64 [5.0]) true))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test04
|
|
(testing "Test 04 compatibles?"
|
|
(is (= (compatibles? 'f64 5.0) true))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test05
|
|
(testing "Test 05 compatibles?"
|
|
(is (= (compatibles? 'String "Hola") true))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test06
|
|
(testing "Test 06 compatibles?"
|
|
(is (= (compatibles? 'bool true) true))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test07
|
|
(testing "Test 07 compatibles?"
|
|
(is (= (compatibles? 'bool 1) false))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test08
|
|
(testing "Test 08 compatibles?"
|
|
(is (= (compatibles? 'usize 1) true))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test09
|
|
(testing "Test 09 compatibles?"
|
|
(is (= (compatibles? 'char \a) true))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test10
|
|
(testing "Test 10 compatibles?"
|
|
(is (= (compatibles? 'char 'a) false))
|
|
)
|
|
)
|
|
|
|
(deftest compatibles-test11
|
|
(testing "Test 11 compatibles?"
|
|
(is (= (compatibles? 'char ['a]) true))
|
|
)
|
|
)
|
|
|
|
(deftest dividir-test01
|
|
(testing "Test 01 dividir"
|
|
(is (= (dividir 12 3) 4))
|
|
)
|
|
)
|
|
|
|
(deftest dividir-test02
|
|
(testing "Test 02 dividir"
|
|
(is (= (dividir 12.0 3) 4.0))
|
|
)
|
|
)
|
|
|
|
(deftest dividir-test03
|
|
(testing "Test 03 dividir"
|
|
(is (= (dividir 12 3.0) 4.0))
|
|
)
|
|
)
|
|
|
|
(deftest dividir-test04
|
|
(testing "Test 04h dividir"
|
|
(is (= (dividir 12.0 3.0) 4.0))
|
|
)
|
|
)
|
|
|
|
(deftest dividir-test05
|
|
(testing "Test 05 dividir"
|
|
(is (= (dividir 1 2) 0))
|
|
)
|
|
)
|
|
|