Installer import into contrib (real import this time)
[dragonfly.git] / contrib / bsdinstaller-1.1.6 / src / backend / lua / scripts / test / commands.lua
1 -- test code for Lua<->DFUI binding.
2 -- $Id: commands.lua,v 1.16 2005/02/18 04:30:49 cpressey Exp $
3
4 require "cmdchain"
5 require "dfui"
6
7 App.start{
8     name = "Command-execution test program",
9     logfile = "cmdtest.log",
10     ui = DFUI.new{
11         transport = "tcp",
12         rendezvous = "9999"
13     }
14 }
15
16 -- App.option.fake_execution = true
17
18 cc = CmdChain.new()
19
20 cc:add(
21     { cmdline = "touch /tmp/testing" },
22     { cmdline = "sleep 5", desc = "We're waiting five seconds..." },
23     { cmdline = "ls -la /tmp/", capture = "ls" }
24 )
25
26 r = cc:preview()
27 print("cc:preview()=",r)
28
29 r = cc:execute()
30 print("cc:execute()=",r)
31
32 r = cc:get_output("ls")
33 print("cc:get_output(ls)=", r)
34 for i in r do
35         print("-->", r[i])
36 end
37
38 print("*** writing command chain as script to stdout ***")
39 cc:record(io.stdout)
40 print("*** command chain script written to stdout ***")
41
42 r = CmdChain.new("echo 'hi'", "echo 'there'"):execute()
43 print("cc:execute()=",r)
44
45 App.stop()