blob: 48a00b172e12e2c1c5f6882f3ec2bfdb429d48cc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
%%%-------------------------------------------------------------------
%%% File : record_test.erl
%%% Author : Tobias Lindahl <[email protected]>
%%% Description :
%%%
%%% Created : 22 Oct 2004 by Tobias Lindahl <[email protected]>
%%%-------------------------------------------------------------------
-module(record_test).
-export([t/0]).
-record(foo, {bar}).
t() ->
doit(foo).
doit(X) ->
case X of
#foo{} -> error1;
foo -> ok;
_ -> error2
end.
|
