blob: ddd4a64b6b72527eb3e4b20e72816c3b63df5b3c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
;;; chess-test.el --- Put Emacs Chess through an enormous battery of tests
;; Copyright (C) 2014 Free Software Foundation, Inc.
;; This is free software; you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free
;; Software Foundation; either version 3, or (at your option) any later
;; version.
;;
;; This is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;; for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Soon.
;;; Code:
(eval-when-compile
(require 'cl))
(require 'chess-database)
(require 'chess-game)
(defun chess-test (&optional file start count)
(unless file
(setq file (nth 0 command-line-args-left)))
(unless start
(setq start (ignore-errors
(string-to-number (nth 1 command-line-args-left)))))
(unless count
(setq count (ignore-errors
(string-to-number (nth 2 command-line-args-left)))))
(message "Opening chess database '%s'" file)
(let* ((large-file-warning-threshold nil)
(database (chess-database-open file))
error-occurred)
(if database
(progn
(message "Running validation suite...")
(let* ((db-count (chess-database-count database))
(ply-count 0)
(index (or start 0))
(last-index (if (and count (> count 0))
(min db-count (+ index count))
db-count))
(begin (current-time))
(read-count 0))
(message "Testing legality of games in range [%d, %d]:"
index (1- last-index))
(while (< index last-index)
;; Reading in the game will cause it to be converted from PGN
;; (this is true currently) to a chess-game, during which time
;; every move will be tested for legality.
;;
;; jww (2008-08-31): We should add some extra checks here, if we
;; want to verify the final position and such.
(condition-case err
(let ((game (chess-database-read database index)))
(when game
(setq read-count (1+ read-count)
ply-count
(+ ply-count (length (chess-game-plies game))))
(if (and (> read-count 0) (= 0 (mod read-count 1000)))
(message "Read %d games (next %d): %d total plies (%.2f ply/sec)"
read-count (1+ index) ply-count
(/ (float ply-count)
(float-time
(subtract-time (current-time)
begin)))))))
(error
(setq error-occurred t)
(message "Error reading game %d: %s"
index (error-message-string err))))
(setq index (1+ index)))
(message "Read %d games (last %d): %d plies (%.2f ply/sec, %.2f seconds)"
read-count (1- index) ply-count
(/ (float ply-count)
(float-time (subtract-time (current-time) begin)))
(float-time (subtract-time (current-time) begin)))
(message "Running validation suite...done")
(chess-database-close database)))
(error "Failed to open chess database '%s'" file))
(if error-occurred
(error "Some of the tests failed"))))
;;; chess-test.el ends here
|
