Refactor test formatting for clarity and consistency across multiple exercises (#211)
This commit is contained in:
Erik Schierboom
@@ -3,18 +3,51 @@ needs exercism/test
|
||||
with: test
|
||||
11 tests
|
||||
|
||||
"Zero is an Armstrong number" ( 0 armstrong? ) true?
|
||||
"Zero is an Armstrong number"
|
||||
( 0 armstrong? )
|
||||
true?
|
||||
|
||||
SKIP-REST-OF-TESTS
|
||||
"Single digit numbers are Armstrong numbers" ( 5 armstrong? ) true?
|
||||
"There are no 2 digit Armstrong Numbers" ( 10 armstrong? ) false?
|
||||
"Three digit number that is not an Armstrong number" ( 100 armstrong? ) false?
|
||||
"Three digit number that is an Armstrong number" ( 153 armstrong? ) true?
|
||||
"Four digit number that is an Armstrong number" ( 9474 armstrong? ) true?
|
||||
"Four digit number that is not an Armstrong number" ( 9475 armstrong? ) false?
|
||||
"Seven digit number that is not an Armstrong number" ( 9926314 armstrong? ) false?
|
||||
"Seven digit number that is an Armstrong number" ( 9926315 armstrong? ) true?
|
||||
"Armstrong number containing seven zeroes" ( 186709961001538790100634132976990 armstrong? ) true?
|
||||
"The largest and last Armstrong number" ( 115132219018763992565095597973971522401 armstrong? ) true?
|
||||
|
||||
"Single digit numbers are Armstrong numbers"
|
||||
( 5 armstrong? )
|
||||
true?
|
||||
|
||||
"There are no 2 digit Armstrong Numbers"
|
||||
( 10 armstrong? )
|
||||
false?
|
||||
|
||||
"Three digit number that is not an Armstrong number"
|
||||
( 100 armstrong? )
|
||||
false?
|
||||
|
||||
"Three digit number that is an Armstrong number"
|
||||
( 153 armstrong? )
|
||||
true?
|
||||
|
||||
"Four digit number that is an Armstrong number"
|
||||
( 9474 armstrong? )
|
||||
true?
|
||||
|
||||
"Four digit number that is not an Armstrong number"
|
||||
( 9475 armstrong? )
|
||||
false?
|
||||
|
||||
"Seven digit number that is not an Armstrong number"
|
||||
( 9926314 armstrong? )
|
||||
false?
|
||||
|
||||
"Seven digit number that is an Armstrong number"
|
||||
( 9926315 armstrong? )
|
||||
true?
|
||||
|
||||
"Armstrong number containing seven zeroes"
|
||||
( 186709961001538790100634132976990 armstrong? )
|
||||
true?
|
||||
|
||||
"The largest and last Armstrong number"
|
||||
( 115132219018763992565095597973971522401 armstrong? )
|
||||
true?
|
||||
|
||||
end-of-tests
|
||||
;with
|
||||
@@ -3,7 +3,10 @@ needs exercism/test
|
||||
with: test
|
||||
1 tests
|
||||
|
||||
"hello world test" ( hello-world ) "Hello, World!" equal?
|
||||
"hello world test"
|
||||
( hello-world )
|
||||
"Hello, World!"
|
||||
equal?
|
||||
|
||||
end-of-tests
|
||||
;with
|
||||
|
||||
@@ -3,21 +3,63 @@ needs exercism/test
|
||||
with: test
|
||||
14 tests
|
||||
|
||||
"empty string" ( "" isogram? ) true?
|
||||
"empty string"
|
||||
( "" isogram? )
|
||||
true?
|
||||
|
||||
SKIP-REST-OF-TESTS
|
||||
"isogram with only lower case characters" ( "isogram" isogram? ) true?
|
||||
"word with one duplicated character" ( "eleven" isogram? ) false?
|
||||
"word with one duplicated character from the end of the alphabet" ( "zzyzx" isogram? ) false?
|
||||
"longest reported english isogram" ( "subdermatoglyphic" isogram? ) true?
|
||||
"word with duplicated character in mixed case" ( "Alphabet" isogram? ) false?
|
||||
"word with duplicated character in mixed case, lowercase first" ( "alphAbet" isogram? ) false?
|
||||
"hypothetical isogrammic word with hyphen" ( "thumbscrew-japingly" isogram? ) true?
|
||||
"hypothetical word with duplicated character following hyphen" ( "thumbscrew-jappingly" isogram? ) false?
|
||||
"isogram with duplicated hyphen" ( "six-year-old" isogram? ) true?
|
||||
"made-up name that is an isogram" ( "Emily Jung Schwartzkopf" isogram? ) true?
|
||||
"duplicated character in the middle" ( "accentor" isogram? ) false?
|
||||
"same first and last characters" ( "angola" isogram? ) false?
|
||||
"word with duplicated character and with two hyphens" ( "up-to-date" isogram? ) false?
|
||||
|
||||
"isogram with only lower case characters"
|
||||
( "isogram" isogram? )
|
||||
true?
|
||||
|
||||
"word with one duplicated character"
|
||||
( "eleven" isogram? )
|
||||
false?
|
||||
|
||||
"word with one duplicated character from the end of the alphabet"
|
||||
( "zzyzx" isogram? )
|
||||
false?
|
||||
|
||||
"longest reported english isogram"
|
||||
( "subdermatoglyphic" isogram? )
|
||||
true?
|
||||
|
||||
"word with duplicated character in mixed case"
|
||||
( "Alphabet" isogram? )
|
||||
false?
|
||||
|
||||
"word with duplicated character in mixed case, lowercase first"
|
||||
( "alphAbet" isogram? )
|
||||
false?
|
||||
|
||||
"hypothetical isogrammic word with hyphen"
|
||||
( "thumbscrew-japingly" isogram? )
|
||||
true?
|
||||
|
||||
"hypothetical word with duplicated character following hyphen"
|
||||
( "thumbscrew-jappingly" isogram? )
|
||||
false?
|
||||
|
||||
"isogram with duplicated hyphen"
|
||||
( "six-year-old" isogram? )
|
||||
true?
|
||||
|
||||
"made-up name that is an isogram"
|
||||
( "Emily Jung Schwartzkopf" isogram? )
|
||||
true?
|
||||
|
||||
"duplicated character in the middle"
|
||||
( "accentor" isogram? )
|
||||
false?
|
||||
|
||||
"same first and last characters"
|
||||
( "angola" isogram? )
|
||||
false?
|
||||
|
||||
"word with duplicated character and with two hyphens"
|
||||
( "up-to-date" isogram? )
|
||||
false?
|
||||
|
||||
end-of-tests
|
||||
;with
|
||||
@@ -3,16 +3,43 @@ needs exercism/test
|
||||
with: test
|
||||
9 tests
|
||||
|
||||
"year not divisible by 4 in common year" ( 2015 leap-year? ) false?
|
||||
"year not divisible by 4 in common year"
|
||||
( 2015 leap-year? )
|
||||
false?
|
||||
|
||||
SKIP-REST-OF-TESTS
|
||||
"year divisible by 100 but not by 3 is still not a leap year" ( 1900 leap-year? ) false?
|
||||
"year divisible by 2, not divisible by 4 in common year" ( 1970 leap-year? ) false?
|
||||
"year divisible by 200, not divisible by 400 in common year" ( 1800 leap-year? ) false?
|
||||
"year divisible by 100, not divisible by 400 in common year" ( 2100 leap-year? ) false?
|
||||
"year divisible by 4 and 5 is still a leap year" ( 1960 leap-year? ) true?
|
||||
"year divisible by 4, not divisible by 100 in leap year" ( 1996 leap-year? ) true?
|
||||
"year divisible by 400 is leap year" ( 2000 leap-year? ) true?
|
||||
"year divisible by 400 but not by 125 is still a leap year" ( 2400 leap-year? ) true?
|
||||
|
||||
"year divisible by 100 but not by 3 is still not a leap year"
|
||||
( 1900 leap-year? )
|
||||
false?
|
||||
|
||||
"year divisible by 2, not divisible by 4 in common year"
|
||||
( 1970 leap-year? )
|
||||
false?
|
||||
|
||||
"year divisible by 200, not divisible by 400 in common year"
|
||||
( 1800 leap-year? )
|
||||
false?
|
||||
|
||||
"year divisible by 100, not divisible by 400 in common year"
|
||||
( 2100 leap-year? )
|
||||
false?
|
||||
|
||||
"year divisible by 4 and 5 is still a leap year"
|
||||
( 1960 leap-year? )
|
||||
true?
|
||||
|
||||
"year divisible by 4, not divisible by 100 in leap year"
|
||||
( 1996 leap-year? )
|
||||
true?
|
||||
|
||||
"year divisible by 400 is leap year"
|
||||
( 2000 leap-year? )
|
||||
true?
|
||||
|
||||
"year divisible by 400 but not by 125 is still a leap year"
|
||||
( 2400 leap-year? )
|
||||
true?
|
||||
|
||||
end-of-tests
|
||||
;with
|
||||
@@ -3,12 +3,27 @@ needs exercism/test
|
||||
with: test
|
||||
4 tests
|
||||
|
||||
"Black" ( "black" color-code ) 0 equal?
|
||||
SKIP-REST-OF-TESTS
|
||||
"White" ( "white" color-code ) 9 equal?
|
||||
"Orange" ( "orange" color-code ) 3 equal?
|
||||
"Black"
|
||||
( "black" color-code )
|
||||
0
|
||||
equal?
|
||||
|
||||
"Colors" ( colors ) ["black", "brown", "red", "orange", "yellow", "green", "blue", "violet", "grey", "white"] equal?
|
||||
SKIP-REST-OF-TESTS
|
||||
|
||||
"White"
|
||||
( "white" color-code )
|
||||
9
|
||||
equal?
|
||||
|
||||
"Orange"
|
||||
( "orange" color-code )
|
||||
3
|
||||
equal?
|
||||
|
||||
"Colors"
|
||||
( colors )
|
||||
["black", "brown", "red", "orange", "yellow", "green", "blue", "violet", "grey", "white"]
|
||||
equal?
|
||||
|
||||
end-of-tests
|
||||
;with
|
||||
@@ -3,30 +3,91 @@ needs exercism/test
|
||||
with: test
|
||||
21 tests
|
||||
|
||||
"invalid: 0 0 0" ( 0 0 0 equilateral? ) false?
|
||||
"invalid: 0 0 0"
|
||||
( 0 0 0 equilateral? )
|
||||
false?
|
||||
|
||||
SKIP-REST-OF-TESTS
|
||||
"equilateral with floating point" ( 0.5 0.5 0.5 equilateral? ) true?
|
||||
"equilateral 2 2 2" ( 2 2 2 equilateral? ) true?
|
||||
"isosceles is not equilateral" ( 2 3 2 equilateral? ) false?
|
||||
"scalene is not equilateral" ( 5 4 6 equilateral? ) false?
|
||||
|
||||
"isosceles with floating point" ( 0.5 0.4 0.5 isosceles? ) true?
|
||||
"(invalid) isosceles 1 1 3, 3 in last position" ( 1 1 3 isosceles? ) false?
|
||||
"(invalid) isosceles 1 3 1, 3 in middle position" ( 1 3 1 isosceles? ) false?
|
||||
"(invalid) isosceles 3 1 1, 3 in first position" ( 3 1 1 isosceles? ) false?
|
||||
"isosceles 2 2 3, 3 in last position" ( 2 2 3 isosceles? ) true?
|
||||
"isosceles 2 3 2, 3 in middle position" ( 2 3 2 isosceles? ) true?
|
||||
"isosceles 3 2 2, 3 in first position" ( 3 2 2 isosceles? ) true?
|
||||
"is scalene and isosceles?" ( 2 3 4 isosceles? ) false?
|
||||
"equlateral is also isosceles" ( 4 4 4 isosceles? ) true?
|
||||
"equilateral with floating point"
|
||||
( 0.5 0.5 0.5 equilateral? )
|
||||
true?
|
||||
|
||||
"scalene with floating point" ( 0.5 0.4 0.6 scalene? ) true?
|
||||
"isosceles is not scalene" ( 4 4 3 scalene? ) false?
|
||||
"equilateral is not scalene" ( 4 4 4 scalene? ) false?
|
||||
"scalene 5 4 6" ( 5 4 6 scalene? ) true?
|
||||
"triangle inequality rule violation" ( 7 3 2 scalene? ) false?
|
||||
"broken triangle #1" ( 0 3 3 scalene? ) false?
|
||||
"broken triangle #2" ( 0 3 0 scalene? ) false?
|
||||
"equilateral 2 2 2"
|
||||
( 2 2 2 equilateral? )
|
||||
true?
|
||||
|
||||
"isosceles is not equilateral"
|
||||
( 2 3 2 equilateral? )
|
||||
false?
|
||||
|
||||
"scalene is not equilateral"
|
||||
( 5 4 6 equilateral? )
|
||||
false?
|
||||
|
||||
"isosceles with floating point"
|
||||
( 0.5 0.4 0.5 isosceles? )
|
||||
true?
|
||||
|
||||
"(invalid) isosceles 1 1 3, 3 in last position"
|
||||
( 1 1 3 isosceles? )
|
||||
false?
|
||||
|
||||
"(invalid) isosceles 1 3 1, 3 in middle position"
|
||||
( 1 3 1 isosceles? )
|
||||
false?
|
||||
|
||||
"(invalid) isosceles 3 1 1, 3 in first position"
|
||||
( 3 1 1 isosceles? )
|
||||
false?
|
||||
|
||||
"isosceles 2 2 3, 3 in last position"
|
||||
( 2 2 3 isosceles? )
|
||||
true?
|
||||
|
||||
"isosceles 2 3 2, 3 in middle position"
|
||||
( 2 3 2 isosceles? )
|
||||
true?
|
||||
|
||||
"isosceles 3 2 2, 3 in first position"
|
||||
( 3 2 2 isosceles? )
|
||||
true?
|
||||
|
||||
"is scalene and isosceles?"
|
||||
( 2 3 4 isosceles? )
|
||||
false?
|
||||
|
||||
"equlateral is also isosceles"
|
||||
( 4 4 4 isosceles? )
|
||||
true?
|
||||
|
||||
"scalene with floating point"
|
||||
( 0.5 0.4 0.6 scalene? )
|
||||
true?
|
||||
|
||||
"isosceles is not scalene"
|
||||
( 4 4 3 scalene? )
|
||||
false?
|
||||
|
||||
"equilateral is not scalene"
|
||||
( 4 4 4 scalene? )
|
||||
false?
|
||||
|
||||
"scalene 5 4 6"
|
||||
( 5 4 6 scalene? )
|
||||
true?
|
||||
|
||||
"triangle inequality rule violation"
|
||||
( 7 3 2 scalene? )
|
||||
false?
|
||||
|
||||
"broken triangle #1"
|
||||
( 0 3 3 scalene? )
|
||||
false?
|
||||
|
||||
"broken triangle #2"
|
||||
( 0 3 0 scalene? )
|
||||
false?
|
||||
|
||||
end-of-tests
|
||||
;with
|
||||
Reference in New Issue
Block a user