Revert "[clojure][generator] ndarray/symbol api random merged (#14800)"

This reverts commit 5dd9fa2.

contrib/clojure-package/src/org/apache/clojure_mxnet/ndarray_api.clj

@@ -16,10 +16,10 @@
 
 (ns org.apache.clojure-mxnet.ndarray-api
   "Experimental NDArray API"
-  (:refer-clojure
-    :exclude [* - + > >= < <= / cast concat flatten identity load max
-              min repeat reverse set sort take to-array empty shuffle
-              ref])
+  (:refer-clojure :exclude [* - + > >= < <= / cast concat flatten identity load max
+                            min repeat reverse set sort take to-array empty shuffle
+                            ref])
+
   (:require [org.apache.clojure-mxnet.base :as base]
             [org.apache.clojure-mxnet.context :as mx-context]
             [org.apache.clojure-mxnet.shape :as mx-shape]

contrib/clojure-package/test/dev/generator_test.clj

@@ -27,20 +27,6 @@
   (is (= "foo-bar" (gen/clojure-case "Foo_Bar")))
   (is (= "div+" (gen/clojure-case "/+"))))
 
-(deftest fn-name->random-fn-name
-  (is (= "poisson" (gen/fn-name->random-fn-name "-random-poisson")))
-  (is (= "poisson-like" (gen/fn-name->random-fn-name "-sample-poisson"))))
-
-(deftest remove-prefix
-  (is (= "randint" (gen/remove-prefix "-random-" "-random-randint")))
-  (is (= "exponential" (gen/remove-prefix "-sample-" "-sample-exponential"))))
-
-(deftest in-namespace-random?
-  (is (gen/in-namespace-random? "random_randint"))
-  (is (gen/in-namespace-random? "sample_poisson"))
-  (is (not (gen/in-namespace-random? "rnn")))
-  (is (not (gen/in-namespace-random? "activation"))))
-
 (defn ndarray-reflect-info [name]
   (->> gen/ndarray-public-no-default
        (filter #(= name (str (:name %))))
@@ -331,25 +317,14 @@
 (deftest test-write-to-file
   (testing "symbol-api"
     (let [fname "test/test-symbol-api.clj"
-          fns (gen/all-symbol-api-functions gen/op-names)
-          _ (gen/write-to-file [(first fns) (second fns)]
-                               (gen/symbol-api-gen-ns false)
+          _ (gen/write-to-file [(first gen/all-symbol-api-functions)
+                                (second gen/all-symbol-api-functions)]
+                               gen/symbol-api-gen-ns
                                fname)
           good-contents (slurp "test/good-test-symbol-api.clj")
           contents (slurp fname)]
       (is (= good-contents contents))))
 
-  (testing "symbol-random-api"
-    (let [fname "test/test-symbol-random-api.clj"
-          fns (gen/all-symbol-random-api-functions gen/op-names)
-          _ (gen/write-to-file [(first fns) (second fns)]
-                               (gen/symbol-api-gen-ns true)
-                               fname)
-          good-contents (slurp "test/good-test-symbol-random-api.clj")
-          contents (slurp fname)]
-      (is (= good-contents contents))))
-
-
  (testing "symbol"
     (let [fname "test/test-symbol.clj"
           _ (gen/write-to-file [(first gen/all-symbol-functions)]
@@ -361,24 +336,14 @@
 
   (testing "ndarray-api"
     (let [fname "test/test-ndarray-api.clj"
-          fns (gen/all-ndarray-api-functions gen/op-names)
-          _ (gen/write-to-file [(first fns) (second fns)]
-                               (gen/ndarray-api-gen-ns false)
+          _ (gen/write-to-file [(first gen/all-ndarray-api-functions)
+                                (second gen/all-ndarray-api-functions)]
+                               gen/ndarray-api-gen-ns
                                fname)
           good-contents (slurp "test/good-test-ndarray-api.clj")
           contents (slurp fname)]
       (is (= good-contents contents))))
 
-  (testing "ndarray-random-api"
-    (let [fname "test/test-ndarray-random-api.clj"
-          fns (gen/all-ndarray-random-api-functions gen/op-names)
-          _ (gen/write-to-file [(first fns) (second fns)]
-                               (gen/ndarray-api-gen-ns true)
-                               fname)
-          good-contents (slurp "test/good-test-ndarray-random-api.clj")
-          contents (slurp fname)]
-      (is (= good-contents contents))))
-
   (testing "ndarray"
     (let [fname "test/test-ndarray.clj"
           _ (gen/write-to-file [(first gen/all-ndarray-functions)]