From 3222e7d0c9642f76f2a743a1b937fc433c20b532 Mon Sep 17 00:00:00 2001 From: TakeV Date: Sun, 2 Jul 2023 23:18:17 -0700 Subject: [PATCH] Add more test cases --- tests/bencode.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))))))