cl-unix-cybernetics/cl-unix-cybernetics/test.lisp

Branch - branch -0.1-stable0.2-stablemasterv0.3- tag -v0.3.3adams-0.3.2adams-0.3.1adams-0.3adams-0.2adams-0.1

• Show log

  Commit

• Hash : b0ab5bb5
  Author : Thomas de Grivel
  Date : 2022-12-04T18:50:53
  

  cl-unix-cybernetics
  

Download

• test.lisp

• ;; cl-unix-cybernetics
  ;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
  ;;
  ;; Permission is hereby granted to use this software granted
  ;; the above copyright notice and this permission paragraph
  ;; are included in all copies and substantial portions of this
  ;; software.
  ;;
  ;; THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
  ;; PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
  ;; AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
  ;; THIS SOFTWARE.
  
  (in-package :cl-user)
  
  (require :cl-unix-cybernetics)
  
  (in-package :cl-unix-cybernetics-user)
  
  ;; TEST
  
  (setf (debug-p :shell) t)
  (setf (debug-p :sb-shell) nil)
  
  (assert (string= (machine-instance) (run-1 "hostname")))
  
  (cl-unix-cybernetics:clear-resources)
  (cl-unix-cybernetics:clear-probed)
  
  (resource 'symlink "/home/dx/test-symlink"
            :owner "dx"
            :group "dx"
            :target "../test")
  
  (resource 'host "ams.kmx.io"
            :user "root"
            :hostname "ams"
            :packages '("emacs:no_x11" "git" "rsync" "sbcl" "texinfo" "texlive_texmf-full")
            (resource 'group "dx"
                      :gid 19256)
            (resource 'user "dx"
                      :uid 19256
                      :gid 19256
                      :home "/home/dx"))
  
  (with-host "ams.kmx.io"
    (sync *host*))
  
  (resource 'host "vu.kmx.io"
            :user "root"
            :hostname "vu"
            :packages '("emacs:no_x11" "git" "rsync" "sbcl" "texinfo" "texlive_texmf-full")
            (resource 'group "dx"
                      :gid 19256
                      :ensure :present)
            (resource 'user "dx"
                      :uid 19256
                      :gid 19256
                      :home "/home/dx"
                      :ensure :present)
            (resource 'group "git"
                      :gid 7000
                      :ensure :present)
            (resource 'user "git"
                      :uid 7000
                      :gid 7000
                      :home "/home/git"
                      :shell "/usr/local/bin/git-auth"
                      :ensure :present))
  
  (with-host "vu.kmx.io"
    (sync *host*))
  

Download