diff options
author | Dan Gudmundsson <[email protected]> | 2014-03-04 15:51:54 +0100 |
---|---|---|
committer | Dan Gudmundsson <[email protected]> | 2014-03-28 09:58:19 +0100 |
commit | 4f63cca949982e88d958e33e2e278b18da4de4b3 (patch) | |
tree | 5752dddb7ff2d9eb4d914402b396f226c5c2d964 /lib/os_mon/test/disksup_SUITE.erl | |
parent | e5d3241e4d7a403702709bf25014d920d6ac563a (diff) | |
download | otp-4f63cca949982e88d958e33e2e278b18da4de4b3.tar.gz otp-4f63cca949982e88d958e33e2e278b18da4de4b3.tar.bz2 otp-4f63cca949982e88d958e33e2e278b18da4de4b3.zip |
os_mon: test tweaks
child not started on windows so test fails
Diffstat (limited to 'lib/os_mon/test/disksup_SUITE.erl')
-rw-r--r-- | lib/os_mon/test/disksup_SUITE.erl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lib/os_mon/test/disksup_SUITE.erl b/lib/os_mon/test/disksup_SUITE.erl index 9c65d8b692..94661cfa77 100644 --- a/lib/os_mon/test/disksup_SUITE.erl +++ b/lib/os_mon/test/disksup_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2011. All Rights Reserved. +%% Copyright Ericsson AB 1996-2014. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -350,15 +350,16 @@ otp_5910(doc) -> otp_5910(Config) when is_list(Config) -> %% Make sure disksup sets at least one alarm - Data = disksup:get_disk_data(), + Data = lists:sort(disksup:get_disk_data()), Threshold0 = disksup:get_almost_full_threshold(), Threshold = case over_threshold(Data, Threshold0) of - 0 -> - [{_Id,_Kbyte,Cap}|_] = Data, - ok = disksup:set_almost_full_threshold((Cap-1)/100), - Cap-1; - _N -> Threshold0 - end, + 0 -> + [{_Id,_Kbyte,Cap}|_] = Data, + io:format("Data ~p Threshold ~p ~n",[Data, Cap-1]), + ok = disksup:set_almost_full_threshold((Cap-1)/100), + Cap-1; + _N -> Threshold0 + end, ok = application:set_env(os_mon, disk_almost_full_threshold, Threshold/100), disksup ! timeout, % force a disk check Data2 = disksup:get_disk_data(), |