full_tests

And = facein:start("Andrzej").
Ken = facein:start("Ken").
Sus = facein:start("Susan").
Jes = facein:start("Jessica").
Jen = facein:start("Jen").
Ton = facein:start("Tony").
Ree = facein:start("Reed").

facein:add_friend(Ken,And).
facein:add_friend(And,Ken).

facein:add_friend(And,Sus).
facein:add_friend(Sus,And).

facein:add_friend(Jen,Sus).
facein:add_friend(Sus,Jen).

facein:add_friend(Jen,Jes).
facein:add_friend(Jes,Jen).

facein:add_friend(Sus,Jes).
facein:add_friend(Sus,Ree).

facein:add_friend(Ree,Jes).
facein:add_friend(Ree,Ton).

facein:add_friend(Jen,Ton).

facein:friends(And).
facein:friends(Ken).
facein:friends(Sus).
facein:friends(Jes).
facein:friends(Jen).
facein:friends(Ton).
facein:friends(Ree). 

facein:broadcast(Jes,"First message From Jes", 2).
facein:broadcast(Ken,"Second message From Ken", 3).

facein:received_messages(Ton).
facein:received_messages(Sus).
facein:received_messages(Ree).