53 lines
2.6 KiB
Scheme
53 lines
2.6 KiB
Scheme
(use-modules (srfi srfi-64)
|
|
(srfi srfi-13)
|
|
(fruix system freebsd)
|
|
(fruix system freebsd render))
|
|
|
|
(define os (operating-system))
|
|
(define generated-files
|
|
(operating-system-generated-files os
|
|
#:guile-store "/tmp/test-guile"
|
|
#:guile-extra-store "/tmp/test-guile-extra"
|
|
#:shepherd-store "/tmp/test-shepherd"
|
|
#:guile-newt-store "/tmp/test-guile-newt"))
|
|
(define fruix-script (assoc-ref generated-files "usr/local/bin/fruix"))
|
|
|
|
(test-begin "node-lifecycle")
|
|
|
|
(test-assert "generation metadata records declaration file"
|
|
(string-contains fruix-script
|
|
" (system-declaration-file . \"$closure/metadata/system-declaration.scm\")"))
|
|
(test-assert "generation metadata records declaration info file"
|
|
(string-contains fruix-script
|
|
" (system-declaration-info-file . \"$closure/metadata/system-declaration-info.scm\")"))
|
|
(test-assert "generation metadata records declaration system file"
|
|
(string-contains fruix-script
|
|
" (system-declaration-system-file . \"$closure/metadata/system-declaration-system\")"))
|
|
|
|
(test-assert "status reports default declaration path"
|
|
(string-contains fruix-script
|
|
"printf 'default_declaration_file=%s\\n' \"$declaration_file\""))
|
|
(test-assert "status reports default system name"
|
|
(string-contains fruix-script
|
|
"printf 'default_system_name=%s\\n' \"$declared_system_name\""))
|
|
(test-assert "status reports current generation metadata path"
|
|
(string-contains fruix-script
|
|
"printf 'current_generation_metadata=%s\\n' \"$current_generation_metadata\""))
|
|
(test-assert "status reports current declaration file"
|
|
(string-contains fruix-script
|
|
"printf 'current_declaration_file=%s\\n' \"$current_declaration_file\""))
|
|
(test-assert "status reports current system name"
|
|
(string-contains fruix-script
|
|
"printf 'current_system_name=%s\\n' \"$current_system_name\""))
|
|
(test-assert "status reports rollback generation metadata path"
|
|
(string-contains fruix-script
|
|
"printf 'rollback_generation_metadata=%s\\n' \"$rollback_generation_metadata\""))
|
|
(test-assert "status reports rollback declaration file"
|
|
(string-contains fruix-script
|
|
"printf 'rollback_declaration_file=%s\\n' \"$rollback_declaration_file\""))
|
|
(test-assert "status reports rollback system name"
|
|
(string-contains fruix-script
|
|
"printf 'rollback_system_name=%s\\n' \"$rollback_system_name\""))
|
|
|
|
(test-end "node-lifecycle")
|