geir/home-lab
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cleaned up and maybe finished the guile lab tool

Browse source
This commit is contained in:
Geir Okkenhaug Jerstad 2025-06-16 21:09:41 +02:00
parent 4290973048
commit 74142365eb
24 changed files with 895 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

24
packages/lab-tool/test-functionality.scm
View file

@ -1,24 +0,0 @@
#!/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")