author | L29Ah |
Mon, 15 Mar 2021 15:57:19 -0400 | |
changeset 15800 | 50315e39d705 |
parent 14390 | 7f0166b01dc9 |
permissions | -rw-r--r-- |
12652
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
1 |
--[[ Static Mines Test |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
2 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
3 |
This test tests if mines are able to stand still on the ground for a very long time. 8 mines are spawned on a few girders. |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
4 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
5 |
The test passes if the mines don't move for a very long time. |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
6 |
The test failes if any mine moves even the tiniest bit or is destroyed. |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
7 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
8 |
This test case has been created as response to bug 96. |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
9 |
]] |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
10 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
11 |
-- Max. time to test |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
12 |
local TEST_TIME_LIMIT = 3600000 * 5 -- 5 hours |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
13 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
14 |
local hhs = {} |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
15 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
16 |
function onGameInit() |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
17 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
18 |
ClearGameFlags() |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
19 |
EnableGameFlags(gfDisableWind, gfOneClanMode) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
20 |
Map = "" |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
21 |
Seed = 12 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
22 |
Theme = "Desert" |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
23 |
MapGen = mgDrawn |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
24 |
TurnTime = -1 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
25 |
Explosives = 0 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
26 |
MinesNum = 0 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
27 |
CaseFreq = 0 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
28 |
Delay = 100 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
29 |
WaterRise = 0 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
30 |
HealthDecrease = 0 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
31 |
AirMinesNum = 0 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
32 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
33 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
34 |
AddTeam("Test Team", 0xFFFF00, "Statue", "Tank", "Default", "cm_test") |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
35 |
hhs[1] = AddHog("Test Hog", 0, 100, "cm_test") |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
36 |
SetGearPosition(hhs[1], 300, 1450) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
37 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
38 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
39 |
local mines = { |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
40 |
{ x = 231, y = 1708}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
41 |
{ x = 290, y = 1708}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
42 |
{ x = 342, y = 1708}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
43 |
{ x = 261, y = 1708}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
44 |
{ x = 319, y = 1708}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
45 |
{ x = 403, y = 1706}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
46 |
{ x = 428, y = 1706}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
47 |
{ x = 461, y = 1706}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
48 |
{ x = 498, y = 1706}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
49 |
{ x = 518, y = 1706}, |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
50 |
} |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
51 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
52 |
function LoadGearData() |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
53 |
------ GIRDER LIST ------ |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
54 |
PlaceGirder(290, 1718, 4) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
55 |
PlaceGirder(290, 1790, 4) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
56 |
PlaceGirder(452, 1716, 4) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
57 |
PlaceGirder(452, 1790, 4) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
58 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
59 |
PlaceGirder(300, 1500, 4) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
60 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
61 |
------ MINE LIST ------ |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
62 |
for m=1, #mines do |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
63 |
mines[m].gear = AddGear(mines[m].x, mines[m].y, gtMine, 0, 0, 0, 0) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
64 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
65 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
66 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
67 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
68 |
function onGameStart() |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
69 |
LoadGearData() |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
70 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
71 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
72 |
function onGearDelete(gear) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
73 |
for m=#mines, 1, -1 do |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
74 |
if gear == mines[m] then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
75 |
WriteLnToConsole(string.format("Mine %d died!", m)) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
76 |
table.remove(mines, m) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
77 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
78 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
79 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
80 |
|
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
81 |
-- Give a short time for the mines to settle first. |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
82 |
local checkTimer = -5000 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
83 |
local initPosCheck = false |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
84 |
-- Count the total times the mines managed to stand still |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
85 |
local totalTime = 0 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
86 |
local fin = false |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
87 |
function onGameTick20() |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
88 |
if fin then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
89 |
return |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
90 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
91 |
-- Infinite turn time |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
92 |
if TurnTimeLeft < 6000 then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
93 |
TurnTimeLeft = -1 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
94 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
95 |
checkTimer = checkTimer + 20 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
96 |
if initPosCheck then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
97 |
totalTime = totalTime + 20 |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
98 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
99 |
if checkTimer >= 1000 then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
100 |
local failed = false |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
101 |
for m=1, #mines do |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
102 |
if not initPosCheck then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
103 |
-- Position initialization |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
104 |
-- Save “real” x and y values after the mines have settled |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
105 |
local x, y = GetGearPosition(mines[m].gear) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
106 |
mines[m].rx = x |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
107 |
mines[m].ry = y |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
108 |
else |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
109 |
-- Position check |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
110 |
local x, y = GetGearPosition(mines[m].gear) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
111 |
local rx, ry = mines[m].rx, mines[m].ry |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
112 |
if not x or not y then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
113 |
WriteLnToConsole(string.format("Mine %d has died!", m)) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
114 |
failed = true |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
115 |
elseif x ~= rx or y ~= ry then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
116 |
WriteLnToConsole(string.format("Mine %d has moved! Expected: (%d, %d). Actual: (%d, %d)", m, rx, ry, x, y)) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
117 |
failed = true |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
118 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
119 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
120 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
121 |
if not initPosCheck then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
122 |
initPosCheck = true |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
123 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
124 |
if failed then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
125 |
WriteLnToConsole(string.format("Test failed. The mines managed to stand still for %d ticks.", totalTime)) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
126 |
EndLuaTest(TEST_FAILED) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
127 |
fin = true |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
128 |
return |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
129 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
130 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
131 |
if totalTime >= TEST_TIME_LIMIT then |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
132 |
WriteLnToConsole(string.format("All mines have been static for over %d ticks! Success!", TEST_TIME_LIMIT)) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
133 |
EndLuaTest(TEST_SUCCESSFUL) |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
134 |
fin = true |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
135 |
return |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
136 |
end |
31c4a81823eb
Add test case for testing that mines don't move for a very long time
Wuzzy <almikes@aol.com>
parents:
diff
changeset
|
137 |
end |