Commit 0b63a1c88767ffb1b7323302505d789008defb3b
2014-10-03T11:44:24
Update tests
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
diff --git a/test.lisp b/test.lisp
index 6247635..7dd9333 100644
--- a/test.lisp
+++ b/test.lisp
@@ -3,17 +3,32 @@
(require :adams)
-(use-package :adams)
+(in-package :adams-user)
;; TEST
#+nil
(untrace shell-status)
-(setf *debug* '(shell))
+(setf (debug-p :shell) t)
-(with-shell (shell)
- (run-command "hostname && false" shell)
- (run-command "pwd" shell)
- (run-command "ls" shell)
- (run-command "exit" shell))
+(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")