|
1 | 1 | (ns kindergarten-garden-test
|
2 |
| - (:require [clojure.test :refer [deftest is]] |
| 2 | + (:require [clojure.test :refer [deftest testing is]] |
3 | 3 | kindergarten-garden))
|
4 | 4 |
|
5 |
| -(deftest garden-test |
6 |
| - (is (= [:radishes :clover :grass :grass] |
7 |
| - (:alice (kindergarten-garden/garden "RC\nGG")))) |
8 |
| - (is (= [:violets :clover :radishes :clover] |
9 |
| - (:alice (kindergarten-garden/garden "VC\nRC"))))) |
10 |
| - |
11 |
| -(deftest small-garden-test |
12 |
| - (let [small-garden (kindergarten-garden/garden "VVCG\nVVRC")] |
13 |
| - (is (= [:clover :grass :radishes :clover] (:bob small-garden))))) |
14 |
| - |
15 |
| -(deftest medium-garden-test |
16 |
| - (let [medium-garden (kindergarten-garden/garden "VVCCGG\nVVCCGG")] |
17 |
| - (is (= [:clover :clover :clover :clover] (:bob medium-garden))) |
18 |
| - (is (= [:grass :grass :grass :grass] (:charlie medium-garden))))) |
19 |
| - |
20 |
| -(deftest full-garden-test |
21 |
| - (let [string "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV" |
22 |
| - full-garden (kindergarten-garden/garden string)] |
23 |
| - (is (= [:violets :radishes :violets :radishes] (:alice full-garden))) |
24 |
| - (is (= [:clover :grass :clover :clover] (:bob full-garden))) |
25 |
| - (is (= [:violets :violets :clover :grass] (:charlie full-garden))) |
26 |
| - (is (= [:radishes :violets :clover :radishes] (:david full-garden))) |
27 |
| - (is (= [:clover :grass :radishes :grass] (:eve full-garden))) |
28 |
| - (is (= [:grass :clover :violets :clover] (:fred full-garden))) |
29 |
| - (is (= [:clover :grass :grass :clover] (:ginny full-garden))) |
30 |
| - (is (= [:violets :radishes :radishes :violets] (:harriet full-garden))) |
31 |
| - (is (= [:grass :clover :violets :clover] (:ileana full-garden))) |
32 |
| - (is (= [:violets :clover :violets :grass] (:joseph full-garden))) |
33 |
| - (is (= [:grass :clover :clover :grass] (:kincaid full-garden))) |
34 |
| - (is (= [:grass :violets :clover :violets] (:larry full-garden))))) |
35 |
| - |
36 |
| -(deftest surprise-garden-test |
37 |
| - (let [string "VCRRGVRG\nRVGCCGCV" |
38 |
| - students ["Samantha" "Patricia" "Xander" "Roger"] |
39 |
| - surprise-garden (kindergarten-garden/garden string students)] |
40 |
| - (is (= [:violets :clover :radishes :violets] |
41 |
| - (:patricia surprise-garden))) |
42 |
| - (is (= [:radishes :radishes :grass :clover] |
43 |
| - (:roger surprise-garden))) |
44 |
| - (is (= [:grass :violets :clover :grass] |
45 |
| - (:samantha surprise-garden))) |
46 |
| - (is (= [:radishes :grass :clover :violets] |
47 |
| - (:xander surprise-garden))))) |
| 5 | +(deftest test-1fc316ed-17ab-4fba-88ef-3ae78296b692 |
| 6 | + (testing "Partial garden -> Garden with single student" |
| 7 | + (is (= [:radishes :clover :grass :grass] |
| 8 | + (:alice (kindergarten-garden/garden "RC\nGG")))))) |
| 9 | + |
| 10 | +(deftest test-acd19dc1-2200-4317-bc2a-08f021276b40 |
| 11 | + (testing "Partial garden -> Different garden with single student" |
| 12 | + (is (= [:violets :clover :radishes :clover] |
| 13 | + (:alice (kindergarten-garden/garden "VC\nRC")))))) |
| 14 | + |
| 15 | +(deftest test-c376fcc8-349c-446c-94b0-903947315757 |
| 16 | + (testing "Partial garden -> Garden with two students" |
| 17 | + (is (= [:clover :grass :radishes :clover] |
| 18 | + (:bob (kindergarten-garden/garden "VVCG\nVVRC")))))) |
| 19 | + |
| 20 | +(deftest test-2d620f45-9617-4924-9d27-751c80d17db9 |
| 21 | + (testing "Partial garden -> Multiple students for the same garden with three students -> Second student's garden" |
| 22 | + (is (= [:clover :clover :clover :clover] |
| 23 | + (:bob (kindergarten-garden/garden "VVCCGG\nVVCCGG")))))) |
| 24 | + |
| 25 | +(deftest test-57712331-4896-4364-89f8-576421d69c44 |
| 26 | + (testing "Partial garden -> Multiple students for the same garden with three students -> Third student's garden" |
| 27 | + (is (= [:grass :grass :grass :grass] |
| 28 | + (:charlie (kindergarten-garden/garden "VVCCGG\nVVCCGG")))))) |
| 29 | + |
| 30 | +(deftest test-149b4290-58e1-40f2-8ae4-8b87c46e765b |
| 31 | + (testing "Full garden -> For Alice first student's garden" |
| 32 | + (is (= [:violets :radishes :violets :radishes] |
| 33 | + (:alice (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 34 | + |
| 35 | +(deftest test-ba25dbbc-10bd-4a37-b18e-f89ecd098a5e |
| 36 | + (testing "Full garden -> For Bob second student's garden" |
| 37 | + (is (= [:clover :grass :clover :clover] |
| 38 | + (:bob (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 39 | + |
| 40 | +(deftest test-566b621b-f18e-4c5f-873e-be30544b838c |
| 41 | + (testing "Full garden -> For Charlie" |
| 42 | + (is (= [:violets :violets :clover :grass] |
| 43 | + (:charlie (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 44 | + |
| 45 | +(deftest test-3ad3df57-dd98-46fc-9269-1877abf612aa |
| 46 | + (testing "Full garden -> For David" |
| 47 | + (is (= [:radishes :violets :clover :radishes] |
| 48 | + (:david (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 49 | + |
| 50 | +(deftest test-0f0a55d1-9710-46ed-a0eb-399ba8c72db2 |
| 51 | + (testing "Full garden -> For Eve" |
| 52 | + (is (= [:clover :grass :radishes :grass] |
| 53 | + (:eve (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 54 | + |
| 55 | +(deftest test-a7e80c90-b140-4ea1-aee3-f4625365c9a4 |
| 56 | + (testing "Full garden -> For Fred" |
| 57 | + (is (= [:grass :clover :violets :clover] |
| 58 | + (:fred (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 59 | + |
| 60 | +(deftest test-9d94b273-2933-471b-86e8-dba68694c615 |
| 61 | + (testing "Full garden -> For Ginny" |
| 62 | + (is (= [:clover :grass :grass :clover] |
| 63 | + (:ginny (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 64 | + |
| 65 | +(deftest test-f55bc6c2-ade8-4844-87c4-87196f1b7258 |
| 66 | + (testing "Full garden -> For Harriet" |
| 67 | + (is (= [:violets :radishes :radishes :violets] |
| 68 | + (:harriet (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 69 | + |
| 70 | +(deftest test-759070a3-1bb1-4dd4-be2c-7cce1d7679ae |
| 71 | + (testing "Full garden -> For Ileana" |
| 72 | + (is (= [:grass :clover :violets :clover] |
| 73 | + (:ileana (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 74 | + |
| 75 | +(deftest test-78578123-2755-4d4a-9c7d-e985b8dda1c6 |
| 76 | + (testing "Full garden -> For Joseph" |
| 77 | + (is (= [:violets :clover :violets :grass] |
| 78 | + (:joseph (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 79 | + |
| 80 | +(deftest test-6bb66df7-f433-41ab-aec2-3ead6e99f65b |
| 81 | + (testing "Full garden -> For Kincaid second to last student's garden" |
| 82 | + (is (= [:grass :clover :clover :grass] |
| 83 | + (:kincaid (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
| 84 | + |
| 85 | +(deftest test-d7edec11-6488-418a-94e6-ed509e0fa7eb |
| 86 | + (testing "Full garden -> For Larry last student's garden" |
| 87 | + (is (= [:grass :violets :clover :violets] |
| 88 | + (:larry (kindergarten-garden/garden "VRCGVVRVCGGCCGVRGCVCGCGV\nVRCCCGCRRGVCGCRVVCVGCGCV")))))) |
0 commit comments