Skip to content

Commit 4532007

Browse files
authored
Clean up grade-school exercise (exercism#417)
* grade-school: Remove unused function from example.el * grade-school: Fix stubs arguments - use school instead of students in line with exercise description and `example.el` - fix `add` function stub missing two arguments - fix `grade` function stub having wrong order of arguments * grade-school: Fix flycheck warnings in tests * grade-school: Provide stub for `make-school` function called by test If we provide stubs then the students will reasonably expect us to provide stubs for all the functions expected / called by the test code.
1 parent 881e451 commit 4532007

File tree

3 files changed

+9
-9
lines changed

3 files changed

+9
-9
lines changed

exercises/practice/grade-school/.meta/example.el

-3
Original file line numberDiff line numberDiff line change
@@ -28,9 +28,6 @@
2828
(defun grade (school grade)
2929
(gethash grade (school-roster school)))
3030

31-
(defun set-grade (school grade newval)
32-
(puthash grade (sort newval #'string<) (school-roster school)))
33-
3431

3532
(provide 'grade-school)
3633
;;; grade-school.el ends here

exercises/practice/grade-school/grade-school-test.el

+4-3
Original file line numberDiff line numberDiff line change
@@ -6,9 +6,10 @@
66

77

88
(load-file "grade-school.el")
9-
(declare-function roster "grade-school.el" (students))
10-
(declare-function add "grade-school.el" (students))
11-
(declare-function grade "grade-school.el" (desired-grade students))
9+
(declare-function make-school "grade-school.el")
10+
(declare-function roster "grade-school.el" (school))
11+
(declare-function add "grade-school.el" (school name grade))
12+
(declare-function grade "grade-school.el" (school grade))
1213

1314

1415
(ert-deftest roster-is-empty-when-no-student-is-added ()

exercises/practice/grade-school/grade-school.el

+5-3
Original file line numberDiff line numberDiff line change
@@ -4,14 +4,16 @@
44

55
;;; Code:
66

7+
(defun make-school ()
8+
(error "Delete this S-Expression and write your own implementation"))
79

8-
(defun roster (students)
10+
(defun roster (school)
911
(error "Delete this S-Expression and write your own implementation"))
1012

11-
(defun add (students)
13+
(defun add (school name grade)
1214
(error "Delete this S-Expression and write your own implementation"))
1315

14-
(defun grade (desired-grade students)
16+
(defun grade (school grade)
1517
(error "Delete this S-Expression and write your own implementation"))
1618

1719

0 commit comments

Comments
 (0)