diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2016-05-02 15:17:54 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2016-05-16 14:42:19 +0200 |
| commit | 3893aac866a366dfb8259ad9d5d877952d5c48dc (patch) | |
| tree | 623c9b9be8363d2b945c5b4209d603c5098dac23 | |
| parent | 4fa059fc27d0d6443e97df08662ca309ba7479e8 (diff) | |
| download | otp-3893aac866a366dfb8259ad9d5d877952d5c48dc.tar.gz otp-3893aac866a366dfb8259ad9d5d877952d5c48dc.tar.bz2 otp-3893aac866a366dfb8259ad9d5d877952d5c48dc.zip | |
os_mon: Test wordsize of memsup:get_os_wordsize/0
Simple test against erlang:system_info({wordsize,external}).
| -rw-r--r-- | lib/os_mon/test/memsup_SUITE.erl | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lib/os_mon/test/memsup_SUITE.erl b/lib/os_mon/test/memsup_SUITE.erl index 8ab61e9581..805b648bb5 100644 --- a/lib/os_mon/test/memsup_SUITE.erl +++ b/lib/os_mon/test/memsup_SUITE.erl @@ -116,12 +116,18 @@ api(Config) when is_list(Config) -> ExtMemData), %% get_os_wordsize() - ?line ok = case memsup:get_os_wordsize() of - 32 -> ok; - 64 -> ok; - unsupported_os -> ok; - _ -> error - end, + ok = case memsup:get_os_wordsize() of + 32 -> + 32 = 8*erlang:system_info({wordsize,external}), + ok; + 64 -> + % No reliable test here + ok; + unsupported_os -> + ok; + _ -> + error + end, %% get_check_interval() ?line 60000 = memsup:get_check_interval(), |