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.
30 lines
903 B
30 lines
903 B
4 years ago
|
(ns reverse-string-test
|
||
|
|
(:require [clojure.test :refer [deftest is]]
|
||
|
|
reverse-string))
|
||
|
|
|
||
|
|
(deftest empty-string-test
|
||
|
|
(is (= "" (reverse-string/reverse-string ""))))
|
||
|
|
|
||
|
|
(deftest a-letter-test
|
||
|
|
(is (= "I" (reverse-string/reverse-string "I"))))
|
||
|
|
|
||
|
|
(deftest a-word-test
|
||
|
|
(is (= "tobor" (reverse-string/reverse-string "robot"))))
|
||
|
|
|
||
|
|
(deftest capitalised-word-test
|
||
|
|
(is (= "nemaR" (reverse-string/reverse-string "Ramen"))))
|
||
|
|
|
||
|
|
(deftest sentence-with-punctuation-test
|
||
|
|
(is (= "!yrgnuh m'I" (reverse-string/reverse-string "I'm hungry!"))))
|
||
|
|
|
||
|
|
(deftest palindrome-test
|
||
|
|
(is (= "racecar" (reverse-string/reverse-string "racecar"))))
|
||
|
|
|
||
|
|
(deftest even-sized-word-test
|
||
|
|
(is (= "reward" (reverse-string/reverse-string "drawer"))))
|
||
|
|
|
||
|
|
(deftest long-string-test
|
||
|
|
(let [s (reduce str (repeat 1000 "overflow?"))
|
||
|
|
rs (reduce str (repeat 1000 "?wolfrevo"))]
|
||
|
|
(is (= rs (reverse-string/reverse-string s)))))
|