aboutgitcodebugslistschat
path: root/test/lib/layout_ugly
blob: 22f6169b24cb567be88fb8f97c88dd543e611d24 (plain) (blame)
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#!/bin/sh
#
# SPDX-License-Identifier: AGPL-3.0-or-later
#
# PASST - Plug A Simple Socket Transport
#  for qemu/UNIX domain socket mode
#
# PASTA - Pack A Subtle Tap Abstraction
#  for network namespace/tap device mode
#
# test/lib/layout_ugly - screen-scraped tmux pane layouts
#
# Copyright (c) 2022 Red Hat GmbH
# Author: Stefano Brivio <sbrivio@redhat.com>

# layout_host() - Simple host commands layout with info and host panes
layout_host() {
	sleep 3

	tmux kill-pane -a -t 0
	cmd_write 0 clear

	tmux split-window -h -l '35%' -t passt_test:1.0

	PANE_HOST=0
	PANE_INFO=1

	get_info_cols

	tmux send-keys -l -t ${PANE_INFO} 'while cat '"$STATEBASE/log_pipe"'; do :; done'
	tmux send-keys -t ${PANE_INFO} -N 100 C-m
	tmux select-pane -t ${PANE_INFO} -T "test log"

	if context_exists host; then
		pane_watch_contexts 0 host host
	else
		tmux pipe-pane -O -t ${PANE_HOST} "cat >> ${LOGDIR}/pane_host.log"
		tmux select-pane -t ${PANE_HOST} -T "host"
	fi

	info_layout "host commands only"

	sleep 1
}

# layout_pasta_simple() - Panes for host and pasta
layout_pasta_simple() {
	sleep 3

	tmux kill-pane -a -t 0
	cmd_write 0 clear

	tmux split-window -v -t passt_test
	tmux split-window -h -t passt_test

	PANE_PASST=0
	PANE_HOST=1
	PANE_INFO=2

	get_info_cols

	tmux send-keys -l -t ${PANE_INFO} 'while cat '"$STATEBASE/log_pipe"'; do :; done'
	tmux send-keys -t ${PANE_INFO} -N 100 C-m
	tmux select-pane -t ${PANE_INFO} -T "test log"

	if context_exists host; then
		pane_watch_contexts ${PANE_HOST} host host
	else
		tmux pipe-pane -O -t ${PANE_HOST} "cat >> ${LOGDIR}/pane_host.log"
		tmux select-pane -t ${PANE_HOST} -T "host"
	fi

	if context_exists passt; then
		pane_watch_contexts ${PANE_PASST} host host
	else
		tmux pipe-pane -O -t ${PANE_PASST} "cat >> ${LOGDIR}/pane_passt.log"
		tmux select-pane -t ${PANE_PASST} -T "pasta"
	fi

	info_layout "single pasta instance"

	sleep 1
}

# layout_memory() - Screen-scraped panes for memory usage tests, big guest pane
layout_memory() {
	sleep 3

	tmux kill-pane -a -t 0
	cmd_write 0 clear

	tmux split-window -h -l '35%' -t passt_test

	PANE_GUEST=0
	PANE_INFO=1

	get_info_cols

	tmux send-keys -l -t ${PANE_INFO} 'while cat '"$STATEBASE/log_pipe"'; do :; done'
	tmux send-keys -t ${PANE_INFO} -N 100 C-m
	tmux select-pane -t ${PANE_INFO} -T "test log"

	if context_exists guest; then
		pane_watch_contexts ${PANE_GUEST} guest guest
	else
		tmux pipe-pane -O -t ${PANE_GUEST} "cat >> ${LOGDIR}/pane_guest.log"
		tmux select-pane -t ${PANE_GUEST} -T "guest"
	fi

	info_layout "memory usage"

	sleep 1
}