1set server_path [tmpdir server.log]
2set system_name [string tolower [exec uname -s]]
3
4if {$system_name eq {linux} || $system_name eq {darwin}} {
5    start_server [list overrides [list dir $server_path]] {
6        test "Server is able to generate a stack trace on selected systems" {
7            r config set watchdog-period 200
8            r debug sleep 1
9            set pattern "*debugCommand*"
10            set retry 10
11            while {$retry} {
12                set result [exec tail -100 < [srv 0 stdout]]
13                if {[string match $pattern $result]} {
14                    break
15                }
16                incr retry -1
17                after 1000
18            }
19            if {$retry == 0} {
20                error "assertion:expected stack trace not found into log file"
21            }
22        }
23    }
24}
25