comparison tests/automated/ccl-tests.el @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents 576fb035e263
children baf6c66f6f47
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
123 (define-ccl-program 123 (define-ccl-program
124 ccl-test-encoder 124 ccl-test-encoder
125 '(1 (read r0) 125 '(1 (read r0)
126 (loop 126 (loop
127 (write-read-repeat r0)))) 127 (write-read-repeat r0))))
128 (make-coding-system 128 (or (find-coding-system 'ccl-test-coding-system)
129 'ccl-test-coding-system 129 (make-coding-system
130 'ccl 130 'ccl-test-coding-system
131 "CCL TEST temprary coding-system." 131 'ccl
132 '(mnemonic "CCL-TEST" 132 "CCL TEST temprary coding-system."
133 eol-type lf 133 '(mnemonic "CCL-TEST"
134 decode ccl-test-decoder 134 eol-type lf
135 encode ccl-test-encoder))) 135 decode ccl-test-decoder
136 encode ccl-test-encoder))))
136 137
137 ;;; Section 1. arithmetic operations. 138 ;;; Section 1. arithmetic operations.
138 139
139 (defun ccl-test-normal-expr () 140 (defun ccl-test-normal-expr ()
140 ;; normal-expr 141 ;; normal-expr