15 lines
554 B
Clojure
15 lines
554 B
Clojure
(ns auto-ap.numeric
|
|
(:require [clojure.test :refer :all]))
|
|
|
|
|
|
(deftest num->words-test
|
|
|
|
(is (= "one dollars" (num->words 1.00)))
|
|
(is (= "two dollars" (num->words 2.00)))
|
|
(is (= "twelve dollars" (num->words 12.00)))
|
|
(is (= "twenty-one dollars" (num->words 21.00)))
|
|
(is (= "one hundred and twenty-one dollars" (num->words 121.00)))
|
|
(is (= "thirty-five thousand one hundred and twenty-one dollars" (num->words 35121.00)))
|
|
(is (= "twelve dollars and thirty-three cents" (num->words 12.33)))
|
|
(is (= "ninety-nine cents" (num->words 0.99))))
|