;;
;; test-crawler.scm — Test the filesystem crawler
;;
(format #t "~%═══ TESTING CRAWLER ═══~%~%")
;; Crawl the incoming directory
(crawl-dir (string-append *mvp-dir* "/corpus/incoming/"))
;; Show status after crawl
(crawl-status)
(format #t "~%═══ CRAWLER TEST COMPLETE ═══~%~%")