Mercurial > wow > squawk

comparison Tests.lua @ 10:2231fd3f139b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Qtip added for LDB
author wobin
date Thu, 23 Apr 2009 04:11:42 +1000
parents d19385c4a282
children
comparison
equal deleted inserted replaced
9:c535960b1245 10:2231fd3f139b
14 -- Send a Squawk to the Guild 14 -- Send a Squawk to the Guild
15 -- Recieve a Squawk from the Guild 15 -- Recieve a Squawk from the Guild
16 --]] 16 --]]
17 -- 17 --
18 18
19 SquawkTester = LibStub("AceAddon-3.0", "AceComm-3.0", "AceConsole-3.0") 19 SquawkTester = LibStub("AceAddon-3.0"):NewAddon("SquawkTester", "AceComm-3.0", "AceConsole-3.0")
20 20
21 local Test = SquawkTester 21 local Test = SquawkTester
22 local Controller = Squawk.Controller
23 local Settings = Squawk.Model.UserSettings
22 24
23 function Test:OnInitialize() 25 function Test:OnInitialize()
24 self:RegisterComm("Squawk", ReceiveMessage) 26 self:RegisterComm("Squawk", "ReceiveMessage")
25 self:RegisterSlashCommand("TestSquawk", "RunTests") 27 self:RegisterChatCommand("TS", "RunTests")
28 self:Print("Initialising Tester")
29
30 self.Tests = { ["a"] = SquawkTester.AddPublicFollower,
31 ["b"] = SquawkTester.RemovePublicFollower,
32 ["c"] = SquawkTester.AddPrivateFollower,
33 ["d"] = SquawkTester.ApprovePendingRequest
34 }
26 end 35 end
27 36 function Test:RunTests(TestNumber)
28 function Test:RunTests() 37 self:Print(TestNumber)
29 AddPublicFollower() 38 self.Tests[TestNumber](Test)
30 RemovePublicFollower()
31 AddPrivateFollower()
32 ApprovePendingRequest()
33 end 39 end
34 40
35 function Test:AddPublicFollower() 41 function Test:AddPublicFollower()
36 Squawk.Settings.Private = false 42 Settings:TogglePrivate()
37 Squawk.Controller:IWantToFollowThem(UnitName("player")) 43 Controller:IWantToFollowThem(UnitName("player"))
38 end 44 end
39 45
40 function Test:RemovePublicFollower() 46 function Test:RemovePublicFollower()
41 Squawk.Controller:IWantToUnfollowThem(UnitName("player")) 47 Controller:IWantToUnfollowThem(UnitName("player"))
42 end 48 end
43 49
44 function Test:AddPrivateFollower() 50 function Test:AddPrivateFollower()
45 Squawk.Settings.Private = true 51 Settings:TogglePrivate()
46 Squawk.Controller:IWantToFollowThem(UnitName("player")) 52 Controller:IWantToFollowThem(UnitName("player"))
47 end 53 end
48 54
49 function Test:ApprovePendingRequest() 55 function Test:ApprovePendingRequest()
50 Squawk.Controller:ApprovePendingRequest(Name) 56 Controller:ApprovePendingRequest(UnitName("player"))
51 end 57 end
52 58
53 function Test:ReceiveMessage(Prefix, Message, Distribution, Sender) 59 function Test:ReceiveMessage(Prefix, Message, Distribution, Sender)
54 end 60 end
55 61