ttests.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP (HTM) git clone git://bitreich.org/clic/ git://hg6vgqziawt5s4dj.onion/clic/ (DIR) Log (DIR) Files (DIR) Refs (DIR) Tags (DIR) LICENSE --- ttests.lisp (1408B) --- 1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*- 2 3 (defpackage :split-sequence/tests 4 (:use :common-lisp :split-sequence :fiveam)) 5 6 (in-package :split-sequence/tests) 7 8 (in-suite* :split-sequence) 9 10 ;;;; SPLIT-SEQUENCE 11 12 (test (split-sequence.1 :compile-at :definition-time) 13 (is (equalp (split-sequence #\; "a;;b;c") 14 (values '("a" "" "b" "c") 6)))) 15 16 (test (split-sequence.2 :compile-at :definition-time) 17 (is (equalp (split-sequence #\; "a;;b;c" :from-end t) 18 (values '("a" "" "b" "c") 0)))) 19 20 (test (split-sequence.3 :compile-at :definition-time) 21 (is (equalp (split-sequence #\; "a;;b;c" :from-end t :count 1) 22 (values '("c") 4)))) 23 24 (test (split-sequence.4 :compile-at :definition-time) 25 (is (equalp (split-sequence #\; "a;;b;c" :remove-empty-subseqs t) 26 (values '("a" "b" "c") 6)))) 27 28 (test (split-sequence.5 :compile-at :definition-time) 29 (is (equalp (split-sequence #\; ";oo;bar;ba;" :start 1 :end 9) 30 (values '("oo" "bar" "b") 9)))) 31 32 (test (split-sequence-if.1 :compile-at :definition-time) 33 (is (equalp (split-sequence-if (lambda (x) (member x '(#\a #\b))) "abracadabra") 34 (values '("" "" "r" "c" "d" "" "r" "") 11)))) 35 36 (test (split-sequence-if-not.1 :compile-at :definition-time) 37 (is (equalp (split-sequence-if-not (lambda (x) (member x '(#\a #\b))) "abracadabra") 38 (values '("ab" "a" "a" "ab" "a") 11))))