From 359c0244d4389b6316549ae269978d3e48185a8a Mon Sep 17 00:00:00 2001
From: Siri Hansen <siri@erlang.org>
Date: Mon, 27 Jun 2016 16:09:51 +0200
Subject: Make crashdump_viewer_SUITE independent of OTP version

---
 lib/observer/test/crashdump_viewer_SUITE.erl | 29 +++++++++++++---------------
 1 file changed, 13 insertions(+), 16 deletions(-)

(limited to 'lib/observer/test/crashdump_viewer_SUITE.erl')

diff --git a/lib/observer/test/crashdump_viewer_SUITE.erl b/lib/observer/test/crashdump_viewer_SUITE.erl
index 73ed890802..1947341ebe 100644
--- a/lib/observer/test/crashdump_viewer_SUITE.erl
+++ b/lib/observer/test/crashdump_viewer_SUITE.erl
@@ -101,7 +101,10 @@ end_per_group(_GroupName, Config) ->
 init_per_suite(Config) when is_list(Config) ->
     delete_saved(Config),
     DataDir = ?config(data_dir,Config),
-    Rels = [R || R <- ['17','18'], ?t:is_release_available(R)] ++ [current],
+    CurrVsn = list_to_integer(erlang:system_info(otp_release)),
+    OldRels = [R || R <- [CurrVsn-2,CurrVsn-1],
+		    ?t:is_release_available(list_to_atom(integer_to_list(R)))],
+    Rels = OldRels ++ [current],
     io:format("Creating crash dumps for the following releases: ~p", [Rels]),
     AllDumps = create_dumps(DataDir,Rels),
     [{dumps,AllDumps}|Config].
@@ -604,23 +607,17 @@ dos_dump(DataDir,Rel,Dump) ->
 	    []
     end.
 
+rel_opt(current) ->
+    [];
 rel_opt(Rel) ->
-    case Rel of
-	'17' -> [{erl,[{release,"17_latest"}]}];
-	'18' -> [{erl,[{release,"18_latest"}]}];
-	current -> []
-    end.
+    [{erl,[{release,lists:concat([Rel,"_latest"])}]}].
 
+dump_prefix(current) ->
+    dump_prefix(erlang:system_info(otp_release));
 dump_prefix(Rel) ->
-    case Rel of
-	'17' -> "r17_dump.";
-	'18' -> "r18_dump.";
-	current -> "r19_dump."
-    end.
+    lists:concat(["r",Rel,"_dump."]).
 
+compat_rel(current) ->
+    "";
 compat_rel(Rel) ->
-    case Rel of
-	'17' -> "+R17 ";
-	'18' -> "+R18 ";
-	current -> ""
-    end.
+    lists:concat(["+R",Rel," "]).
-- 
cgit v1.2.3