summaryrefslogtreecommitdiff
path: root/test
blob: e8c2b53e4cb940cae5514782247b10c56eb62c5d (plain)
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
45
46
47
48
49
50
51
52
#!/usr/bin/expect -f
# Very basic end-to-end testing for CI
set tempdir [exec mktemp -d]
set ::env(XDG_CONFIG_HOME) $tempdir

# Run the daemon to test against
system ./xD --write-default-cfg
spawn ./xD -d

# 10 seconds is a bit too much
set timeout 5

spawn ./xC

# Fuck this Tcl shit, I want the exit code
expect_after {
	eof {
		puts ""
		puts "Child exited prematurely"
		exit 1
	}
}

# Connect to the daemon
send "/server add localhost\n"
expect "]"
send "/set servers.localhost.addresses = \"localhost\"\n"
expect "Option changed"
send "/disconnect\n"
expect "]"
send "/connect\n"
expect "Welcome to"

# Try some chatting
send "/join #test\n"
expect "has joined"
send "Hello\n"
expect "Hello"

# Attributes
send "\x1bmbBold text! \x1bmc0,5And colors.\n"
expect "]"

# Try basic commands
send "/set\n"
expect "]"
send "/help\n"
expect "]"

# Quit
send "/quit\n"
expect "Shutting down"