tests/selfbuild-output.pure.lisp

   1
   2 (with-test (:name :make-list-%make-list-not-called
   3                   :fails-on (:not :x86-64))
   4   (assert (not (ctu:asm-search "%MAKE-LIST" #'make-list))))
   5
   6 (with-test (:name :copy-structure-efficient-case)
   7   (assert (not (ctu:asm-search "ASH" #'copy-structure))))
   8
   9 ;;; Make sure that we see the literal value of
  10 ;;; SB-UNICODE::+CHARACTER-MISC-DATABASE+
  11 (with-test (:name :alphanumericp-is-inlined
  12                   :skipped-on (:not :sb-unicode))
  13   (let ((code (sb-kernel:fun-code-header #'sb-impl::case-frob-capitalize-out)))
  14     (loop for i from sb-vm:code-constants-offset below (sb-kernel:code-header-words code)
  15           thereis (eq (sb-kernel:code-header-ref code i)
  16                       sb-unicode::+character-misc-database+))))
  17
  18 (with-test (:name :byte-bash-copier-mixup :skipped-on (or (:not :sb-devel)
  19                                                           :sb-devel-no-errors))
  20   (let ((a (make-array 20 :element-type '(unsigned-byte 8)
  21                           :initial-element 0))
  22         (b (make-array 5 :element-type '(unsigned-byte 32))))
  23     ;; Can't mix-and-match array element types.
  24     (assert-error (sb-kernel:ub8-bash-copy a 0 b 0 5))))