TakeV
/
guile-nrepl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add more test cases

This commit is contained in:
TakeV 2023-07-02 23:18:17 -07:00
parent 7f0364de19
commit 3222e7d0c9
Signed by: TakeV
GPG Key ID: A64F41345C7400AF
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/bencode.scm
View File

@ -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))))))