63 lines
1.5 KiB
Scheme
Executable file
63 lines
1.5 KiB
Scheme
Executable file
#!/usr/bin/env guile
|
|
!#
|
|
|
|
;; TDD Simple Module Test for Lab Tool
|
|
;; Following K.I.S.S principles - test module loading only
|
|
|
|
(add-to-load-path ".")
|
|
|
|
(use-modules (ice-9 format))
|
|
|
|
(define (main)
|
|
(format #t "🧪 LAB TOOL MODULE LOADING TEST\n")
|
|
(format #t "=================================\n\n")
|
|
|
|
;; Test module loading
|
|
(format #t "Testing module loading...\n")
|
|
|
|
;; Test 1: Lab modules
|
|
(format #t "1. Lab core module: ")
|
|
(catch #t
|
|
(lambda ()
|
|
(use-modules (lab core))
|
|
(format #t "✅ LOADED\n"))
|
|
(lambda (key . args)
|
|
(format #t "❌ FAILED: ~a\n" key)))
|
|
|
|
(format #t "2. Lab machines module: ")
|
|
(catch #t
|
|
(lambda ()
|
|
(use-modules (lab machines))
|
|
(format #t "✅ LOADED\n"))
|
|
(lambda (key . args)
|
|
(format #t "❌ FAILED: ~a\n" key)))
|
|
|
|
(format #t "3. Lab deployment module: ")
|
|
(catch #t
|
|
(lambda ()
|
|
(use-modules (lab deployment))
|
|
(format #t "✅ LOADED\n"))
|
|
(lambda (key . args)
|
|
(format #t "❌ FAILED: ~a\n" key)))
|
|
|
|
;; Test 2: Utils modules
|
|
(format #t "4. Utils logging module: ")
|
|
(catch #t
|
|
(lambda ()
|
|
(use-modules (utils logging))
|
|
(format #t "✅ LOADED\n"))
|
|
(lambda (key . args)
|
|
(format #t "❌ FAILED: ~a\n" key)))
|
|
|
|
(format #t "5. Utils config module: ")
|
|
(catch #t
|
|
(lambda ()
|
|
(use-modules (utils config))
|
|
(format #t "✅ LOADED\n"))
|
|
(lambda (key . args)
|
|
(format #t "❌ FAILED: ~a\n" key)))
|
|
|
|
(format #t "\n🎉 Module loading test complete!\n"))
|
|
|
|
;; Run the main function
|
|
(main)
|