Changeset 11354


Ignore:
Timestamp:
Nov 11, 2008, 6:26:05 PM (11 years ago)
Author:
gb
Message:

Condtionalize tests that open files with large integer element-types.

Location:
trunk/tests/ansi-tests
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests

    • Property svn:ignore set to
      *.lx32fsl
      *.dat
      *.txt
      *.LSP
      COMPILE-FILE-TEST-LP.OUT
      TEMP.DAT
      TMP.DAT
      foo.fasl
      foo.lsp
      foo.ufsl
      open.lsp
      scratch
  • trunk/tests/ansi-tests/open.lsp

    r9672 r11354  
    253253  (let ((seq (make-array 10))) (read-sequence seq s) seq)
    254254  (#(0 1 2 3 4 5 6 7 8 9)) :element-type (unsigned-byte 32))
    255 
     255#+(or (not ccl) (not 32-bit-target))
    256256(def-open-test open.57 ()
    257257  (let ((seq (make-array 10))) (read-sequence seq s) seq)
    258258  (#(0 1 2 3 4 5 6 7 8 9)) :element-type (unsigned-byte 33))
     259#+(or (not ccl) (not 32-bit-target))
    259260(def-open-test open.58 (:direction :input)
    260261  (let ((seq (make-array 10))) (read-sequence seq s) seq)
     
    521522  :element-type (unsigned-byte 32))
    522523
     524#+(or (not ccl) (not 32-bit-target))
    523525(def-open-output-test open.output.18 ()
    524526  (progn (close s) (with-open-file (is #p"tmp.dat"
     
    860862  :element-type (unsigned-byte 32))
    861863
     864#+(or (not ccl) (not 32-bit-target))
    862865(def-open-io-test open.io.18 ()
    863866  (progn (file-position s :start)
     
    10951098(def-open-probe-test open.probe.33 (:element-type '(unsigned-byte 31)) t)
    10961099(def-open-probe-test open.probe.34 (:element-type '(unsigned-byte 32)) t)
     1100#+(or (not ccl) (not 32-bit-target))
    10971101(def-open-probe-test open.probe.35 (:element-type '(unsigned-byte 33)) t)
     1102#+(or (not ccl) (not 32-bit-target))
    10981103(def-open-probe-test open.probe.36 (:element-type '(integer -1002 13112)) t)
    10991104
Note: See TracChangeset for help on using the changeset viewer.