Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-test test-read-header
- (:tags '(p-tests) :contexts (list #'setup))
- (let* ((p (merge-pathnames #p"test/inputs.txt" config::*APP-ROOT*)))
- (with-open-file (s p :direction :input :element-type '(unsigned-byte 8) :external-format '(:utf-8 :replacement #\?))
- (assert-equalp 129 (read-byte s)))))
- ;; I get 49 when expecting 129
- ;;The first six bytes of inputs.txt are: 129 0 0 0 0 126
Add Comment
Please, Sign In to add comment