view Tests.lua @ 8:34078dfcc67c

syntax fix
author wobin
date Sun, 19 Apr 2009 02:49:29 +1000
parents d19385c4a282
children 2231fd3f139b
line wrap: on
line source
-- Tests for Squawk

if not Squawk then return end

--[[
--Tests we need to do:
--
--  Add a follower
--  Remove a follower
--  Request to follow someone
--  Recieve a request from a follower
--  Send a Squawk 
--  Recieve a direct Squawk
--  Send a Squawk to the Guild
--  Recieve a Squawk from the Guild
--]]
--

SquawkTester = LibStub("AceAddon-3.0", "AceComm-3.0", "AceConsole-3.0")

local Test = SquawkTester

function Test:OnInitialize()
	self:RegisterComm("Squawk", ReceiveMessage)
	self:RegisterSlashCommand("TestSquawk", "RunTests")
end

function Test:RunTests()
	AddPublicFollower()
	RemovePublicFollower()
	AddPrivateFollower()
	ApprovePendingRequest()
end

function Test:AddPublicFollower()
	Squawk.Settings.Private = false
	Squawk.Controller:IWantToFollowThem(UnitName("player"))
end

function Test:RemovePublicFollower()
	Squawk.Controller:IWantToUnfollowThem(UnitName("player"))
end

function Test:AddPrivateFollower()
	Squawk.Settings.Private = true
	Squawk.Controller:IWantToFollowThem(UnitName("player"))
end

function Test:ApprovePendingRequest()
	Squawk.Controller:ApprovePendingRequest(Name)
end

function Test:ReceiveMessage(Prefix, Message, Distribution, Sender)
end

function Test:SendMessageDirectly(Message)
	
end