From ca4633fd683527097451ca1398c90c87bb5c14fc Mon Sep 17 00:00:00 2001 From: Stavros Aronis Date: Sat, 2 Apr 2011 18:57:42 +0300 Subject: Rename suite data directories --- .../test/small_SUITE_data/src/orelsebug2.erl | 23 ++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 lib/dialyzer/test/small_SUITE_data/src/orelsebug2.erl (limited to 'lib/dialyzer/test/small_SUITE_data/src/orelsebug2.erl') diff --git a/lib/dialyzer/test/small_SUITE_data/src/orelsebug2.erl b/lib/dialyzer/test/small_SUITE_data/src/orelsebug2.erl new file mode 100644 index 0000000000..60e0c47384 --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/src/orelsebug2.erl @@ -0,0 +1,23 @@ +%%%------------------------------------------------------------------- +%%% File : orelsebug2.erl +%%% Author : Tobias Lindahl +%%% Description : +%%% +%%% Created : 21 Nov 2006 by Tobias Lindahl +%%%------------------------------------------------------------------- +-module(orelsebug2). + +-export([t/1]). + +-record(eventdata, { + expires + }). + +t(L) -> + L2 = [E1 || E1 <- L, E1#eventdata.expires == x + orelse E1#eventdata.expires == y], + + case L2 of + [_E] -> x; + [] -> y + end. -- cgit v1.2.3