diff options
author | Björn Gustavsson <bjorn@erlang.org> | 2010-08-12 16:20:20 +0200 |
---|---|---|
committer | Björn Gustavsson <bjorn@erlang.org> | 2010-09-03 10:33:31 +0200 |
commit | c3b086d38bd152af39381bfae96c1e9ce7e7be9b (patch) | |
tree | a804d1fcb3270ba8057243076cfaeca3b6f01ae0 /lib/debugger/test/bug_SUITE_data/otp4845.erl | |
parent | 9f72e25a2837bc6073482d7b79b80bdeb56984d5 (diff) | |
download | otp-c3b086d38bd152af39381bfae96c1e9ce7e7be9b.tar.gz otp-c3b086d38bd152af39381bfae96c1e9ce7e7be9b.tar.bz2 otp-c3b086d38bd152af39381bfae96c1e9ce7e7be9b.zip |
Add test suite for debugger
Diffstat (limited to 'lib/debugger/test/bug_SUITE_data/otp4845.erl')
-rw-r--r-- | lib/debugger/test/bug_SUITE_data/otp4845.erl | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/lib/debugger/test/bug_SUITE_data/otp4845.erl b/lib/debugger/test/bug_SUITE_data/otp4845.erl new file mode 100644 index 0000000000..18ca08b977 --- /dev/null +++ b/lib/debugger/test/bug_SUITE_data/otp4845.erl @@ -0,0 +1,52 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2004-2010. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%% + +%% +%%% Purpose : Test OTP-4845 + +-module(otp4845). + + +%%-export([error/1]). +-export([test/0]). + +%% OTP-4845 OTP 4859 +-record(sune, {a,sd,g,s}). +-record(error, {a,sd,g,s}). + +test() -> + R1 = error(#sune{}), + R2 = error(false), + R3 = error(true), + R4 = error(#error{}), + {R1,R2,R3,R4}. + +error(X) -> + if + is_record(X, sune) -> + sune; + X -> + {true, X}; + not X -> + {false, X}; + not is_record(X, error) -> + error; + true -> + ok + end. |