changeset: 4573:baf6c66f6f474dd9edfa216794aa9c300ff128c6 parent: 4571:ebc01476e352f6765d1f269a30b2f7ed7095db72 user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Sat Jan 03 15:24:14 2009 +0000 files: tests/ChangeLog tests/automated/ccl-tests.el description: Correct the CCL programs used by the coding system in ccl-tests.el. 2009-01-03 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/ccl-tests.el (ccl-test-setup): Use sane CCL programs for decoding and encoding with the test CCL coding system by default. Correct a spelling in the docstring, add a safe-chars property so that we don't confuse query-coding-tests.el. (ccl-test-suites): Explicitly re-initialise the CCL programs for the test coding system once finished. diff -r ebc01476e352f6765d1f269a30b2f7ed7095db72 -r baf6c66f6f474dd9edfa216794aa9c300ff128c6 tests/ChangeLog --- a/tests/ChangeLog Tue Dec 30 20:33:30 2008 +0000 +++ b/tests/ChangeLog Sat Jan 03 15:24:14 2009 +0000 ＠＠ -1,3 +1,14 ＠＠ 2008-12-28 Aidan Kehoe <kehoea＠parhasa +2009-01-03 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * automated/ccl-tests.el (ccl-test-setup): + Use sane CCL programs for decoding and encoding with the test CCL + coding system by default. Correct a spelling in the docstring, add + a safe-chars property so that we don't confuse + query-coding-tests.el. + (ccl-test-suites): + Explicitly re-initialise the CCL programs for the test coding + system once finished. + 2008-12-28 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/query-coding-tests.el: diff -r ebc01476e352f6765d1f269a30b2f7ed7095db72 -r baf6c66f6f474dd9edfa216794aa9c300ff128c6 tests/automated/ccl-tests.el --- a/tests/automated/ccl-tests.el Tue Dec 30 20:33:30 2008 +0000 +++ b/tests/automated/ccl-tests.el Sat Jan 03 15:24:14 2009 +0000 ＠＠ -117,21 +117,22 ＠＠ (defun ccl-test-setup () (define-ccl-program ccl-test-decoder - '(1 (read r0) - (loop - (write-read-repeat r0)))) + '(1 (loop + (read r0) + (write-repeat r0)))) (define-ccl-program ccl-test-encoder - '(1 (read r0) - (loop - (write-read-repeat r0)))) + '(1 (loop + (read r0) + (write-repeat r0)))) (or (find-coding-system 'ccl-test-coding-system) (make-coding-system 'ccl-test-coding-system 'ccl - "CCL TEST temprary coding-system." + "CCL TEST temporary coding-system." '(mnemonic "CCL-TEST" eol-type lf + safe-chars t decode ccl-test-decoder encode ccl-test-encoder)))) ＠＠ -601,7 +602,9 ＠＠ (ccl-test-simple-read-and-write) (ccl-test-read-write-multibyte-character) (ccl-test-ccl-call) - (ccl-test-map-instructions)) + (ccl-test-map-instructions) + ;; Re-initialise the coding system: + (ccl-test-setup)) ;;; start tests only when ccl-execute is enabled. (if (fboundp 'ccl-execute) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches