1 ;;; -*- mode: lisp; syntax: common-lisp; coding: utf-8; package: cl-user; -*-
5 (defpackage #:counted-feature-tests-tests
6 (:use #:cl #:counted-feature-tests #:fiveam))
8 (in-package #:counted-feature-tests-tests)
10 (file-enable-counted-feature-tests-syntax)
12 (def-suite counted-feature-tests)
14 (in-suite counted-feature-tests)
16 (def-test useless.zero ()
17 "Zero prefix is no-op."
18 (is (eq 'useless #0+is 'useless)))
20 (def-test or-other-stuff ()
21 "Always skip next two forms with (OR)."
22 (is (equal '(other stuff)
23 (list #2+(or) :a-keyword-argument and-its-value
26 (def-test useless.and ()
27 "Always read next form with (AND) and one prefix."
28 (is (eql 42 #1+(and) 42)))