hash-lang-uwu
/
CS3700-project2
2
0
Fork 0
Code Issues Releases Activity

Add some commented out fake tests lmao

This commit is contained in:
xenia 2020-02-04 18:13:52 -05:00
parent d27dd3a5a3
commit d49d02f504
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
private/radix-tree.rkt
View File

@ -135,7 +135,7 @@
;; Debug print function that dumps the tree to current-output-port in a vaguely human-readable ;; Debug print function that dumps the tree to current-output-port in a vaguely human-readable
;; format ;; format
(define (rt-dump node [prefix ""]) (define (rt-dump node [prefix ""])
(displayln (format "~a node ~a" prefix (rt-node-data node))) (displayln (format "~a node ~s" prefix (rt-node-data node)))
(define edge0 (rt-node-edge0 node)) (define edge0 (rt-node-edge0 node))
(define edge1 (rt-node-edge1 node)) (define edge1 (rt-node-edge1 node))
(when edge0 (when edge0
@ -155,11 +155,14 @@
(lambda (_) x) (lambda (_) x)
(lambda () x))) (lambda () x)))
; (test-insert! "0001") ; (test-insert! "0001")
; (test-insert! "")
; (rt-dump test)
; (test-insert! "0001")
; (test-insert! "000") ; (test-insert! "000")
; (test-insert! "0") ; (test-insert! "0")
; (rt-dump test) ; (rt-dump test)
; (rt-partial-iterate test (str->bl "0001")) ; (rt-partial-iterate test (str->bl "0001"))
; (rt-lookup test (str->bl "0001") (lambda () (error "bad"))) ; (rt-lookup test (str->bl "0000") (lambda () (error "bad")))
; (test-insert! "0001") ; (test-insert! "0001")
; (test-insert! "1000") ; (test-insert! "1000")