diff --git a/tests/bencode.scm b/tests/bencode.scm index 97ae39a..94b9e37 100644 --- a/tests/bencode.scm +++ b/tests/bencode.scm @@ -2,7 +2,9 @@ #:use-module (srfi srfi-64) #:use-module (guile-nrepl bencode)) -(test-group "bencode.scm" +(test-group "bencode" (test-group "encode" (test-group "string->bencode" - (test-equal "0:" (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))))))