tests/rods.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- rods test suite.
   4 ;;;
   5
   6 (in-package :iolib-tests)
   7
   8 (in-suite :iolib.base.rods)
   9 \f
  10
  11 (test make-rod.1
  12   (is-true (typep (make-rod 1) '(rod 1))))
  13
  14 (test make-rod.2
  15   (is-true (= 0 (aref (make-rod 1) 0))))
  16
  17 (test make-rod.3
  18   (is-true (= 40 (aref (make-rod 1 :initial-element 40) 0))))
  19
  20 (test make-rod.error.1
  21   (signals type-error
  22     (make-rod -1 :initial-element 40)))
  23
  24 (test make-rod.error.2
  25   (signals type-error
  26     (make-rod 1 :initial-element -1)))
  27
  28 (test make-rod.error.3
  29   (signals type-error
  30     (make-rod 1 :initial-element rune-code-limit)))
  31
  32 (test make-rod.error.3
  33   (signals type-error
  34     (make-rod 1 :initial-element #\a)))
  35 \f
  36
  37 (test string-rod.1
  38   (is-true (typep (string-rod "a") '(rod 1))))
  39
  40 (test string-rod.2
  41   (is (equalp (string-rod "a")
  42               #(97))))
  43
  44 (test string-rod.3
  45   (is (equalp (string-rod #\a)
  46               #(97))))
  47
  48 (test string-rod.4
  49   (is (equalp (string-rod 'a)
  50               #(65))))
  51 \f
  52
  53 (test rod.1
  54   (is (equalp #(97) (rod (make-rod 1 :initial-element 97)))))
  55
  56 (test rod.2
  57   (is (equalp #(97) (rod 97))))
  58
  59 (test rod.3
  60   (is (equalp #(97) (rod #(97)))))
  61
  62 (test rod.4
  63   (is (equalp #(97) (rod "a"))))
  64
  65 (test rod.5
  66   (is (equalp #(97) (rod #\a))))
  67
  68 (test rod.6
  69   (is (equalp #(65) (rod 'a))))
  70
  71 (test rod.7
  72   (is-true
  73    (let ((rod (make-rod 1 :initial-element 100)))
  74      (eq rod (rod rod :new nil)))))
  75
  76 (test rod.8
  77   (is-false
  78    (let ((rod (make-rod 1 :initial-element 100)))
  79      (eq rod (rod rod :new t)))))
  80
  81 (test rod.error.1
  82   (signals type-error
  83     (rod (make-hash-table))))