#!/usr/bin/env escript
%%! -name smoke@127.0.0.1 -setcookie gleamtk
-mode(compile).

main([]) ->
    true = register(controller, self()),
    io:format("registered controller pid=~p~n", [self()]),
    case net_adm:ping('ui@127.0.0.1') of
        pong ->
            io:format("ping=pong~n"),
            {gui, 'ui@127.0.0.1'} ! {hello, self()},
            {gui, 'ui@127.0.0.1'} ! {set_title, <<"from smoke">>},
            {gui, 'ui@127.0.0.1'} ! {set_label, <<"smoke label">>},
            {gui, 'ui@127.0.0.1'} ! {set_count, 7},
            {gui, 'ui@127.0.0.1'} ! ping,
            drain(8),
            halt(0);
        pang ->
            io:format("ping=pang~n"),
            halt(1)
    end.

drain(0) ->
    io:format("drain done~n");
drain(N) ->
    receive
        M ->
            io:format("got ~p~n", [M]),
            drain(N - 1)
    after 2000 ->
        io:format("drain timeout (~B left)~n", [N])
    end.