diff options
Diffstat (limited to 'lib/et/examples/et_display_demo.erl')
| -rw-r--r-- | lib/et/examples/et_display_demo.erl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/lib/et/examples/et_display_demo.erl b/lib/et/examples/et_display_demo.erl new file mode 100644 index 0000000000..ebcbc2e816 --- /dev/null +++ b/lib/et/examples/et_display_demo.erl @@ -0,0 +1,32 @@ +%% +%% %CopyrightBegin% +%% %CopyrightEnd% +%% + +%module +-module(et_display_demo). + +-export([test/0]). + +test() -> + {ok, Viewer} = et_viewer:start([{title,"Coffee Order"}, {max_actors,10}]), + Drink = {drink,iced_chai_latte}, + Size = {size,grande}, + Milk = {milk,whole}, + Flavor = {flavor,vanilla}, + C = et_viewer:get_collector_pid(Viewer), + et_collector:report_event(C,99,customer,barrista1,place_order,[Drink,Size,Milk,Flavor]), + et_collector:report_event(C,80,barrista1,register,enter_order,[Drink,Size,Flavor]), + et_collector:report_event(C,80,register,barrista1,give_total,"$5"), + et_collector:report_event(C,80,barrista1,barrista1,get_cup,[Drink,Size]), + et_collector:report_event(C,80,barrista1,barrista2,give_cup,[]), + et_collector:report_event(C,90,barrista1,customer,request_money,"$5"), + et_collector:report_event(C,90,customer,barrista1,pay_money,"$5"), + et_collector:report_event(C,80,barrista2,barrista2,get_chai_mix,[]), + et_collector:report_event(C,80,barrista2,barrista2,add_flavor,[Flavor]), + et_collector:report_event(C,80,barrista2,barrista2,add_milk,[Milk]), + et_collector:report_event(C,80,barrista2,barrista2,add_ice,[]), + et_collector:report_event(C,80,barrista2,barrista2,swirl,[]), + et_collector:report_event(C,80,barrista2,customer,give_tasty_beverage,[Drink,Size]), + ok. +%module |