@@ -5,43 +5,43 @@ let ae exp got _test_ctxt = assert_equal ~printer:string_of_bool exp got
5
5
6
6
let tests = [
7
7
" valid isbn" > ::
8
- ae true (isValid " 3-598-21508-8" );
8
+ ae true (is_valid " 3-598-21508-8" );
9
9
" invalid isbn check digit" > ::
10
- ae false (isValid " 3-598-21508-9" );
10
+ ae false (is_valid " 3-598-21508-9" );
11
11
" 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" );
13
13
" 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" );
15
15
" 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" );
17
17
" 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" );
19
19
" 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" );
21
21
" valid isbn without separating dashes" > ::
22
- ae true (isValid " 3598215088" );
22
+ ae true (is_valid " 3598215088" );
23
23
" isbn without separating dashes and X as check digit" > ::
24
- ae true (isValid " 359821507X" );
24
+ ae true (is_valid " 359821507X" );
25
25
" isbn without check digit and dashes" > ::
26
- ae false (isValid " 359821507" );
26
+ ae false (is_valid " 359821507" );
27
27
" too long isbn and no dashes" > ::
28
- ae false (isValid " 3598215078X" );
28
+ ae false (is_valid " 3598215078X" );
29
29
" too short isbn" > ::
30
- ae false (isValid " 00" );
30
+ ae false (is_valid " 00" );
31
31
" isbn without check digit" > ::
32
- ae false (isValid " 3-598-21507" );
32
+ ae false (is_valid " 3-598-21507" );
33
33
" 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" );
35
35
" empty isbn" > ::
36
- ae false (isValid " " );
36
+ ae false (is_valid " " );
37
37
" input is 9 characters" > ::
38
- ae false (isValid " 134456729" );
38
+ ae false (is_valid " 134456729" );
39
39
" invalid characters are not ignored after checking length" > ::
40
- ae false (isValid " 3132P34035" );
40
+ ae false (is_valid " 3132P34035" );
41
41
" invalid characters are not ignored before checking length" > ::
42
- ae false (isValid " 3598P215088" );
42
+ ae false (is_valid " 3598P215088" );
43
43
" input is too long but contains a valid isbn" > ::
44
- ae false (isValid " 98245726788" );
44
+ ae false (is_valid " 98245726788" );
45
45
]
46
46
47
47
let () =
0 commit comments