/[gcl]/gcl/ansi-tests/parse-integer.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/parse-integer.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pfdietz, Mon Sep 8 13:20:08 2003 UTC revision 1.8 by pfdietz, Tue Sep 9 01:16:19 2003 UTC
# Line 240  Line 240 
240    (1234567890 10)    (1234567890 10)
241    (123 3))    (123 3))
242    
           
   
   
   
   
   
           
243    (deftest parse-integer.31
244      (parse-integer "1234" :start 1)
245      234 4)
246    
247    (deftest parse-integer.32
248      (parse-integer "1234" :start 1 :end nil)
249      234 4)
250    
251    (deftest parse-integer.33
252      (let* ((s (make-array 5 :initial-contents "a123b" :element-type 'base-char))
253             (s2 (make-array 3 :displaced-to s :displaced-index-offset 1
254                             :element-type 'base-char))
255             (s3 (make-array 2 :displaced-to s2 :displaced-index-offset 1
256                             :element-type 'base-char)))
257        (values
258         s3
259         (length s3)
260         (equalpt "23" s3)
261         (multiple-value-list (parse-integer s2))))
262      "23" 2 t (23 2))
263    
264    (deftest parse-integer.34
265      (parse-integer "1234" :end 3)
266      123 3)
267    
268    (deftest parse-integer.35
269      (parse-integer "1234" :end 3 :end 1)
270      123 3)
271    
272    (deftest parse-integer.36
273      (parse-integer "1234" :end nil :end 3)
274      1234 4)
275    
276    ;;; Order of evaluation tests
277    
278    (deftest parse-integer.order.1
279      (let ((i 0) a b c d e)
280        (values
281         (multiple-value-list
282          (parse-integer (progn (setf a (incf i)) "10001")
283                         :radix (progn (setf b (incf i)) 2)
284                         :start (progn (setf c (incf i)) 0)
285                         :end (progn (setf d (incf i)) 5)
286                         :junk-allowed (progn (setf e (incf i)) nil)))
287         i a b c d e))
288      (17 5) 5 1 2 3 4 5)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26