← Back to branch summary

~ubuntu-branches/ubuntu/saucy/python-docutils/saucy-proposed

« back to all changes in this revision

Viewing changes to tools/editors/emacs/tests/adjust-section.el

  • Committer: Package Import Robot
  • Author(s): Dmitry Shachnev
  • Date: 2012-10-19 18:23:15 UTC
  • mfrom: (1.2.1) (11.1.6 experimental)
  • Revision ID: package-import@ubuntu.com-20121019182315-ln3lvct1pqq7mzgm
Tags: 0.9.1+svn7532-0ubuntu1
* Resynchronize with Debian packaging SVN, remaining change:
  - Use dh_python2 instead of dh_pysupport.
* New snapshot from upstream SVN, fixes build with Python 3.3.
* Add XS-Testsuite header.
* debian/patches/move-data-to-usr-share.diff: unfuzz.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/editors/emacs/tests/adjust-section.el
1
1
;; Tests for rst-adjust
2
2
 
3
3
(add-to-list 'load-path ".")
4
 
(load "ert-support" nil t)
 
4
(load "init" nil t)
 
5
(init-rst-ert t)
 
6
 
 
7
(ert-deftest adjust-section-asserts ()
 
8
  "Check some assertions."
 
9
  (should (equal ert-Buf-point-char "\^@"))
 
10
  (should (equal ert-Buf-mark-char "\^?"))
 
11
  )
5
12
 
6
13
(ert-deftest rst-adjust ()
7
14
  "Tests for `rst-adjust'."
16
23
                                    (?` simple 0)
17
24
                                    (?# simple 0)
18
25
                                    (?@ simple 0))))
19
 
    (should (equal-buffer
20
 
             '(rst-adjust)
 
26
    (should (ert-equal-buffer
 
27
             (rst-adjust)
21
28
             "
22
29
Some Title\^@
23
30
 
29
36
 
30
37
"
31
38
             t))
32
 
    (should (equal-buffer
33
 
             '(rst-adjust)
 
39
    (should (ert-equal-buffer
 
40
             (rst-adjust)
34
41
             "
35
42
Some Title
36
43
\^@
42
49
 
43
50
"
44
51
             t))
45
 
    (should (equal-buffer
46
 
             '(rst-adjust)
 
52
    (should (ert-equal-buffer
 
53
             (rst-adjust)
47
54
             "
48
55
Some Tit\^@le
49
56
 
55
62
 
56
63
"
57
64
             t))
58
 
    (should (equal-buffer
59
 
             '(rst-adjust)
 
65
    (should (ert-equal-buffer
 
66
             (rst-adjust)
60
67
             "
61
68
\^@Some Title
62
69
 
68
75
 
69
76
"
70
77
             t))
71
 
    (should (equal-buffer
72
 
             '(rst-adjust)
 
78
    (should (ert-equal-buffer
 
79
             (rst-adjust)
73
80
             "
74
81
Some Title\^@
75
82
 
93
100
 
94
101
"
95
102
             t))
96
 
    (should (equal-buffer
97
 
             '(rst-adjust 1)
 
103
    (should (ert-equal-buffer
 
104
             (rst-adjust 1)
98
105
             "
99
106
Some Title\^@
100
107
 
105
112
 
106
113
"
107
114
             t))
108
 
    (should (equal-buffer
109
 
             '(rst-adjust)
 
115
    (should (ert-equal-buffer
 
116
             (rst-adjust)
110
117
             "
111
118
   Some Title\^@
112
119
 
118
125
 
119
126
"
120
127
             t))
121
 
    (should (equal-buffer
122
 
             '(rst-adjust 1)
 
128
    (should (ert-equal-buffer
 
129
             (rst-adjust 1)
123
130
             "
124
131
   Some Title\^@
125
132
 
130
137
 
131
138
"
132
139
             t))
133
 
    (should (equal-buffer
134
 
             '(rst-adjust)
135
 
             "
136
 
Previous Title
137
 
--------------
138
 
 
139
 
Some Title\^@
140
 
 
141
 
"
142
 
             "
143
 
Previous Title
144
 
--------------
145
 
 
146
 
Some Title
147
 
~~~~~~~~~~
148
 
 
149
 
"
150
 
             t))
151
 
    (should (equal-buffer
152
 
             '(rst-adjust)
153
 
             "
154
 
Previous Title
155
 
--------------
156
 
 
157
 
Some Title\^@
158
 
 
159
 
Next Title
160
 
~~~~~~~~~~
161
 
 
162
 
"
163
 
             "
164
 
Previous Title
165
 
--------------
166
 
 
167
 
Some Title
168
 
~~~~~~~~~~
169
 
 
170
 
Next Title
171
 
~~~~~~~~~~
172
 
 
173
 
"
174
 
             t))
175
 
    (should (equal-buffer
176
 
             '(rst-adjust 1)
177
 
             "
178
 
Previous Title
179
 
--------------
180
 
 
181
 
Some Title\^@
182
 
 
183
 
"
184
 
             "
185
 
Previous Title
186
 
--------------
187
 
 
188
 
~~~~~~~~~~
189
 
Some Title
190
 
~~~~~~~~~~
191
 
 
192
 
"
193
 
             t))
194
 
    (should (equal-buffer
195
 
             '(rst-adjust 1)
 
140
    (should (ert-equal-buffer
 
141
             (rst-adjust)
 
142
             "
 
143
Previous Title
 
144
--------------
 
145
 
 
146
Some Title\^@
 
147
 
 
148
"
 
149
             "
 
150
Previous Title
 
151
--------------
 
152
 
 
153
Some Title
 
154
~~~~~~~~~~
 
155
 
 
156
"
 
157
             t))
 
158
    (should (ert-equal-buffer
 
159
             (rst-adjust)
 
160
             "
 
161
Previous Title
 
162
--------------
 
163
 
 
164
Some Title\^@
 
165
 
 
166
Next Title
 
167
~~~~~~~~~~
 
168
 
 
169
"
 
170
             "
 
171
Previous Title
 
172
--------------
 
173
 
 
174
Some Title
 
175
~~~~~~~~~~
 
176
 
 
177
Next Title
 
178
~~~~~~~~~~
 
179
 
 
180
"
 
181
             t))
 
182
    (should (ert-equal-buffer
 
183
             (rst-adjust 1)
 
184
             "
 
185
Previous Title
 
186
--------------
 
187
 
 
188
Some Title\^@
 
189
 
 
190
"
 
191
             "
 
192
Previous Title
 
193
--------------
 
194
 
 
195
~~~~~~~~~~
 
196
Some Title
 
197
~~~~~~~~~~
 
198
 
 
199
"
 
200
             t))
 
201
    (should (ert-equal-buffer
 
202
             (rst-adjust 1)
196
203
             "
197
204
Previous Title
198
205
--------------
210
217
 
211
218
"
212
219
             t))
213
 
    (should (equal-buffer
214
 
             '(rst-adjust)
 
220
    (should (ert-equal-buffer
 
221
             (rst-adjust)
215
222
             "
216
223
Previous Title
217
224
--------------
228
235
 
229
236
"
230
237
             t))
231
 
    (should (equal-buffer
232
 
             '(rst-adjust -)
 
238
    (should (ert-equal-buffer
 
239
             (rst-adjust -)
233
240
             "
234
241
Previous Title
235
242
--------------
250
257
~~~~~~~~~~
251
258
"
252
259
             t))
253
 
    (should (equal-buffer
254
 
             '(rst-adjust)
 
260
    (should (ert-equal-buffer
 
261
             (rst-adjust)
255
262
             "
256
263
Previous Title\^@
257
264
----------
262
269
 
263
270
"
264
271
             t))
265
 
    (should (equal-buffer
266
 
             '(rst-adjust)
 
272
    (should (ert-equal-buffer
 
273
             (rst-adjust)
267
274
             "
268
275
Previous Title
269
276
----------\^@
274
281
 
275
282
"
276
283
             t))
277
 
    (should (equal-buffer
278
 
             '(rst-adjust)
 
284
    (should (ert-equal-buffer
 
285
             (rst-adjust)
279
286
             "
280
287
Previous Title
281
288
-\^@
285
292
-
286
293
"
287
294
             t))
288
 
    (should (equal-buffer
289
 
             '(rst-adjust)
 
295
    (should (ert-equal-buffer
 
296
             (rst-adjust)
290
297
             "
291
298
Previous Title
292
299
--\^@
296
303
--
297
304
"
298
305
             t))
299
 
    (should (equal-buffer
300
 
             '(rst-adjust)
 
306
    (should (ert-equal-buffer
 
307
             (rst-adjust)
301
308
             "
302
309
Previous Title
303
310
---\^@
308
315
 
309
316
"
310
317
             t))
311
 
    (should (equal-buffer
312
 
             '(rst-adjust)
 
318
    (should (ert-equal-buffer
 
319
             (rst-adjust)
313
320
             "
314
321
Previous Title
315
322
------------------\^@
320
327
 
321
328
"
322
329
             t))
323
 
    (should (equal-buffer
324
 
             '(rst-adjust)
325
 
             "
326
 
----------------
327
 
 Previous Title
328
 
----------\^@
329
 
"
330
 
             "
331
 
----------------
332
 
 Previous Title
333
 
----------------
334
 
 
335
 
"
336
 
             t))
337
 
    (should (equal-buffer
338
 
             '(rst-adjust)
339
 
             "
340
 
----------\^@
341
 
 Previous Title
342
 
----------------
343
 
"
344
 
             "
345
 
----------------
346
 
 Previous Title
347
 
----------------
348
 
 
349
 
"
350
 
             t))
351
 
    (should (equal-buffer
352
 
             '(rst-adjust)
 
330
    (should (ert-equal-buffer
 
331
             (rst-adjust)
 
332
             "
 
333
----------------
 
334
 Previous Title
 
335
----------\^@
 
336
"
 
337
             "
 
338
----------------
 
339
 Previous Title
 
340
----------------
 
341
 
 
342
"
 
343
             t))
 
344
    (should (ert-equal-buffer
 
345
             (rst-adjust)
 
346
             "
 
347
----------\^@
 
348
 Previous Title
 
349
----------------
 
350
"
 
351
             "
 
352
----------------
 
353
 Previous Title
 
354
----------------
 
355
 
 
356
"
 
357
             t))
 
358
    (should (ert-equal-buffer
 
359
             (rst-adjust)
353
360
             "
354
361
----------
355
362
 Previous Title\^@
362
369
 
363
370
"
364
371
             t))
365
 
    (should (equal-buffer
366
 
             '(rst-adjust 1)
 
372
    (should (ert-equal-buffer
 
373
             (rst-adjust 1)
367
374
             "
368
375
Previous Title
369
376
----------\^@
375
382
 
376
383
"
377
384
             t))
378
 
    (should (equal-buffer
379
 
             '(rst-adjust 1)
 
385
    (should (ert-equal-buffer
 
386
             (rst-adjust 1)
380
387
             "
381
388
----------------
382
389
 Previous Title\^@
388
395
 
389
396
"
390
397
             t))
391
 
    (should (equal-buffer
392
 
             '(rst-adjust 1)
 
398
    (should (ert-equal-buffer
 
399
             (rst-adjust 1)
393
400
             "
394
401
--------\^@
395
402
 Previous Title
401
408
 
402
409
"
403
410
             t))
404
 
    (should (equal-buffer
405
 
             '(rst-adjust)
 
411
    (should (ert-equal-buffer
 
412
             (rst-adjust)
406
413
             "--------\^@
407
414
 Previous Title
408
415
----------------
413
420
 
414
421
"
415
422
             t))
416
 
    (should (equal-buffer
417
 
             '(rst-adjust)
 
423
    (should (ert-equal-buffer
 
424
             (rst-adjust)
418
425
             "=======
419
426
Document Title\^@
420
427
==============
425
432
 
426
433
"
427
434
             t))
428
 
    (should (equal-buffer
429
 
             '(rst-adjust)
 
435
    (should (ert-equal-buffer
 
436
             (rst-adjust)
430
437
             "
431
438
================
432
439
 Document Title
459
466
 
460
467
"
461
468
             t))
462
 
    (should (equal-buffer
463
 
             '(rst-adjust -)
 
469
    (should (ert-equal-buffer
 
470
             (rst-adjust -)
464
471
             "
465
472
================
466
473
 Document Title
492
499
 
493
500
"
494
501
             t))
495
 
    (should (equal-buffer
496
 
             '(rst-adjust -)
 
502
    (should (ert-equal-buffer
 
503
             (rst-adjust -)
497
504
             "
498
505
================
499
506
 Document Title
519
526
 
520
527
"
521
528
             t))
522
 
    (should (equal-buffer
523
 
             '(rst-adjust -)
 
529
    (should (ert-equal-buffer
 
530
             (rst-adjust -)
524
531
             "
525
532
================
526
533
 Document Title
547
554
 
548
555
"
549
556
             t))
550
 
    (should (equal-buffer
551
 
             '(rst-adjust)
 
557
    (should (ert-equal-buffer
 
558
             (rst-adjust)
552
559
             "
553
560
================
554
561
 Document Title
575
582
 
576
583
"
577
584
             t))
578
 
    (should (equal-buffer
579
 
             '(rst-adjust)
 
585
    (should (ert-equal-buffer
 
586
             (rst-adjust)
580
587
             "
581
588
================
582
589
 Document Title
601
608
 
602
609
"
603
610
             t))
604
 
    (should (equal-buffer
605
 
             '(rst-adjust 1)
 
611
    (should (ert-equal-buffer
 
612
             (rst-adjust 1)
606
613
             "
607
614
SubTitle\^@
608
615
~~~~~~~~
615
622
 
616
623
"
617
624
             t))
618
 
    (should (equal-buffer
619
 
             '(rst-adjust 1)
 
625
    (should (ert-equal-buffer
 
626
             (rst-adjust 1)
620
627
             "
621
628
~~~~~~~~~~
622
629
 SubTitle\^@
629
636
 
630
637
"
631
638
             t))
632
 
    (should (equal-buffer
633
 
             '(rst-adjust)
634
 
             "
635
 
Document Title\^@
636
 
 
637
 
"
638
 
             "
639
 
================
640
 
 Document Title\^@
641
 
================
642
 
 
643
 
"
644
 
             t))
645
 
    (should (equal-buffer
646
 
             '(rst-adjust)
647
 
             "
648
 
 
649
 
Document Title\^@
650
 
"
651
 
             "
652
 
 
653
 
================
654
 
 Document Title\^@
655
 
================
656
 
 
657
 
"
658
 
             t))
659
 
    (should (equal-buffer
660
 
             '(rst-adjust)
 
639
    (should (ert-equal-buffer
 
640
             (rst-adjust)
 
641
             "
 
642
Document Title\^@
 
643
 
 
644
"
 
645
             "
 
646
================
 
647
 Document Title\^@
 
648
================
 
649
 
 
650
"
 
651
             t))
 
652
    (should (ert-equal-buffer
 
653
             (rst-adjust)
 
654
             "
 
655
 
 
656
Document Title\^@
 
657
"
 
658
             "
 
659
 
 
660
================
 
661
 Document Title\^@
 
662
================
 
663
 
 
664
"
 
665
             t))
 
666
    (should (ert-equal-buffer
 
667
             (rst-adjust)
661
668
             "
662
669
 
663
670
Document Title\^@"
668
675
================
669
676
"
670
677
             t))
671
 
    (should (equal-buffer
672
 
             '(rst-adjust)
 
678
    (should (ert-equal-buffer
 
679
             (rst-adjust)
673
680
             "
674
681
Document Title
675
682
==============
684
691
 
685
692
"
686
693
             t))
687
 
    (should (equal-buffer
688
 
             '(rst-adjust)
 
694
    (should (ert-equal-buffer
 
695
             (rst-adjust)
689
696
             "==============
690
697
Document Title\^@
691
698
==============
700
707
 
701
708
"
702
709
             t))
703
 
    (should (equal-buffer
704
 
             '(rst-adjust)
 
710
    (should (ert-equal-buffer
 
711
             (rst-adjust)
705
712
             "
706
713
==============
707
714
Document Title\^@
718
725
 
719
726
"
720
727
             t))
721
 
    (should (equal-buffer
722
 
             '(rst-adjust)
 
728
    (should (ert-equal-buffer
 
729
             (rst-adjust)
723
730
             "
724
731
==============
725
732
Document Title
739
746
"
740
747
             t))
741
748
    ;; docutils-Bugs #2972588
742
 
    (should (equal-buffer
743
 
             '(rst-adjust)
 
749
    (should (ert-equal-buffer
 
750
             (rst-adjust)
744
751
             "
745
752
==============
746
753
Document Title