(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")