~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/megaco/test/megaco_test_tcp_generator.erl

• browse files at revision 5
• compare with another revision
• download diff
• download tarball
• view history from revision 5

Show diffs side-by-side

added

removed

lib/megaco/test/megaco_test_tcp_generator.erl

256

256

 

257

257

handle_exec({listen, Port}, #state{result = Res} = State) ->

258

258

    p("listen to ~p", [Port]),

259

 

    Opts = [binary, {packet, tpkt}, {active, false}, {reuseaddr, true}],

 

259

    Opts = [binary, 

 

260

            {packet,    tpkt}, 

 

261

            {active,    false}, 

 

262

            {reuseaddr, true}, 

 

263

            {nodelay,   true}],

260

264

    case (catch gen_tcp:listen(Port, Opts)) of

261

265

        {ok, Listen} ->

262

266

            d("listen -> listen socket created"),

315

319

handle_exec({connect, {Addr, Port, To}}, 

316

320

     #state{result = Res} = State) ->

317

321

    p("connect to ~p, ~p", [Addr, Port]),

318

 

    Opts = [binary, {packet, tpkt}, {active, once}],

 

322

    Opts = [binary, {packet, tpkt}, {active, once}, {nodelay, true}],

319

323

    case (catch gen_tcp:connect(Addr, Port, Opts, To)) of

320

324

        {ok, Sock} ->

321

325

            d("connect -> connected"),

430

434

            {ok, State#state{result = [{nothing, To}|Acc]}}

431

435

    end;

432

436

 

433

 

handle_exec({trigger, Trigger}, 

 

437

handle_exec({trigger, Desc, Trigger}, 

434

438

     #state{result = Acc} = State) when is_function(Trigger) ->

435

 

    p("trigger"),

 

439

    p("trigger: ~s", [Desc]),

436

440

    Trigger(),

437

441

    {ok, State#state{result = [triggered|Acc]}};

438

442

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1