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.
75 lines
1.4 KiB
75 lines
1.4 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))
|
|
)
|
|
)
|
|
|