converted shorten string

src/battle_asserts/issues/shorten_string.clj

@@ -0,0 +1,26 @@
+(ns battle-asserts.issues.shorten-string
+  (:require [clojure.test.check.generators :as gen]
+            [faker.generate :as faker]))
+
+(def level :elementary)
+
+(def description "Provide the word in the form of an acronym composed of the first letter,
+                 the number of letters in the word minus 2 and the last letter of the word.")
+
+(defn arguments-generator []
+  (let [words (repeatedly 50 faker/word)]
+    (gen/tuple (gen/such-that #(> (count %) 2) (gen/elements words)))))
+
+(def test-data
+  [{:expected "L10n"
+    :arguments ["Localization"]}
+   {:expected "M17n"
+    :arguments ["Multilingualization"]}
+   {:expected "I18n"
+    :arguments ["Internationalization"]}])
+
+(defn solution [s]
+  (str (first s)
+       (- (count s)
+          2)
+       (last s)))

test/battle_asserts/issues/shorten_string_test.clj

@@ -0,0 +1,14 @@
+(ns battle-asserts.issues.shorten-string-test
+  (:require [clojure.test :refer :all]
+            [clojure.test.check.properties :as prop :include-macros true]
+            [clojure.test.check.clojure-test :as ct :include-macros true]
+            [test-helper :as h]
+            [battle-asserts.issues.shorten-string :as issue]))
+
+(ct/defspec spec-solution
+  20
+  (prop/for-all [v (issue/arguments-generator)]
+                (instance? String (apply issue/solution v))))
+
+(deftest test-solution
+  (h/generate-tests issue/test-data issue/solution))