-
Notifications
You must be signed in to change notification settings - Fork 3
/
msg.html
616 lines (478 loc) · 43.7 KB
/
msg.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<title>Модуль сообщений их тесты</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
<meta name="title" content="Модуль сообщений их тесты"/>
<meta name="generator" content="Org-mode"/>
<meta name="generated" content="2014-10-15T00:17+0400"/>
<meta name="author" content="rigidus"/>
<meta name="description" content=""/>
<meta name="keywords" content=""/>
<style type="text/css">
<!--/*--><![CDATA[/*><!--*/
html { font-family: Times, serif; font-size: 12pt; }
.title { text-align: center; }
.todo { color: red; }
.done { color: green; }
.tag { background-color: #add8e6; font-weight:normal }
.target { }
.timestamp { color: #bebebe; }
.timestamp-kwd { color: #5f9ea0; }
.right {margin-left:auto; margin-right:0px; text-align:right;}
.left {margin-left:0px; margin-right:auto; text-align:left;}
.center {margin-left:auto; margin-right:auto; text-align:center;}
p.verse { margin-left: 3% }
pre {
border: 1pt solid #AEBDCC;
background-color: #F3F5F7;
padding: 5pt;
font-family: courier, monospace;
font-size: 90%;
overflow:auto;
}
table { border-collapse: collapse; }
td, th { vertical-align: top; }
th.right { text-align:center; }
th.left { text-align:center; }
th.center { text-align:center; }
td.right { text-align:right; }
td.left { text-align:left; }
td.center { text-align:center; }
dt { font-weight: bold; }
div.figure { padding: 0.5em; }
div.figure p { text-align: center; }
div.inlinetask {
padding:10px;
border:2px solid gray;
margin:10px;
background: #ffffcc;
}
textarea { overflow-x: auto; }
.linenr { font-size:smaller }
.code-highlighted {background-color:#ffff00;}
.org-info-js_info-navigation { border-style:none; }
#org-info-js_console-label { font-size:10px; font-weight:bold;
white-space:nowrap; }
.org-info-js_search-highlight {background-color:#ffff00; color:#000000;
font-weight:bold; }
/*]]>*/-->
</style>
<script type="text/javascript">
/*
@licstart The following is the entire license notice for the
JavaScript code in this tag.
Copyright (C) 2012-2013 Free Software Foundation, Inc.
The JavaScript code in this tag is free software: you can
redistribute it and/or modify it under the terms of the GNU
General Public License (GNU GPL) as published by the Free Software
Foundation, either version 3 of the License, or (at your option)
any later version. The code is distributed WITHOUT ANY WARRANTY;
without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU GPL for more details.
As additional permission under GNU GPL version 3 section 7, you
may distribute non-source (e.g., minimized or compacted) forms of
that code without the copy of the GNU GPL normally required by
section 4, provided you include this license notice and a URL
through which recipients can access the Corresponding Source.
@licend The above is the entire license notice
for the JavaScript code in this tag.
*/
<!--/*--><![CDATA[/*><!--*/
function CodeHighlightOn(elem, id)
{
var target = document.getElementById(id);
if(null != target) {
elem.cacheClassElem = elem.className;
elem.cacheClassTarget = target.className;
target.className = "code-highlighted";
elem.className = "code-highlighted";
}
}
function CodeHighlightOff(elem, id)
{
var target = document.getElementById(id);
if(elem.cacheClassElem)
elem.className = elem.cacheClassElem;
if(elem.cacheClassTarget)
target.className = elem.cacheClassTarget;
}
/*]]>*///-->
</script>
</head>
<body>
<div id="preamble">
</div>
<div id="content">
<h1 class="title">Модуль сообщений их тесты</h1>
<link rel="stylesheet" type="text/css" href="css/css.css" />
<div id="table-of-contents">
<h2>Table of Contents</h2>
<div id="text-table-of-contents">
<ul>
<li><a href="#sec-1">1 Введение</a></li>
<li><a href="#sec-2">2 Шаблоны</a></li>
<li><a href="#sec-3">3 Функционал</a>
<ul>
<li><a href="#sec-3-1">3.1 Шаблон</a></li>
<li><a href="#sec-3-2">3.2 Страница диалогов</a></li>
<li><a href="#sec-3-3">3.3 Событие отправки сообщения</a></li>
<li><a href="#sec-3-4">3.4 Функция получения кол-ва непрочитанных сообщений</a></li>
<li><a href="#sec-3-5">3.5 Функция получения идентификторов непрочитанных сообщений</a></li>
<li><a href="#sec-3-6">3.6 Событие доставки сообщения</a></li>
<li><a href="#sec-3-7">3.7 Функция получения последних сообщений диалогов для данного пользователя</a></li>
<li><a href="#sec-3-8">3.8 Функция отображения одного сообщения в списке сообщений</a></li>
</ul>
</li>
<li><a href="#sec-4">4 Тесты</a></li>
</ul>
</div>
</div>
<div id="outline-container-1" class="outline-2">
<h2 id="sec-1"><span class="section-number-2">1</span> Введение</h2>
<div class="outline-text-2" id="text-1">
<p>
Как залогиненный пользователь я хочу иметь возможность послать сообщение другому
зарегистрированному на сайте пользователю.
</p>
<p>
Как залогиненный пользователь я хочу иметь возможность читать свои отправленные другим
пользователям сообщения. Также я хочу знать, доставлены они или нет (т.е. были ли
прочитаны адресатом).
</p>
<p>
Как залогиненный пользователь я хочу иметь возможность читать пришедшие мне от других
пользователей сообщения.
</p>
<p>
Как зарегистрированный пользователь я хочу получать email-уведомления о новых сообщениях
и отключить эту функцию при необходимости.
</p>
<p>
Как администратор сайта я хочу запрещать пользователю писать сообщения некоторым или всем
зарегистрированным пользователям
</p>
<p>
Иногда еще хочется получать уведомления о доставке сообщения
</p>
<p>
Как модератор кармы я хочу регулировать кол-во отосланных пользователем сообщений в
зависимости от его кармы, чтобы избежать рассылок спама.
</p>
<p>
Что нам для этого нужно?
</p><ul>
<li>Сущность <code>User</code>, имеющая поле <code>id</code>
</li>
<li>Сущность <code>Msg</code>, имеющая поля <code>snd_id</code>, <code>rcv_id</code>, <code>msg</code>
</li>
<li>Движок создания форм, функции которого определены не здесь
</li>
</ul>
<p>
Как это работает?
</p>
<p>
<code>При отправке сообщения</code> пользователь вводит адресата сообщения и текст сообщения, которые
передаются контроллеру отправки сообщения. Контроллер отправки извлекает эти данные
(<code>get-msg-data</code>), проверяет возможность отсылки сообщения (<code>check-msg-data</code>) и, в случае
успеха, вызывает событие <code>crete-msg</code>, которое создает сообщение. В случае неудачи
возбуждает ошибку, которую перехватит интерфейс сообщений. Сообщение создается
недоставленным.
</p>
<p>
Когда адресат сообщения (reciver) хочет узнать кол-во своих новых сообщений - он
запрашивает функцию <code>get-undelivered-msg-cnt</code>.
</p>
<p>
Если он хочет получить все идентификаторы непрочитанных сообщений, он вызывает
<code>get-undelivered-msg-ids</code>
</p>
<p>
Чтобы получить конкретное сообщение, адресат должен вызвать событие <code>delivery-msg</code>
</p>
<p>
Страницы:
</p><ul>
<li>Страница отправки сообщения пользователю - на самом деле это должен быть попап на
странице пользователя. Но пока сделаем так, чтобы снизить связность
</li>
<li>Страница переписки с конкретным пользова
</li>
</ul>
</div>
</div>
<div id="outline-container-2" class="outline-2">
<h2 id="sec-2"><span class="section-number-2">2</span> Шаблоны</h2>
<div class="outline-text-2" id="text-2">
<p>
Соберем шаблоны сообщения
</p>
<pre class="src src-closure-template-html"><span style="color: #cd0000;">// -*- mode: closure-template-html; fill-column: 140 -*-</span>
{<span style="color: #00cd00; font-weight: bold;">namespace</span> <span style="color: #0000ee; font-weight: bold;">msgtpl</span>}
{<span style="color: #00cd00; font-weight: bold;">template</span> <span style="color: #0000ee; font-weight: bold;">sometpl}</span>
<<<span style="color: #0000ee; font-weight: bold;">some_tpl</span>>>
{<span style="color: #00cd00; font-weight: bold;">/template</span>}
</pre>
</div>
</div>
<div id="outline-container-3" class="outline-2">
<h2 id="sec-3"><span class="section-number-2">3</span> Функционал</h2>
<div class="outline-text-2" id="text-3">
<p>
Соберем контроллеры и все функции, которые контроллеры вызывают
</p>
<pre class="src src-lisp">(<span style="color: #00cdcd; font-weight: bold;">in-package</span> #<span style="color: #0000ee; font-weight: bold;">:moto</span>)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Скомпилируем шаблон</span>
(closure-template:compile-template
<span style="color: #0000ee; font-weight: bold;">:common-lisp-backend</span>
(pathname
(concatenate 'string *base-path* <span style="color: #00cd00;">"mod/msg/msg-tpl.htm"</span>)))
<<msg_fn_contents>>
<<msg_test>>
</pre>
<p>
Мы вводим:
</p>
</div>
<div id="outline-container-3-1" class="outline-3">
<h3 id="sec-3-1"><span class="section-number-3">3.1</span> Шаблон</h3>
<div class="outline-text-3" id="text-3-1">
<pre class="src src-html">this is some tpl
</pre>
</div>
</div>
<div id="outline-container-3-2" class="outline-3">
<h3 id="sec-3-2"><span class="section-number-3">3.2</span> Страница диалогов</h3>
<div class="outline-text-3" id="text-3-2">
<p>
На странице диалогов мы хотим видеть список всех диалогов. В каждом диалоге мы хотим
видеть последнее сообщение. Чтобы получить последние сообщения мы вызываем
<code>get-last-msg-dialog-ids-for-user-id</code>.
</p>
<pre class="src src-lisp">(<span style="color: #00cdcd; font-weight: bold;">in-package</span> #<span style="color: #0000ee; font-weight: bold;">:moto</span>)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Страница сообщений</span>
(restas:define-route im (<span style="color: #00cd00;">"/im"</span>)
(<span style="color: #00cdcd; font-weight: bold;">with-wrapper</span>
(concatenate
'string
<span style="color: #00cd00;">"<h1>Страница сообщений</h1>"</span>
(<span style="color: #00cdcd; font-weight: bold;">if</span> (not *current-user*)
<span style="color: #00cd00;">"Невозможно посмотреть сообщения - пользователь не залогинен. <a href=\"/login\">Login</a>"</span>
(<span style="color: #00cdcd; font-weight: bold;">let</span> ((msgs (get-last-msg-dialog-ids-for-user-id *current-user*)))
(<span style="color: #00cdcd; font-weight: bold;">if</span> (equal 0 (length msgs))
<span style="color: #00cd00;">"Нет сообщений"</span>
(format nil <span style="color: #00cd00;">"~{~A~}"</span>
(mapcar #'show-msg-id msgs))))))))
</pre>
</div>
</div>
<div id="outline-container-3-3" class="outline-3">
<h3 id="sec-3-3"><span class="section-number-3">3.3</span> Событие отправки сообщения</h3>
<div class="outline-text-3" id="text-3-3">
<pre class="src src-lisp"><span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Событие отправки сообщения</span>
(<span style="color: #00cdcd; font-weight: bold;">defun</span> <span style="color: #0000ee; font-weight: bold;">create-msg</span> (snd-id rcv-id msg)
(<span style="color: #00cdcd; font-weight: bold;">let</span> ((msg-id (id (make-msg <span style="color: #0000ee; font-weight: bold;">:snd-id</span> snd-id <span style="color: #0000ee; font-weight: bold;">:rcv-id</span> rcv-id <span style="color: #0000ee; font-weight: bold;">:msg</span> msg <span style="color: #0000ee; font-weight: bold;">:ts-create</span> (get-universal-time) <span style="color: #0000ee; font-weight: bold;">:ts-delivery</span> 0))))
(dbg <span style="color: #00cd00;">"Создано сообщение: ~A"</span> msg-id)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Делаем его недоставленным</span>
(upd-msg (get-msg msg-id) (list <span style="color: #0000ee; font-weight: bold;">:state</span> <span style="color: #00cd00;">":UNDELIVERED"</span>))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Возвращаем msg-id</span>
msg-id))
</pre>
</div>
</div>
<div id="outline-container-3-4" class="outline-3">
<h3 id="sec-3-4"><span class="section-number-3">3.4</span> Функция получения кол-ва непрочитанных сообщений</h3>
<div class="outline-text-3" id="text-3-4">
<pre class="src src-lisp"><span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Функция получения кол-ва непрочитанных сообщений</span>
(<span style="color: #00cdcd; font-weight: bold;">defun</span> <span style="color: #0000ee; font-weight: bold;">get-undelivered-msg-cnt</span> (rcv-id)
(length (find-msg <span style="color: #0000ee; font-weight: bold;">:rcv-id</span> rcv-id <span style="color: #0000ee; font-weight: bold;">:state</span> <span style="color: #00cd00;">":UNDELIVERED"</span>)))
</pre>
</div>
</div>
<div id="outline-container-3-5" class="outline-3">
<h3 id="sec-3-5"><span class="section-number-3">3.5</span> Функция получения идентификторов непрочитанных сообщений</h3>
<div class="outline-text-3" id="text-3-5">
<pre class="src src-lisp"><span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Функция получения идентификторов непрочитанных сообщений</span>
(<span style="color: #00cdcd; font-weight: bold;">defun</span> <span style="color: #0000ee; font-weight: bold;">get-undelivered-msg-ids</span> (snd-id rcv-id)
(mapcar #'id (find-msg <span style="color: #0000ee; font-weight: bold;">:snd-id</span> snd-id <span style="color: #0000ee; font-weight: bold;">:rcv-id</span> rcv-id <span style="color: #0000ee; font-weight: bold;">:state</span> <span style="color: #00cd00;">":UNDELIVERED"</span>)))
</pre>
</div>
</div>
<div id="outline-container-3-6" class="outline-3">
<h3 id="sec-3-6"><span class="section-number-3">3.6</span> Событие доставки сообщения</h3>
<div class="outline-text-3" id="text-3-6">
<p>
Если сообщение ранее не доставлялось - делаем его доставленным
</p>
<pre class="src src-lisp"><span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Функция получения идентификторов непрочитанных сообщений</span>
(<span style="color: #00cdcd; font-weight: bold;">defun</span> <span style="color: #0000ee; font-weight: bold;">delivery-msg</span> (msg-id)
(<span style="color: #00cdcd; font-weight: bold;">let</span> ((msg (get-msg msg-id)))
(<span style="color: #00cdcd; font-weight: bold;">if</span> (equal <span style="color: #00cd00;">":UNDELIVERED"</span> (state msg))
(takt (get-msg msg-id) <span style="color: #0000ee; font-weight: bold;">:delivered</span>))
msg))
</pre>
</div>
</div>
<div id="outline-container-3-7" class="outline-3">
<h3 id="sec-3-7"><span class="section-number-3">3.7</span> Функция получения последних сообщений диалогов для данного пользователя</h3>
<div class="outline-text-3" id="text-3-7">
<pre class="src src-lisp">(<span style="color: #00cdcd; font-weight: bold;">in-package</span> #<span style="color: #0000ee; font-weight: bold;">:moto</span>)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Функция получения всех идентификаторов сообщений для данного пользователя</span>
(<span style="color: #00cdcd; font-weight: bold;">defun</span> <span style="color: #0000ee; font-weight: bold;">get-last-msg-dialog-ids-for-user-id</span> (user-id)
(<span style="color: #00cdcd; font-weight: bold;">with-connection</span> *db-spec*
(<span style="color: #00cdcd; font-weight: bold;">let*</span> ((res-snd)
(res-rcv)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Получим идентификторы всех, кто нам писал, по ним получим последнее написанное ими сообщение</span>
(snd (<span style="color: #00cdcd; font-weight: bold;">loop</span>
<span style="color: #0000ee; font-weight: bold;">:for</span> sndr
<span style="color: #0000ee; font-weight: bold;">:in</span> (query (<span style="color: #0000ee; font-weight: bold;">:select</span> <span style="color: #0000ee; font-weight: bold;">:snd-id</span> <span style="color: #0000ee; font-weight: bold;">:distinct</span> <span style="color: #0000ee; font-weight: bold;">:from</span> 'msg <span style="color: #0000ee; font-weight: bold;">:where</span> (<span style="color: #0000ee; font-weight: bold;">:=</span> <span style="color: #0000ee; font-weight: bold;">:rcv-id</span> user-id)))
<span style="color: #0000ee; font-weight: bold;">:collect</span> (query
(<span style="color: #0000ee; font-weight: bold;">:limit</span>
(<span style="color: #0000ee; font-weight: bold;">:order-by</span>
(<span style="color: #0000ee; font-weight: bold;">:select</span> <span style="color: #0000ee; font-weight: bold;">:id</span> <span style="color: #0000ee; font-weight: bold;">:snd-id</span> <span style="color: #0000ee; font-weight: bold;">:ts-create</span> <span style="color: #0000ee; font-weight: bold;">:msg</span>
<span style="color: #0000ee; font-weight: bold;">:from</span> 'msg
<span style="color: #0000ee; font-weight: bold;">:where</span> (<span style="color: #0000ee; font-weight: bold;">:and</span> (<span style="color: #0000ee; font-weight: bold;">:=</span> <span style="color: #0000ee; font-weight: bold;">:rcv-id</span> user-id)
(<span style="color: #0000ee; font-weight: bold;">:=</span> <span style="color: #0000ee; font-weight: bold;">:snd-id</span> (car sndr))))
(<span style="color: #0000ee; font-weight: bold;">:desc</span> <span style="color: #0000ee; font-weight: bold;">:ts-create</span>))
1)
)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Получим идентификторы всех, кому мы писали, по ним получим последнее написанное нами сообщение</span>
(rcv (<span style="color: #00cdcd; font-weight: bold;">loop</span>
<span style="color: #0000ee; font-weight: bold;">:for</span> rcvr
<span style="color: #0000ee; font-weight: bold;">:in</span> (query (<span style="color: #0000ee; font-weight: bold;">:select</span> <span style="color: #0000ee; font-weight: bold;">:rcv-id</span> <span style="color: #0000ee; font-weight: bold;">:distinct</span> <span style="color: #0000ee; font-weight: bold;">:from</span> 'msg <span style="color: #0000ee; font-weight: bold;">:where</span> (<span style="color: #0000ee; font-weight: bold;">:=</span> <span style="color: #0000ee; font-weight: bold;">:snd-id</span> user-id)))
<span style="color: #0000ee; font-weight: bold;">:collect</span> (query
(<span style="color: #0000ee; font-weight: bold;">:limit</span>
(<span style="color: #0000ee; font-weight: bold;">:order-by</span>
(<span style="color: #0000ee; font-weight: bold;">:select</span> <span style="color: #0000ee; font-weight: bold;">:id</span> <span style="color: #0000ee; font-weight: bold;">:rcv-id</span> <span style="color: #0000ee; font-weight: bold;">:ts-create</span> <span style="color: #0000ee; font-weight: bold;">:msg</span>
<span style="color: #0000ee; font-weight: bold;">:from</span> 'msg
<span style="color: #0000ee; font-weight: bold;">:where</span> (<span style="color: #0000ee; font-weight: bold;">:and</span> (<span style="color: #0000ee; font-weight: bold;">:=</span> <span style="color: #0000ee; font-weight: bold;">:snd-id</span> user-id)
(<span style="color: #0000ee; font-weight: bold;">:=</span> <span style="color: #0000ee; font-weight: bold;">:rcv-id</span> (car rcvr))))
(<span style="color: #0000ee; font-weight: bold;">:desc</span> <span style="color: #0000ee; font-weight: bold;">:ts-create</span>))
1)
))))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проходим по тем последним сообщениям, что присланы нам</span>
(<span style="color: #00cdcd; font-weight: bold;">loop</span> <span style="color: #0000ee; font-weight: bold;">:for</span> item <span style="color: #0000ee; font-weight: bold;">:in</span> snd <span style="color: #0000ee; font-weight: bold;">:do</span>
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">(dbg "~%:~A" item)</span>
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверяем, есть ли сообщение к этому абоненту в списке последних сообщений которые мы послали</span>
(aif (find (cadar item) rcv <span style="color: #0000ee; font-weight: bold;">:key</span> #'cadar)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Если есть, то...</span>
(<span style="color: #00cdcd; font-weight: bold;">progn</span>
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">(dbg "~%:Y: ~A - ~A" (caddar item) (caddar it))</span>
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Смотрим, какое сообщение свежее</span>
(<span style="color: #00cdcd; font-weight: bold;">if</span> (> (caddar item) (caddar it))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Если более позднее то, что нам прислали, то</span>
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">отправляем его в res-snd</span>
(<span style="color: #00cdcd; font-weight: bold;">progn</span>
(setf res-snd (append res-snd (list item)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">(dbg "~%|YY|res-snd: ~A" res-snd)</span>
)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Если то, что послали мы, то оправляем его в res-rcv и удаляем из rcv - останутся только неспаренные</span>
(<span style="color: #00cdcd; font-weight: bold;">progn</span>
(setf res-rcv (append res-rcv (list it)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">(dbg "~%|NN|res-rcv: ~A" res-rcv)</span>
(setf rcv (remove it rcv)))))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Если нет, то</span>
(<span style="color: #00cdcd; font-weight: bold;">progn</span>
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Результат отправляем то что есть в res-snd</span>
(setf res-snd (append res-snd (list item)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">(dbg "~%|N|res-snd: ~A" res-snd)</span>
)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Добавляем к res-rcv неспаренные остатки из rcv</span>
(setf res-rcv (append res-rcv rcv))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Объединим res-rcv и res-snd и отсортируем</span>
(mapcar #'car
(sort
(append res-snd res-rcv)
#'(<span style="color: #00cdcd; font-weight: bold;">lambda</span> (a b)
(> (caddar a) (caddar b))))))))
</pre>
</div>
</div>
<div id="outline-container-3-8" class="outline-3">
<h3 id="sec-3-8"><span class="section-number-3">3.8</span> Функция отображения одного сообщения в списке сообщений</h3>
<div class="outline-text-3" id="text-3-8">
<pre class="src src-lisp">(<span style="color: #00cdcd; font-weight: bold;">in-package</span> #<span style="color: #0000ee; font-weight: bold;">:moto</span>)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Функция отображения одного сообщения в списке сообщений</span>
(<span style="color: #00cdcd; font-weight: bold;">defun</span> <span style="color: #0000ee; font-weight: bold;">show-msg-id</span> (msg-id)
(format nil <span style="color: #00cd00;">"<div>~A</div>"</span>
(msg (get-msg msg-id))))
</pre>
</div>
</div>
</div>
<div id="outline-container-4" class="outline-2">
<h2 id="sec-4"><span class="section-number-2">4</span> Тесты</h2>
<div class="outline-text-2" id="text-4">
<p>
Теперь у нас есть весь необходимый функционал, для работы авторизации. Мы можем его
протестировать, для этого сформируем тест:
</p>
<pre class="src src-lisp"><span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Тестируем сообщения</span>
(<span style="color: #00cdcd; font-weight: bold;">defun</span> <span style="color: #0000ee; font-weight: bold;">msg-test</span> ()
<<msg_test_contents>>
(dbg <span style="color: #00cd00;">"passed: msg-test~%"</span>))
(msg-test)
</pre>
<pre class="src src-lisp"><span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Зарегистрируем четырех пользователей</span>
(<span style="color: #00cdcd; font-weight: bold;">let</span> ((alice (create-user <span style="color: #00cd00;">"alice"</span> <span style="color: #00cd00;">"aXJAVtBT"</span> <span style="color: #00cd00;">"[email protected]"</span>))
(bob (create-user <span style="color: #00cd00;">"bob"</span> <span style="color: #00cd00;">"pDa84LAh"</span> <span style="color: #00cd00;">"[email protected]"</span>))
(carol (create-user <span style="color: #00cd00;">"carol"</span> <span style="color: #00cd00;">"zDgjGus7"</span> <span style="color: #00cd00;">"[email protected]"</span>))
(dave (create-user <span style="color: #00cd00;">"dave"</span> <span style="color: #00cd00;">"6zt5GmvE"</span> <span style="color: #00cd00;">"[email protected]"</span>)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Пусть Алиса пошлет Бобу сообщение</span>
(<span style="color: #00cdcd; font-weight: bold;">let*</span> ((test-msg <span style="color: #00cd00;">"Привет, Боб, это Алиса!"</span>)
(msg-id (create-msg alice bob test-msg)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверим, что сообщение существует</span>
(<span style="color: #cd0000; font-weight: bold;">assert</span> (get-msg msg-id))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверим, что оно находится в статусе "недоставлено"</span>
(<span style="color: #cd0000; font-weight: bold;">assert</span> (equal <span style="color: #00cd00;">":UNDELIVERED"</span> (state (get-msg msg-id))))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Пусть второй пользователь запросит кол-во непрочитанных сообщений</span>
(<span style="color: #00cdcd; font-weight: bold;">let</span> ((undelivered-msg-cnt (get-undelivered-msg-cnt bob)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверим, что там одно непрочитанное сообщение</span>
(<span style="color: #cd0000; font-weight: bold;">assert</span> (equal 1 undelivered-msg-cnt))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Пусть второй пользователь запросит идентификаторы всех своих непрочитанных сообщений</span>
(<span style="color: #00cdcd; font-weight: bold;">let</span> ((undelivered-msg-ids (get-undelivered-msg-ids alice bob)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверим, что в списке идентификторов непрочитанных сообщений один элемент</span>
(<span style="color: #cd0000; font-weight: bold;">assert</span> (equal 1 (length undelivered-msg-ids)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Получим это сообщение</span>
(<span style="color: #00cdcd; font-weight: bold;">let*</span> ((read-msg-id (car undelivered-msg-ids))
(read-msg (delivery-msg read-msg-id)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверим, что это именно то сообщение, которое послал первый пользователь</span>
(<span style="color: #cd0000; font-weight: bold;">assert</span> (equal test-msg (msg read-msg)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверим, что сообщение теперь доставлено</span>
(<span style="color: #cd0000; font-weight: bold;">assert</span> (equal <span style="color: #00cd00;">":DELIVERED"</span> (state (get-msg read-msg-id))))))))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Пусть Боб ответит Алисе и напишет Кэрол</span>
(sleep 1)
(<span style="color: #00cdcd; font-weight: bold;">let*</span> ((reply-bob-to-alice <span style="color: #00cd00;">"Здравствуй, Алиса, я получил твое письмо. Я напишу Кэрол что ты нашла меня"</span>)
(reply-bob-to-alice-id (create-msg bob alice reply-bob-to-alice)))
(sleep 1)
(<span style="color: #00cdcd; font-weight: bold;">let*</span> ((msg-bob-to-carol <span style="color: #00cd00;">"Кэрол, передаю привет от Алисы. Боб."</span>)
(msg-bob-to-carol-id (create-msg bob carol msg-bob-to-carol)))
(sleep 1)
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Пусть Дэйв напишет Бобу</span>
(<span style="color: #00cdcd; font-weight: bold;">let*</span> ((msg-dave-to-bob <span style="color: #00cd00;">"Привет, Боб, я хочу добавить тебя в друзья"</span>)
(msg-dave-to-bob-id (create-msg dave bob msg-dave-to-bob)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Получим последние диалоги Боба</span>
(<span style="color: #00cdcd; font-weight: bold;">let</span> ((last-dialogs (get-last-msg-dialog-ids-for-user-id bob)))
(dbg <span style="color: #00cd00;">"~%~A"</span> (bprint last-dialogs))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверим, что в имеем три диалога</span>
(<span style="color: #cd0000; font-weight: bold;">assert</span> (equal 3 (length last-dialogs)))
<span style="color: #cd0000;">;; </span><span style="color: #cd0000;">Проверим, что сообщения правильно упорядочены</span>
(<span style="color: #cd0000; font-weight: bold;">assert</span> (equal (list msg-dave-to-bob-id
msg-bob-to-carol-id
reply-bob-to-alice-id)
(mapcar #'car last-dialogs))))))))
</pre>
</div>
</div>
</div>
<div id="postamble">
<p class="date">Date: 2014-10-15T00:17+0400</p>
<p class="author">Author: rigidus</p>
<p class="creator"><a href="http://orgmode.org">Org</a> version 7.9.3f with <a href="http://www.gnu.org/software/emacs/">Emacs</a> version 24</p>
<a href="http://validator.w3.org/check?uri=referer">Validate XHTML 1.0</a>
</div>
</body>
</html>