Skip to content

Commit def2c58

Browse files
Rename isValid to is_valid (#552)
This is to follow the OCaml naming conventions.
1 parent fc8b072 commit def2c58

File tree

5 files changed

+23
-23
lines changed

5 files changed

+23
-23
lines changed

exercises/practice/isbn-verifier/.meta/example.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
let isValid s =
1+
let is_valid s =
22
let chars = List.init (String.length s) (String.get s) in
33

44
let is_digit c = c >= '0' && c <= '9' in
Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,2 @@
1-
let isValid _ =
1+
let is_valid _ =
22
failwith = "'isValid' is missing"
Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
val isValid : string -> bool
1+
val is_valid : string -> bool

exercises/practice/isbn-verifier/test.ml

Lines changed: 19 additions & 19 deletions
Original file line numberDiff line numberDiff line change
@@ -5,43 +5,43 @@ let ae exp got _test_ctxt = assert_equal ~printer:string_of_bool exp got
55

66
let tests = [
77
"valid isbn" >::
8-
ae true (isValid "3-598-21508-8");
8+
ae true (is_valid "3-598-21508-8");
99
"invalid isbn check digit" >::
10-
ae false (isValid "3-598-21508-9");
10+
ae false (is_valid "3-598-21508-9");
1111
"valid isbn with a check digit of 10" >::
12-
ae true (isValid "3-598-21507-X");
12+
ae true (is_valid "3-598-21507-X");
1313
"check digit is a character other than X" >::
14-
ae false (isValid "3-598-21507-A");
14+
ae false (is_valid "3-598-21507-A");
1515
"invalid check digit in isbn is not treated as zero" >::
16-
ae false (isValid "4-598-21507-B");
16+
ae false (is_valid "4-598-21507-B");
1717
"invalid character in isbn is not treated as zero" >::
18-
ae false (isValid "3-598-P1581-X");
18+
ae false (is_valid "3-598-P1581-X");
1919
"X is only valid as a check digit" >::
20-
ae false (isValid "3-598-2X507-9");
20+
ae false (is_valid "3-598-2X507-9");
2121
"valid isbn without separating dashes" >::
22-
ae true (isValid "3598215088");
22+
ae true (is_valid "3598215088");
2323
"isbn without separating dashes and X as check digit" >::
24-
ae true (isValid "359821507X");
24+
ae true (is_valid "359821507X");
2525
"isbn without check digit and dashes" >::
26-
ae false (isValid "359821507");
26+
ae false (is_valid "359821507");
2727
"too long isbn and no dashes" >::
28-
ae false (isValid "3598215078X");
28+
ae false (is_valid "3598215078X");
2929
"too short isbn" >::
30-
ae false (isValid "00");
30+
ae false (is_valid "00");
3131
"isbn without check digit" >::
32-
ae false (isValid "3-598-21507");
32+
ae false (is_valid "3-598-21507");
3333
"check digit of X should not be used for 0" >::
34-
ae false (isValid "3-598-21515-X");
34+
ae false (is_valid "3-598-21515-X");
3535
"empty isbn" >::
36-
ae false (isValid "");
36+
ae false (is_valid "");
3737
"input is 9 characters" >::
38-
ae false (isValid "134456729");
38+
ae false (is_valid "134456729");
3939
"invalid characters are not ignored after checking length" >::
40-
ae false (isValid "3132P34035");
40+
ae false (is_valid "3132P34035");
4141
"invalid characters are not ignored before checking length" >::
42-
ae false (isValid "3598P215088");
42+
ae false (is_valid "3598P215088");
4343
"input is too long but contains a valid isbn" >::
44-
ae false (isValid "98245726788");
44+
ae false (is_valid "98245726788");
4545
]
4646

4747
let () =

templates/isbn-verifier/test.ml.tpl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ let ae exp got _test_ctxt = assert_equal ~printer:string_of_bool exp got
66
let tests = [
77
{{#cases}}
88
"{{description}}" >::
9-
ae {{#input}}{{expected}} (isValid {{isbn}}){{/input}};
9+
ae {{#input}}{{expected}} (is_valid {{isbn}}){{/input}};
1010
{{/cases}}
1111
]
1212

0 commit comments

Comments
 (0)