Add tests for ffirst, fnext, last, nfirst, and nnext

test/clojure/core_test/ffirst.cljc

@@ -0,0 +1,33 @@
+(ns clojure.core-test.ffirst
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/ffirst
+  (deftest test-ffirst
+    (testing "common"
+      (is (= nil (ffirst '())))
+      (is (= nil (ffirst [])))
+      (is (= nil (ffirst {})))
+      (is (= nil (ffirst #{})))
+      (is (= nil (ffirst nil)))
+      (is (= :a (ffirst {:a :b})))
+      (is (= 0 (ffirst [[0 1] [2 3]])))
+      (is (= 0 (ffirst '([0 1] [2 3]))))
+      (is (= 0 (ffirst (repeat (range)))))
+      (is (= 0 (ffirst [(range)])))
+      (is (= \a (ffirst ["ab" "cd"])))
+      (is (= \a (ffirst ["abcd"])))
+      (is (= \a (ffirst #{"abcd"}))))
+
+    (testing "exceptions"
+      #?@(:clj 
+          [(is (thrown? Exception (ffirst (range 0 10))))
+               (is (thrown? Exception (ffirst (range))))          ; infinite lazy seq
+               (is (thrown? Exception (ffirst [:a :b :c])))
+               (is (thrown? Exception (ffirst '(:a :b :c))))]
+              :cljs 
+              [(is (thrown? js/Error (ffirst (range 0 10))))
+               (is (thrown? js/Error (ffirst (range))))          ; infinite lazy seq
+               (is (thrown? js/Error (ffirst [:a :b :c])))
+               (is (thrown? js/Error (ffirst '(:a :b :c))))]))))

test/clojure/core_test/fnext.cljc

@@ -0,0 +1,32 @@
+(ns clojure.core-test.fnext
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/fnext
+  (deftest test-fnext
+    (testing "section name"
+      (is (= nil (fnext '())))
+      (is (= nil (fnext [])))
+      (is (= nil (fnext {})))
+      (is (= nil (fnext #{})))
+      (is (= nil (fnext nil)))
+      (is (= nil (fnext "")))
+      (is (= nil (fnext "a")))
+      (is (= nil (fnext {:a :b})))
+      (is (= :b (fnext [:a :b])))
+      (is (= 1 (fnext (range 0 10))))
+      (is (= 1 (fnext (range))))                         ; infinite lazy seq
+      (is (= [2 3] (fnext [[0 1] [2 3]])))
+      (is (= '(2 3) (fnext '([0 1] [2 3]))))
+      (is (= \b (fnext "abcd")))
+      (is (= "cd" (fnext ["ab" "cd"])))
+      (is (= nil (fnext ["abcd"])))
+      (is (= nil (fnext #{"abcd"}))))
+
+    (testing "exceptions"
+      #?@(:clj 
+          [(is (thrown? Exception (fnext 0)))
+           (is (thrown? Exception (fnext \a )))]
+          :cljs 
+          [(is (thrown? js/Error (fnext 0)))]))))

test/clojure/core_test/last.cljc

@@ -0,0 +1,24 @@
+(ns clojure.core-test.last
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/last
+  (deftest test-last
+    (testing "common"
+      (is (= 9 (last (range 0 10))))
+      (is (= :c (last [:a :b :c])))
+      (is (= :c (last '(:a :b :c))))
+      (is (= \d (last "abcd")))
+      (is (= \a (last "a")))
+      (is (= nil (last '())))
+      (is (= nil (last [])))
+      (is (= nil (last #{})))
+      (is (= nil (last nil))))
+
+    (testing "exceptions"
+      #?@(:clj 
+          [(is (thrown? Exception (last \a)))
+           (is (thrown? Exception (last 0)))]
+          :cljs 
+          [(is (thrown? js/Error (last 0)))]))))

test/clojure/core_test/nfirst.cljc

@@ -0,0 +1,33 @@
+(ns clojure.core-test.nfirst
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/nfirst
+  (deftest test-nfirst
+    (testing "common"
+      (is (= nil (nfirst '())))
+      (is (= nil (nfirst [])))
+      (is (= nil (nfirst {})))
+      (is (= nil (nfirst #{})))
+      (is (= nil (nfirst nil)))
+      (is (= nil (nfirst "")))
+      (is (= '(:b) (nfirst {:a :b})))
+      (is (= '(1) (nfirst [[0 1] [2 3]])))
+      (is (= '(1) (nfirst '([0 1] [2 3]))))
+      (is (= '(1 2 3 4) (nfirst (repeat (range 0 5)))))
+      (is (= '(\b) (nfirst ["ab" "cd"])))
+      (is (= '(\b \c \d) (nfirst ["abcd"])))
+      (is (= '(\b \c \d) (nfirst #{"abcd"}))))
+
+    (testing "exceptions"
+      #?@(:clj 
+          [(is (thrown? Exception (nfirst (range 0 10))))
+               (is (thrown? Exception (nfirst (range))))          ; infinite lazy seq
+               (is (thrown? Exception (nfirst [:a :b :c])))
+               (is (thrown? Exception (nfirst '(:a :b :c))))]
+              :cljs 
+              [(is (thrown? js/Error (nfirst (range 0 10))))
+               (is (thrown? js/Error (nfirst (range))))          ; infinite lazy seq
+               (is (thrown? js/Error (nfirst [:a :b :c])))
+               (is (thrown? js/Error (nfirst '(:a :b :c))))]))))

test/clojure/core_test/nnext.cljc

@@ -0,0 +1,16 @@
+(ns clojure.core-test.nnext
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/nnext
+  (deftest test-nnext
+    (testing "common"
+      (is (= '(2 3 4 5 6 7 8 9) (nnext (range 0 10))))
+      (is (= 2 (first (nnext (range)))))        ; infinite lazy seq
+      (is (= '(3) (nnext [1 2 3])))
+      (is (= '([:c 3] [:d 4]) (nnext {:a 1, :b 2, :c 3, :d 4})))
+      (is (nil? (nnext nil)))
+      (is (nil? (nnext '())))
+      (is (nil? (nnext [])))
+      (is (nil? (nnext #{}))))))