diff options
| author | Dan Gudmundsson <[email protected]> | 2014-04-17 14:52:55 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2014-04-17 14:52:55 +0200 |
| commit | 8093b972025dfd4f390266fa5288ebb46a516317 (patch) | |
| tree | 03bac2a4dc6abfec1c4b77a2ff35c9219800f1cd /lib/observer/test/observer_SUITE.erl | |
| parent | 2fb83e99c6db6fa9537222b20af5f678c75dd584 (diff) | |
| download | otp-8093b972025dfd4f390266fa5288ebb46a516317.tar.gz otp-8093b972025dfd4f390266fa5288ebb46a516317.tar.bz2 otp-8093b972025dfd4f390266fa5288ebb46a516317.zip | |
observer: Destroy the wx env
Ensure that the server exists on close, even though linked to the test process
Diffstat (limited to 'lib/observer/test/observer_SUITE.erl')
| -rw-r--r-- | lib/observer/test/observer_SUITE.erl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/observer/test/observer_SUITE.erl b/lib/observer/test/observer_SUITE.erl index b91182feee..5cf719acb1 100644 --- a/lib/observer/test/observer_SUITE.erl +++ b/lib/observer/test/observer_SUITE.erl @@ -107,6 +107,7 @@ appup_file(Config) when is_list(Config) -> basic(suite) -> []; basic(doc) -> [""]; basic(Config) when is_list(Config) -> + timer:send_after(100, "foobar"), %% Otherwise the timer sever gets added to procs ProcsBefore = processes(), NumProcsBefore = length(ProcsBefore), @@ -243,14 +244,12 @@ table_win(Config) when is_list(Config) -> %% Modal can not test edit.. %% TPid = wx_object:get_pid(TObj), %% TPid ! #wx{event=#wxList{type=command_list_item_activated, itemIndex=12}}, - timer:sleep(2000), + timer:sleep(3000), wx_object:get_pid(TObj) ! #wx{event=#wxClose{type=close_window}}, observer:stop(), ok. - - %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% get_top_level_parent(Window) -> |