Changeset 11948


Ignore:
Timestamp:
Apr 13, 2009, 2:24:52 AM (11 years ago)
Author:
gz
Message:

Add regression tests for catching memory faults

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r11854 r11948  
    827827  (b))
    828828
     829
     830(deftest ccl.57900.1 ;; don't crash on simple access errors
     831    (handler-case (funcall (lambda (x) (declare (optimize (safety 1) (speed 1))) (ccl::%caar x))
     832                           *standard-input*)
     833      (storage-condition () :storage-condition))
     834  :storage-condition)
     835
     836(deftest ccl.57900.2
     837    (handler-case (funcall (lambda (x) (declare (optimize (safety 1) (speed 1))) (ccl::%caar x))
     838                           0)
     839      (storage-condition () :storage-condition))
     840  :storage-condition)
    829841
    830842;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.