43 lines
1.3 KiB
Scheme
Executable file
43 lines
1.3 KiB
Scheme
Executable file
#!/usr/bin/env guile
|
|
!#
|
|
|
|
;; Test script for modular refactoring
|
|
|
|
(add-to-load-path "lab")
|
|
|
|
(use-modules (ice-9 format))
|
|
|
|
;; Test logging format module
|
|
(display "Testing logging format module...\n")
|
|
(catch #t
|
|
(lambda ()
|
|
(use-modules (utils logging format))
|
|
(display "✅ Logging format module loaded\n")
|
|
(let ((blue-color (get-color 'blue)))
|
|
(format #t "Blue color code: ~a\n" blue-color)))
|
|
(lambda (key . args)
|
|
(format #t "❌ Failed to load logging format: ~a ~a\n" key args)))
|
|
|
|
;; Test config defaults module
|
|
(display "\nTesting config defaults module...\n")
|
|
(catch #t
|
|
(lambda ()
|
|
(use-modules (utils config defaults))
|
|
(display "✅ Config defaults module loaded\n")
|
|
(let ((config default-config))
|
|
(format #t "Default homelab root: ~a\n" (assoc-ref config 'homelab-root))))
|
|
(lambda (key . args)
|
|
(format #t "❌ Failed to load config defaults: ~a ~a\n" key args)))
|
|
|
|
;; Test JSON parse module
|
|
(display "\nTesting JSON parse module...\n")
|
|
(catch #t
|
|
(lambda ()
|
|
(use-modules (utils json parse))
|
|
(display "✅ JSON parse module loaded\n")
|
|
(let ((result (parse-json-pure "{\"test\": true}")))
|
|
(format #t "JSON parse test: ~a\n" result)))
|
|
(lambda (key . args)
|
|
(format #t "❌ Failed to load JSON parse: ~a ~a\n" key args)))
|
|
|
|
(display "\n🎉 Modular refactoring test complete!\n")
|