diff options
| author | Mario Lang <mlang@delysid.org> | 2008-09-01 22:32:37 +0200 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2008-09-01 22:32:37 +0200 |
| commit | 8892f2040c6075d461ea2f238cd5c857e9c36e06 (patch) | |
| tree | 2a2a40bec50b57514e21afcc2e80b03c823d4b82 | |
| parent | e2e735214870e229665ea33eeabb7a099dc6fa00 (diff) | |
Make game numbers displayed equal to indexes used in chess-database.
| -rw-r--r-- | chess-test.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/chess-test.el b/chess-test.el index cf681e3..3c52324 100644 --- a/chess-test.el +++ b/chess-test.el @@ -33,8 +33,8 @@ db-count)) (begin (current-time)) (read-count 0)) - (message "Testing legality of games in range [%d, %d):" - index last-index) + (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 @@ -48,7 +48,7 @@ (setq read-count (1+ read-count) ply-count (+ ply-count (length (chess-game-plies game)))) - (if (= 0 (mod index 1000)) + (if (and (> index 0) (= 0 (mod index 1000))) (message "Read %d games (now at game %d): %d total plies (%.2f ply/sec)" read-count index ply-count (/ (float ply-count) @@ -62,7 +62,7 @@ index (error-message-string err)))) (setq index (1+ index))) (message "Read %d games (up to game %d): %d plies (%.2f ply/sec, %.2f seconds)" - read-count index ply-count + read-count (1- index) ply-count (/ (float ply-count) (float (time-to-seconds |