=== source code for shell_SUITE:progex_records/1
=== Test case started with:
shell_SUITE:progex_records([{watchdog,<0.7643.6>},
{tc_logfile,
"/home/pi/R16B03/otp-support/release/tests/test_server/ct_run.test_server@localhost.2014-01-03_17.38.00/tests.stdlib_test.logs/run.2014-01-03_17.51.25/shell_suite.progex_records.html"},
{tc_group_properties,[{name,progex}]},
{tc_group_path,[]},
{data_dir,
"/home/pi/R16B03/otp-support/release/tests/stdlib_test/shell_SUITE_data/"},
{priv_dir,
"/home/pi/R16B03/otp-support/release/tests/test_server/ct_run.test_server@localhost.2014-01-03_17.38.00/tests.stdlib_test.logs/run.2014-01-03_17.51.25/log_private/"},
{nodenames,[]}])
=== Current directory is "/home/pi/R16B03/otp-support/release/tests/test_server/ct_run.test_server@localhost.2014-01-03_17.38.00"
=== Started at 2014-01-03 20:21:01
*** Testing rd(person, {name = "", phone = [], address}),
rd(name, {first = "Robert", last = "Ericsson"}),
rd(person2, {name = #name{}, phone}),
_P1 = #person{phone=[0,8,2,3,4,3,1,2], name="Robert"},
"Robert" = _P1#person.name,
[0,8,2,3,4,3,1,2] = _P1#person.phone,
undefined = _P1#person.address,
_P2 = #person{name = "Jakob", _ = '_'},
"Jakob" = _P2#person.name,
'_' = _P2#person.phone,
'_' = _P2#person.address,
P = #person{name = "Joe", phone = [0,8,2,3,4,3,1,2]},
"Joe" = P#person.name,
[0,8,2,3,4,3,1,2] = P#person.phone,
undefined = P#person.address,
P1 = #person{name="Joe", phone=[1,2,3], address="A street"},
P2 = P1#person{name="Robert"},
"Robert" = P2#person.name,
[1,2,3] = P2#person.phone,
"A street" = P2#person.address,
Foo = fun(P) when is_record(P, person) -> a_person;
(_) -> not_a_person
end,
a_person = Foo(P1),
Find = fun([#person{name=Name, phone=Phone} | _], Name, Fn) ->
{found, Phone};
([_| T], Name, Fn) ->
Fn(T, Name, Fn);
([], _Name, _Fn) ->
not_found
end,
{found, [1,2,3]} = Find([#person{name = a},
#person{name = b, phone = [3,2,1]},
#person{name = c, phone = [1,2,3]}],
c,
Find),
P3 = #person{name="Joe", phone=[0,0,7], address="A street"},
#person{name = Name} = P3,
"Joe" = Name,
Demo = fun() ->
P17 = #person2{name= #name{first="Robert",last="Virding"},
phone=123},
_First = (P17#person2.name)#name.first
end,
"Robert" = Demo(),
ok.
=== Ended at 2014-01-03 20:21:01
=== successfully completed test case
=== returned value = ok
Test run history
| Top level test index