Coverage report: /home/samppa/personal/opiskelu/ohtuprojekti/pulsu/trunk/newest.lisp

Kind	Covered	All	%
expression	16	89	18.0
branch	2	18	11.1

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :puls.ui)

2

3

(defvar *id*)

4

5

(defpage (newest-unified-cases :uri "/newest")

6

((number-of-cases :parameter-type 'INTEGER :init-form 25)

7

(page :parameter-type 'INTEGER :init-form 0)

8

(search :parameter-type 'STRING :init-form "nil") ;;"((:disease_name \"AIDS\"))"))

9

(verify :parameter-type 'STRING :init-form "all"))

10

   ;; "Newest unified cases page. number-of-cases tells how many unified cases groups are listed. Page tells which list page is shown."

11

(puls.controller::authenticate-user)

12

   (render-mainview number-of-cases page "newest" (read-from-string search) verify));(string= "true" verify)))

13

14

(defpage (newest-cases :uri "/newest.cases")

15

((number-of-cases :parameter-type 'INTEGER :init-form 25)

16

(page :parameter-type 'INTEGER :init-form 0)

17

(search :parameter-type 'STRING :init-form "nil")

18

(verify :parameter-type 'STRING :init-form "all"))

19

   ;;"Newest cases page. number-of-cases tells how many cases are listed. Page tells which list page is shown."

20

(puls.controller::authenticate-user)

21

   (render-mainview number-of-cases page "newest.cases" (read-from-string search) verify));(string= "true" verify)))

22

23

(defhtml render-mainview (number-of-cases page view filter verify)

24

;;"render mainview. This is called by newest-unified-cases and newest-cases"

25

(htm

26

    "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">"

27

(:html

28

:xmlns "http://www.w3.org/1999/xhtml"

29

:xml\:lang "fi"

30

:lang "fi"

31

(:head

32

(:meta :http-equiv "Content-Type"

33

:content "text/html;charset=iso-8859-1")

34

(:title "Newest cases")

35

(:link :href "static/headerstyle.css"

36

:rel "stylesheet"

37

:type "text/css")

38

(:link :href "static/searchstyle.css"

39

:rel "stylesheet"

40

:type "text/css")

41

(:link :href "static/indexstyle.css"

42

:rel "stylesheet"

43

:type "text/css")

44

(:script :language "JavaScript"

45

:type "text/javascript"

46

:src "static/SpryEffects.js")

47

(:script :language "JavaScript"

48

:type "text/javascript"

49

:src "static/showhide.js")

50

(:script :language "JavaScript"

51

:type "text/javascript"

52

:src "static/prototype-1.6.0.3.js")

53

(:script :language "JavaScript"

54

:type "text/javascript"

55

:src "static/scriptaculous/scriptaculous.js")

56

(:script :language "JavaScript"

57

:type "text/javascript"

58

:src "static/search.js")

59

(:script :language "JavaScript"

60

:type "text/javascript"

61

:src "static/scriptaculous/complete.js"))

62

(:body :class "layout"

63

:onload "getFilters()"

64

(header)

65

(searchbar)

66

(:div :id "main_content"

67

(if (string= view "newest.cases")

68

(htm (:h2 "Newest Cases"))

69

(htm (:h2 "Newest Unified Cases")))

70

(if (equal "on" (get-parameter "snippet"))

71

                      (link/keep-state* (html () (:img :src "static/info_button.jpg" :id "snippet_info" :alt "info button")) view :snippet "off")

72

                      (link/keep-state* (html () (:img :src "static/info_button.jpg" :id "snippet_info" :alt "info button")) view :snippet "on"))

73

(:div (make-pager page 'page 30))

74

(if (string= view "newest.cases")

75

(let ((*id* 0))

76

(loop for listed-events

77

in (puls.controller::get-newest-events

78

:skip (* page number-of-cases)

79

                               :n number-of-cases :show-accepted verify :filter filter) ;(/= accepted 0))

80

do

81

(htm (:img :src "static/line.png"

82

:class "line"

83

:alt "line image"))

84

(render-cases listed-events view))))

85

86

(if (string= view "newest")

87

(let ((*id* 0))

88

(loop for unified-cases

89

in (puls.controller::get-newest-unified-cases

90

:skip (* page number-of-cases)

91

                               :n number-of-cases :show-accepted verify :filter filter) ; (/= accepted 0))

92

93

do (render-group unified-cases view filter verify))))

94

95

(:div (make-pager page 'page 30)))

96

(footer)))))

97

98

(defhtml render-group (unified-cases view filter verify)

99

;;"render one unified case group to page. This is used in newest-unified-cases"

100

(when unified-cases

101

(incf *id*)

102

(htm

103

(:div :class "group"

104

(:img :src "static/line.png"

105

:class "line"

106

:alt "line image")

107

(:div :class "icons"

108

;; shows icon if unified group is verified

109

110

(if (some

111

(lambda (x) (null (getf x :verify)))

112

(get-unified-case

113

                        (getf (first unified-cases) :group_number) :show-accepted verify :filter filter))

114

(htm (:img :src "static/un_ver_group.jpg" :alt "unverified"))

115

(htm (:img :src "static/ver_group.jpg" :alt "verified")))

116

117

(if (> (length unified-cases) 1)

118

(progn

119

(htm (:a :onclick (format nil "switchid('cases~a');" *id*)

120

(:img :class "arrows"

121

                                       :id (format nil "cases~a_arrow" *id*)

122

:src "static/arrow1.png"

123

:alt "expand"))

124

(str (length unified-cases))))

125

(htm " " )))

126

(:div :class "group_header"

127

(str (puls.controller:get-unified-case-title unified-cases)))

128

(:div :class "unified_cases"

129

(render-cases (elt unified-cases 0) view

130

(getf (first unified-cases) :group_number)))

131

(:div :class "unified_cases_h" :id (format nil "cases~a" *id*)

132

(loop for case in (cdr unified-cases)

133

do (render-cases

134

case

135

view

136

(getf (first unified-cases) :group_number))))))))

137

138

(defhtml render-cases (case view &optional (group nil))

139

;;"render one case to list. This is used in newest-unified-cases and newest-cases views."

140

(if (null (getf case :verify))

141

(htm (:img :src "static/un_ver_case.jpg" :alt "unverified"))

142

(htm (:img :src "static/ver_case.jpg" :alt "verified")

143

(str (getf case :verify))))

144

(link/keep-state* (get-document-title (getf case :docno))

145

"/dv"

146

'n (getf case :docno)

147

'c (getf case :event_id)

148

'back view

149

'group_number group

150

'snippet (get-parameter "snippet")

151

'page (get-parameter "page"))

152

(if (equal "on" (get-parameter "snippet"))

153

(htm (:div :class "snippet"

154

(str (get-snippet case))))

155

(htm (:div :class "snippet"))))

156

157

;;; tests

158

(deftest test-newest ()

159

(combine-results

160

; (test-render-group)

161

; (test2-render-group)

162

(test3-render-group)

163

; (test1-render-cases)

164

; (test2-render-cases)

165

; (test1-newest-cases)

166

; (test2-newest-cases)

167

; (test1-newest-unified-cases)

168

))

169

170

;; 2 cases in group (more than 1 case)

171

(deftest test-render-group ()

172

(let ((*id* 0))

173

(check (equal (with-output-to-string (*http-stream*) (render-group (first *mock-unified*) "test" nil

174

                                                                        (read-from-string "nil")))

175

"

176

<div class=\"group\">

177

<img src=\"static/line.png\" class=\"line\" alt=\"line image\" />

178

<div class=\"icons\">

179

<a onclick=\"switchid('cases1');\">

180

<img class=\"arrows\" id=\"cases1_arrow\" src=\"static/arrow1.png\" alt=\"expand\" />

181

</a>2

182

</div>

183

<div class=\"group_header\">(Avian Influenza) in (Philippines)

184

</div>

185

<div class=\"unified_cases\">

186

<img src=\"static/check_spacer.png\" alt=\"not verified\" />

187

 <a href=\"/dv?n=20051231_NEWScomAU_73ef10bed6da82fc1bba1c8c779c133a&amp;c=1&amp;b=2&amp;a=1&back=test\">Two people died

188

</a>

189

<br />

190

</div>

191

<div class=\"unified_cases_h\" id=\"cases1\">

192

<img src=\"static/check_spacer.png\" alt=\"not verified\" />

193

 <a href=\"/dv?n=20051231_TheAustralian_0c5cfe218c0da516616cec1bdfa58cf5&amp;c=1&amp;b=2&amp;a=1&back=test\">Two people died

194

</a>

195

<br />

196

</div>

197

</div>"))))

198

199

;; one case in group

200

(deftest test2-render-group ()

201

(let ((*id* 0))

202

(check (equal (with-output-to-string (*http-stream*) (render-group (second *mock-unified*) "test" nil

203

                                                                        (read-from-string "nil")))

204

"

205

<div class=\"group\">

206

<img src=\"static/line.png\" class=\"line\" alt=\"line image\" />

207

<div class=\"icons\">

208

 

209

</div>

210

<div class=\"group_header\">(HIV) in (Malaysia)

211

</div>

212

<div class=\"unified_cases\">

213

<img src=\"static/check_spacer.png\" alt=\"not verified\" />

214

 <a href=\"/dv?n=20051230_africaFM_0cff88d0437805a89607e5858c68eb40&amp;c=2&amp;b=2&amp;a=1\&back=test\">and never got sick

215

</a>

216

<br />

217

</div>

218

<div class=\"unified_cases_h\" id=\"cases1\">

219

</div>

220

</div>"))))

221

222

;; send nil to render-group

223

(deftest test3-render-group ()

224

(check (equal (with-output-to-string (*http-stream*) (render-group nil "test" nil nil))

225

"")))

226

227

;; why these come? &b=2&a=1\

228

(deftest test1-render-cases ()

229

(check (equal (with-output-to-string (*http-stream*) (render-cases (first (first *mock-unified*)) "test"))

230

"

231

<img src=\"static/check_spacer.png\" alt=\"not verified\" />

232

 <a href=\"/dv?n=20051231_NEWScomAU_73ef10bed6da82fc1bba1c8c779c133a&amp;c=1&amp;b=2&amp;a=1&back=test\">Two people died

233

</a>

234

<br />")))

235

236

(deftest test2-render-cases ()

237

   (check (equal (with-output-to-string (*http-stream*) (render-cases (second (first *mock-unified*)) "test"))

238

"

239

<img src=\"static/check_spacer.png\" alt=\"not verified\" />

240

 <a href=\"/dv?n=20051231_TheAustralian_0c5cfe218c0da516616cec1bdfa58cf5&amp;c=1&amp;b=2&amp;a=1&back=test\">Two people died

241

</a>

242

<br />")))

243

244

;; comes error in render-cases if argument is nil

245

246

(deftest test1-newest-cases ()

247

(check (equal (newest-cases :number-of-cases 1)

248

249

"

250

 <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">

251

<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"fi\" lang=\"fi\">

252

<head>

253

<meta http-equiv=\"Content-Type\" content=\"text/html;charset=iso-8859-1\" />

254

<title>

255

Newest cases

256

</title>

257

<link href=\"static/headerstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

258

<link href=\"static/searchstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

259

<link href=\"static/indexstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

260

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/SpryEffects.js\"></script>

261

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/showhide.js\"></script>

262

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/prototype-1.6.0.3.js\"></script>

263

     <script language=\"JavaScript\" type=\"text/javascript\" src=\"static/scriptaculous/scriptaculous.js\"></script>

264

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/search.js\"></script>

265

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/complete.js\"></script>

266

</head>

267

<body class=\"layout\">

268

<div id=\"header\">

269

<div id=\"header_left\">

270

<p>

271

<img id=\"logo\" src=\"static/new-puls-logo.png\" alt=\"Puls logo\" />

272

<a href=\"/newest\">unified cases

273

</a>

274

<a href=\"/newest.cases\">cases

275

</a>

276

<a href=\"/map\">map

277

</a>

278

</p>

279

</div>

280

<div id=\"header_right\">

281

<form method=\"get\" action=\"/login\">

282

<input type=\"text\" size=\"20\" name=\"name\" />

283

<input type=\"text\" size=\"20\" name=\"passwd\" />

284

<input type=\"submit\" value=\"login\" name=\"login\" />

285

</form>

286

</div>

287

</div>

288

<div id=\"main_content\">

289

<h2>

290

Newest Cases

291

</h2>

292

<div id=\"pager\"><span class='pager'>

293

294

<strong>1</strong>

295

296

<a href=\"/foo?page=1&c=3&b=2&a=1\"> 2

297

</a>

298

299

<a href=\"/foo?page=2&c=3&b=2&a=1\"> 3

300

</a>

301

<span>...</span>

302

303

<a href=\"/foo?page=27&c=3&b=2&a=1\"> 28

304

</a>

305

306

<a href=\"/foo?page=28&c=3&b=2&a=1\"> 29

307

</a>

308

309

<a href=\"/foo?page=29&c=3&b=2&a=1\"> 30

310

</a>

311

312

<a href=\"/foo?page=1&c=3&b=2&a=1\"> >>

313

</a></span>

314

</div>

315

<img src=\"static/line.png\" class=\"line\" alt=\"line image\" />

316

<img src=\"static/check_spacer.png\" alt=\"not verified\" />

317

 <a href=\"/dv?n=20051231_khaleejtimes_3a184ca0f6a2ad55e5879bfb53201b3b&amp;c=1&amp;b=2&amp;a=1\">dozens of people killed by the deadly virus in Asia in 2005,

318

</a>

319

<br />

320

<div id=\"pager\"><span class='pager'>

321

322

<strong>1</strong>

323

324

<a href=\"/foo?page=1&c=3&b=2&a=1\"> 2

325

</a>

326

327

<a href=\"/foo?page=2&c=3&b=2&a=1\"> 3

328

</a>

329

<span>...</span>

330

331

<a href=\"/foo?page=27&c=3&b=2&a=1\"> 28

332

</a>

333

334

<a href=\"/foo?page=28&c=3&b=2&a=1\"> 29

335

</a>

336

337

<a href=\"/foo?page=29&c=3&b=2&a=1\"> 30

338

</a>

339

340

<a href=\"/foo?page=1&c=3&b=2&a=1\"> >>

341

</a></span>

342

</div>

343

</div>

344

<div id=\"footer\">

345

<p>

346

Copyright?

347

</p>

348

</div>

349

</body>

350

</html>")))

351

352

(deftest test2-newest-cases ()

353

(check (equal (newest-cases :number-of-cases 2)

354

"

355

 <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">

356

<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"fi\" lang=\"fi\">

357

<head>

358

<meta http-equiv=\"Content-Type\" content=\"text/html;charset=iso-8859-1\" />

359

<title>

360

Newest cases

361

</title>

362

<link href=\"static/headerstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

363

<link href=\"static/searchstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

364

<link href=\"static/indexstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

365

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/SpryEffects.js\"></script>

366

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/showhide.js\"></script>

367

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/prototype-1.6.0.3.js\"></script>

368

     <script language=\"JavaScript\" type=\"text/javascript\" src=\"static/scriptaculous/scriptaculous.js\"></script>

369

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/search.js\"></script>

370

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/complete.js\"></script>

371

</head>

372

<body class=\"layout\">

373

<div id=\"header\">

374

<div id=\"header_left\">

375

<p>

376

<img id=\"logo\" src=\"static/new-puls-logo.png\" alt=\"Puls logo\" />

377

<a href=\"/newest\">unified cases

378

</a>

379

<a href=\"/newest.cases\">cases

380

</a>

381

<a href=\"/map\">map

382

</a>

383

</p>

384

</div>

385

<div id=\"header_right\">

386

<form method=\"get\" action=\"/login\">

387

<input type=\"text\" size=\"20\" name=\"name\" />

388

<input type=\"text\" size=\"20\" name=\"passwd\" />

389

<input type=\"submit\" value=\"login\" name=\"login\" />

390

</form>

391

</div>

392

</div>

393

<div id=\"main_content\">

394

<h2>

395

Newest Cases

396

</h2>

397

<div id=\"pager\"><span class='pager'>

398

399

<strong>1</strong>

400

401

<a href=\"/foo?page=1&c=3&b=2&a=1\"> 2

402

</a>

403

404

<a href=\"/foo?page=2&c=3&b=2&a=1\"> 3

405

</a>

406

<span>...</span>

407

408

<a href=\"/foo?page=27&c=3&b=2&a=1\"> 28

409

</a>

410

411

<a href=\"/foo?page=28&c=3&b=2&a=1\"> 29

412

</a>

413

414

<a href=\"/foo?page=29&c=3&b=2&a=1\"> 30

415

</a>

416

417

<a href=\"/foo?page=1&c=3&b=2&a=1\"> >>

418

</a></span>

419

</div>

420

<img src=\"static/line.png\" class=\"line\" alt=\"line image\" />

421

<img src=\"static/check_spacer.png\" alt=\"not verified\" />

422

 <a href=\"/dv?n=20051231_khaleejtimes_3a184ca0f6a2ad55e5879bfb53201b3b&amp;c=1&amp;b=2&amp;a=1\">dozens of people killed by the deadly virus in Asia in 2005,

423

</a>

424

<br />

425

<img src=\"static/line.png\" class=\"line\" alt=\"line image\" />Mui.

426

<img src=\"static/check.png\" alt=\"verified\" />

427

<a href=\"/dv?n=20051231_TheAustralian_0c5cfe218c0da516616cec1bdfa58cf5&c=1&b=2&a=1\">Two people died

428

</a>

429

<br />

430

<div id=\"pager\"><span class='pager'>

431

432

<strong>1</strong>

433

434

<a href=\"/foo?page=1&c=3&b=2&a=1\"> 2

435

</a>

436

437

<a href=\"/foo?page=2&c=3&b=2&a=1\"> 3

438

</a>

439

<span>...</span>

440

441

<a href=\"/foo?page=27&c=3&b=2&a=1\"> 28

442

</a>

443

444

<a href=\"/foo?page=28&c=3&b=2&a=1\"> 29

445

</a>

446

447

<a href=\"/foo?page=29&c=3&b=2&a=1\"> 30

448

</a>

449

450

<a href=\"/foo?page=1&c=3&b=2&a=1\"> >>

451

</a></span>

452

</div>

453

</div>

454

<div id=\"footer\">

455

<p>

456

Copyright?

457

</p>

458

</div>

459

</body>

460

</html>")))

461

462

(deftest test1-newest-unified-cases ()

463

(check (equal (newest-cases :number-of-cases 1)

464

"

465

 <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">

466

<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"fi\" lang=\"fi\">

467

<head>

468

<meta http-equiv=\"Content-Type\" content=\"text/html;charset=iso-8859-1\" />

469

<title>

470

Newest cases

471

</title>

472

<link href=\"static/headerstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

473

<link href=\"static/searchstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

474

<link href=\"static/indexstyle.css\" rel=\"stylesheet\" type=\"text/css\" />

475

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/SpryEffects.js\"></script>

476

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/showhide.js\"></script>

477

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/prototype-1.6.0.3.js\"></script>

478

     <script language=\"JavaScript\" type=\"text/javascript\" src=\"static/scriptaculous/scriptaculous.js\"></script>

479

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/search.js\"></script>

480

<script language=\"JavaScript\" type=\"text/javascript\" src=\"static/complete.js\"></script>

481

</head>

482

<body class=\"layout\">

483

<div id=\"header\">

484

<div id=\"header_left\">

485

<p>

486

<img id=\"logo\" src=\"static/new-puls-logo.png\" alt=\"Puls logo\" />

487

<a href=\"/newest\">unified cases

488

</a>

489

<a href=\"/newest.cases\">cases

490

</a>

491

<a href=\"/map\">map

492

</a>

493

</p>

494

</div>

495

<div id=\"header_right\">

496

<form method=\"get\" action=\"/login\">

497

<input type=\"text\" size=\"20\" name=\"name\" />

498

<input type=\"text\" size=\"20\" name=\"passwd\" />

499

<input type=\"submit\" value=\"login\" name=\"login\" />

500

</form>

501

</div>

502

</div>

503

<div id=\"main_content\">

504

<h2>

505

Newest Cases

506

</h2>

507

<div id=\"pager\"><span class='pager'>

508

509

<strong>1</strong>

510

511

<a href=\"/foo?page=1&c=3&b=2&a=1\"> 2

512

</a>

513

514

<a href=\"/foo?page=2&c=3&b=2&a=1\"> 3

515

</a>

516

<span>...</span>

517

518

<a href=\"/foo?page=27&c=3&b=2&a=1\"> 28

519

</a>

520

521

<a href=\"/foo?page=28&c=3&b=2&a=1\"> 29

522

</a>

523

524

<a href=\"/foo?page=29&c=3&b=2&a=1\"> 30

525

</a>

526

527

<a href=\"/foo?page=1&c=3&b=2&a=1\"> >>

528

</a></span>

529

</div>

530

<img src=\"static/line.png\" class=\"line\" alt=\"line image\" />

531

<img src=\"static/check_spacer.png\" alt=\"not verified\" />

532

 <a href=\"/dv?n=20051231_khaleejtimes_3a184ca0f6a2ad55e5879bfb53201b3b&amp;c=1&amp;b=2&amp;a=1\">dozens of people killed by the deadly virus in Asia in 2005,

533

</a>

534

<br />

535

<div id=\"pager\"><span class='pager'>

536

537

<strong>1</strong>

538

539

<a href=\"/foo?page=1&c=3&b=2&a=1\"> 2

540

</a>

541

542

<a href=\"/foo?page=2&c=3&b=2&a=1\"> 3

543

</a>

544

<span>...</span>

545

546

<a href=\"/foo?page=27&c=3&b=2&a=1\"> 28

547

</a>

548

549

<a href=\"/foo?page=28&c=3&b=2&a=1\"> 29

550

</a>

551

552

<a href=\"/foo?page=29&c=3&b=2&a=1\"> 30

553

</a>

554

555

<a href=\"/foo?page=1&c=3&b=2&a=1\"> >>

556

</a></span>

557

</div>

558

</div>

559

<div id=\"footer\">

560

<p>

561

Copyright?

562

</p>

563

</div>

564

</body>

565

</html>")))