$OpenBSD: patch-erts_emulator_test_time_SUITE_erl,v 1.1 2011/07/05 20:07:30 landry Exp $
--- erts/emulator/test/time_SUITE.erl.orig
+++ erts/emulator/test/time_SUITE.erl
@@ -34,6 +34,8 @@
  	 consistency/1,
 	 now/1, now_unique/1, now_update/1, timestamp/1]).

+-export([local_to_univ_utc/1]).
+
 -include("test_server.hrl").

 -export([linear_time/1]).
@@ -53,7 +55,40 @@
 -define(dst_timezone, 2).

 all(suite) -> [univ_to_local, local_to_univ,
-	       bad_univ_to_local, bad_local_to_univ, consistency, now, timestamp].
+	       local_to_univ_utc,
+	       bad_univ_to_local, bad_local_to_univ,
+	       consistency, now, timestamp].
+
+local_to_univ_utc(suite) ->
+    [];
+local_to_univ_utc(doc) ->
+    ["Test that DST = true on timezones without DST is ignored"];
+local_to_univ_utc(Config) when is_list(Config) ->
+    case os:type() of
+       {unix,_} ->
+           %% TZ variable has a meaning
+           ?line {ok, Node} =
+               test_server:start_node(local_univ_utc,peer,
+                                      [{args, "-env TZ UTC"}]),
+           ?line {{2008,8,1},{0,0,0}} =
+               rpc:call(Node,
+                        erlang,localtime_to_universaltime,
+                        [{{2008, 8, 1}, {0, 0, 0}},
+                         false]),
+           ?line {{2008,8,1},{0,0,0}} =
+               rpc:call(Node,
+                        erlang,localtime_to_universaltime,
+                        [{{2008, 8, 1}, {0, 0, 0}},
+                         true]),
+           ?line [{{2008,8,1},{0,0,0}}] =
+               rpc:call(Node,
+                        calendar,local_time_to_universal_time_dst,
+                        [{{2008, 8, 1}, {0, 0, 0}}]),
+           ?line test_server:stop_node(Node),
+           ok;
+       _ ->
+           {skip,"Only valid on Unix"}
+    end.


 %% Tests conversion from univeral to local time.
