thodg/cl-unix-cybernetics/test.lisp

Branch : - branch - master v0.3 - tag - adams-0.1 adams-0.2 adams-0.3 adams-0.3.1 adams-0.3.2 v0.3.3

• Show log

  Commit

• Author : Thomas de Grivel
  Date : 2014-10-03 11:44:24
  Hash : 0b63a1c8
  Message : Update tests

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