blob: 589bb97804bfec33af7e4becdf6af6fde97fdc70 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
% This is where we test the cat to make sure that it does not bark.
-module(test_a_cat).
-export([main/0]).
main() ->
MyCat = gen_object:new(a_cat, ["Fred"]),
FredSays = gen_object:send(MyCat, say, ["Woof"]),
gen_object:delete(MyCat),
io:format("Fred says: ~p~n", [FredSays]).
|
