thodg/cl-unix-cybernetics/test.lisp

• Show log

  Commit

• Hash : 0b63a1c8
  Author :
  Date : 2014-10-03T11:44:24
  

  Update tests

Download

• test.lisp

• 
  (in-package :cl-user)
  
  (require :adams)
  
  (in-package :adams-user)
  
  ;; TEST
  
  #+nil
  (untrace shell-status)
  
  (setf (debug-p :shell) t)
  
  (with-host "h"
    (run "hostname && false")
    (run "pwd")
    (run "ls")
    (run "exit"))
  
  (with-manifest "h"
    (make-instance 'user :name "vmail"
  		 :shell "/bin/ksh"
  		 :home "/var/qmail/domains"
  		 :gid 13000
  		 :uid 13000))
  
  (adams::apply-manifest "h")
  
  (manifest-resources (manifest "h"))
  
  (apply-manifest "h")
  
  (remove-manifest "h")
  

Download