11 lines
405 B
Scheme
11 lines
405 B
Scheme
(define-module (tests bencode)
|
|
#:use-module (srfi srfi-64)
|
|
#:use-module (guile-nrepl bencode))
|
|
|
|
(test-group "bencode"
|
|
(test-group "encode"
|
|
(test-group "string->bencode"
|
|
(test-equal "empty string case" "0:" (string->bencode ""))
|
|
(test-equal "test word serializes" "5:takev" (string->bencode "takev"))
|
|
#;(test-assert "number input returns false" (list? (string->bencode 15))))))
|