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