ray/ordo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Switch back to records, not goops

Browse source
This commit is contained in:
Ray Miller 2025-01-12 15:28:29 +00:00
parent 70543ef7c5
commit 5376ce9f19
Signed by: ray
GPG key ID: 043F786C4CD681B8
3 changed files with 117 additions and 140 deletions
Download patch file Download diff file Expand all files Collapse all files

34
tryme.scm
View file

@ -1,7 +1,5 @@
(use-modules
(ice-9 filesystem)
(logging logger)
(srfi srfi-26)
(ordo)
(ordo connection)
(ordo logger))
@ -20,24 +18,22 @@
(when update? "-u")
#:check? #t)))
(lambda ()
(for-each (cut log-msg 'INFO <>)
(run conn "echo" "rm" "-rf" tmp-dir #:check? #t))))))
(run conn "rm" "-rf" tmp-dir #:check? #t)))))
(define test-playbook
(playbook
#:name "Test Playbook"
#:plays (list
(play
#:name "Test play"
#:connection (local-connection)
#:vars '((base-dir . "/home/ray/ordo-test"))
#:acts (list
(act #:name "Act I"
#:tasks (list
(task #:name "Create base directory"
#:action (lambda (c) (must c "mkdir" "-p" ($ 'base-dir))))
(task #:name "Create test file"
#:action (lambda (c) (must c "touch" (file-name-join* ($ 'base-dir) "test-file")))))))))))
(playbook "Test Playbook"
(play "Test play"
#:connection (local-connection)
(task "Get home directory"
(lambda (c) (run c "sh" "-c" "[ -n \"$HOME\" ] && echo $HOME" #:check? #t #:return car))
#:register (register-play-var 'home-dir)
#:tags '(#:always))
(task "Install AWS CLI"
(lambda (c)
(install-aws-cli c
#:update? #t
#:install-dir (file-name-join* ($ 'home-dir) ".local" "aws-cli")
#:bin-dir (file-name-join* ($ 'home-dir) ".local" "bin")))))))
(setup-logging)
(perform test-playbook '())
(run-playbook test-playbook)