cleaned up and maybe finished the guile lab tool
This commit is contained in:
parent
4290973048
commit
74142365eb
24 changed files with 895 additions and 20 deletions
63
packages/lab-tool/testing/test-modules-simple.scm
Executable file
63
packages/lab-tool/testing/test-modules-simple.scm
Executable file
|
@ -0,0 +1,63 @@
|
|||
#!/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)
|
Loading…
Add table
Add a link
Reference in a new issue