mirror of
https://github.com/Xevion/exercism.git
synced 2025-12-08 04:07:05 -06:00
add bash/clojure/java unworked problem sets
This commit is contained in:
39
clojure/armstrong-numbers/test/armstrong_numbers_test.clj
Normal file
39
clojure/armstrong-numbers/test/armstrong_numbers_test.clj
Normal file
@@ -0,0 +1,39 @@
|
||||
(ns armstrong-numbers-test
|
||||
(:require [clojure.test :refer [deftest is testing]]
|
||||
[armstrong-numbers :refer [armstrong?]]))
|
||||
|
||||
(deftest armstrong-number-5
|
||||
(testing "Single digit numbers are Armstrong numbers"
|
||||
(is (armstrong? 5))))
|
||||
|
||||
(deftest not-armstrong-number-10
|
||||
(testing "There are no 2 digit Armstrong numbers"
|
||||
(is (not (armstrong? 10)))))
|
||||
|
||||
(deftest armstrong-number-153
|
||||
(testing "Three digit number that is an Armstrong number"
|
||||
(is (armstrong? 153))))
|
||||
|
||||
(deftest not-armstrong-number-100
|
||||
(testing "Three digit number that is not an Armstrong number"
|
||||
(is (not (armstrong? 100)))))
|
||||
|
||||
(deftest armstrong-number-9474
|
||||
(testing "Four digit number that is an Armstrong number"
|
||||
(is (armstrong? 9474))))
|
||||
|
||||
(deftest not-armstrong-number-9475
|
||||
(testing "Four digit number that is not an Armstrong number"
|
||||
(is (not (armstrong? 9475)))))
|
||||
|
||||
(deftest armstrong-number-9926315
|
||||
(testing "Seven digit number that is an Armstrong number"
|
||||
(is (armstrong? 9926315))))
|
||||
|
||||
(deftest not-armstrong-number-9926314
|
||||
(testing "Seven digit number that is not an Armstrong number"
|
||||
(is (not (armstrong? 9926314)))))
|
||||
|
||||
(deftest armstrong-number-21897142587612075
|
||||
(testing "Seventeen digit number that is an Armstrong number"
|
||||
(is (armstrong? 21897142587612075))))
|
||||
Reference in New Issue
Block a user