EoPL reading (7) 1.2.4 Exercises

昨晩のエントリ、以下な試験しかしてないのでコードの信頼性は微妙。

(use gauche.test)

(add-load-path ".")
(load "vector-append-list")

(test-start "vector-append-list")
(test-section "vector-append-list")
(test* "(vector-append-list '#(1 2 3) '(4 5))"
       #(1 2 3 4 5)
       (vector-append-list '#(1 2 3) '(4 5)))
(test-end)

で、以下な試験を追加してみた。

(test* "(vector-append-list '#(1 2 3) '())"
       #(1 2 3)
       (vector-append-list '#(1 2 3) '()))
(test* "(vector-append-list '#() '(1 2 3))"
       #(1 2 3)
       (vector-append-list '#() '(1 2 3)))

いちおう昨晩エントリにて例示したものは両方パス。これ、OK って思ってて良いのでしょうか。追加した試験で全部を網羅してるとは到底思えないんですが。