1#!/usr/bin/perl       # -*-perl-*-
2
3require 't/emaul.pl';
4
5print "1..62\n";
6
7okay_if(1, $folder = new Mail::Folder('emaul', full_folder(),
8				      NotMUA => 1));
9okay_if(2, $folder->qty == 2);
10
11okay_if(3, $folder->label_exists(1, 'one'));
12okay_if(4, $folder->label_exists(3, 'three'));
13okay_if(5, $folder->label_exists(1, 'atest'));
14okay_if(6, $folder->label_exists(3, 'atest'));
15okay_if(7, !$folder->label_exists(1, 'three'));
16okay_if(8, !$folder->label_exists(3, 'one'));
17okay_if(9, !$folder->label_exists(1, 'arf'));
18okay_if(10, $folder->delete_label(1, 'one'));
19okay_if(11, $folder->clear_label('atest') == 2);
20okay_if(12, $folder->delete_label(3, 'three'));
21
22okay_if(13, $folder->add_label(1, 'arf'));
23okay_if(14, $folder->label_exists(1, 'arf'));
24okay_if(15, $folder->add_label(1, 'greeble'));
25$folder->add_label(1, 'zort');
26@labels = $folder->list_labels(1);
27okay_if(16, $#labels == 2);
28okay_if(17, scalar $folder->list_labels(1) == 3);
29okay_if(18, $folder->delete_label(1, 'arf'));
30okay_if(19, !$folder->label_exists(1, 'arf'));
31@msgs = $folder->select_label('arf');
32okay_if(20, $#msgs == -1);
33okay_if(21, scalar $folder->select_label('arf') == 0);
34@msgs = $folder->select_label('zort');
35okay_if(22, $#msgs == 0);
36okay_if(23, scalar $folder->select_label('zort') == 1);
37
38okay_if(24, $folder->clear_label('zort'));
39okay_if(25, !$folder->label_exists(1, 'zort'));
40
41okay_if(26, $folder->add_label(3, 'blah'));
42@labels = sort $folder->list_all_labels;
43okay_if(27, $#labels == 1);
44okay_if(28, ($labels[0] eq 'blah'));
45okay_if(29, ($labels[1] eq 'greeble'));
46okay_if(30, scalar $folder->list_all_labels == 2);
47
48okay_if(31, $folder->first_labeled_message('blah') == 3);
49okay_if(32, !$folder->first_labeled_message('none'));
50okay_if(33, $folder->last_labeled_message('greeble') == 1);
51okay_if(34, !$folder->last_labeled_message('none'));
52okay_if(35, $folder->next_labeled_message(1, 'blah') == 3);
53okay_if(36, $folder->prev_labeled_message(3, 'greeble') == 1);
54
55okay_if(37, $folder->close);
56
57okay_if(38, $folder = new Mail::Folder('emaul', full_folder()));
58okay_if(39, $folder->label_exists(1, 'one'));
59okay_if(40, $folder->label_exists(3, 'three'));
60okay_if(41, $folder->label_exists(1, 'atest'));
61okay_if(42, $folder->label_exists(3, 'atest'));
62okay_if(43, !$folder->label_exists(1, 'arf'));
63okay_if(44, !$folder->label_exists(1, 'greeble'));
64okay_if(45, !$folder->label_exists(1, 'zort'));
65okay_if(46, !$folder->label_exists(3, 'blah'));
66okay_if(47, $folder->add_label(1, 'arf'));
67okay_if(48, $folder->add_label(1, 'greeble'));
68okay_if(49, $folder->add_label(1, 'zort'));
69okay_if(50, $folder->add_label(3, 'blah'));
70okay_if(51, $folder->sync == 0);
71okay_if(52, $folder->close);
72
73okay_if(53, $folder = new Mail::Folder('emaul', full_folder()));
74okay_if(54, $folder->label_exists(1, 'one'));
75okay_if(55, $folder->label_exists(3, 'three'));
76okay_if(56, $folder->label_exists(1, 'atest'));
77okay_if(57, $folder->label_exists(3, 'atest'));
78okay_if(58, $folder->label_exists(1, 'arf'));
79okay_if(59, $folder->label_exists(1, 'greeble'));
80okay_if(60, $folder->label_exists(1, 'zort'));
81okay_if(61, $folder->label_exists(3, 'blah'));
82okay_if(62, $folder->close);
83
841;
85