564faaa479
- 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>
24 lines
648 B
Scheme
Executable file
24 lines
648 B
Scheme
Executable file
#!/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")
|