feat: implement modular lab tool structure with working CLI
- Add lab/ module structure (core, machines, deployment, monitoring) - Add mcp/ server stub for future MCP integration - Update main.scm to use new modular architecture - Fix utils/config.scm to export get-current-config function - Create comprehensive test suite with all modules passing - Update TODO.md with completed high priority tasks Key improvements: - Modular design following K.I.S.S principles - Working CLI interface for status, machines, deploy commands - Infrastructure status checking functional - All module tests passing - Clean separation of pure/impure functions CLI now works: ./main.scm status, ./main.scm machines, ./main.scm deploy <machine>
This commit is contained in:
parent
fb4361d938
commit
564faaa479
12 changed files with 196 additions and 427 deletions
24
packages/lab-tool/test-functionality.scm
Executable file
24
packages/lab-tool/test-functionality.scm
Executable file
|
@ -0,0 +1,24 @@
|
|||
#!/usr/bin/env guile
|
||||
!#
|
||||
|
||||
;; Simple functionality test
|
||||
|
||||
(add-to-load-path ".")
|
||||
|
||||
(use-modules (ice-9 format)
|
||||
(lab core)
|
||||
(lab machines)
|
||||
(utils logging))
|
||||
|
||||
(format #t "🧪 LAB TOOL FUNCTIONALITY TEST\n")
|
||||
(format #t "===============================\n\n")
|
||||
|
||||
;; Test basic functionality
|
||||
(format #t "Testing core functionality:\n")
|
||||
(let ((machines (list-machines)))
|
||||
(format #t "✅ Found ~a machines: ~a\n" (length machines) machines))
|
||||
|
||||
(let ((status (get-infrastructure-status)))
|
||||
(format #t "✅ Infrastructure status: ~a machines checked\n" (length status)))
|
||||
|
||||
(format #t "\n🎉 Basic functionality working!\n")
|
Loading…
Add table
Add a link
Reference in a new issue