From 3893aac866a366dfb8259ad9d5d877952d5c48dc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Mon, 2 May 2016 15:17:54 +0200
Subject: os_mon: Test wordsize of memsup:get_os_wordsize/0

Simple test against erlang:system_info({wordsize,external}).
---
 lib/os_mon/test/memsup_SUITE.erl | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

(limited to 'lib/os_mon/test/memsup_SUITE.erl')

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(),
-- 
cgit v1.2.3