File: 02maildir.t

package info (click to toggle)
libemail-foldertype-perl 0.812-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 144 kB
  • ctags: 14
  • sloc: perl: 63; makefile: 39
file content (8 lines) | stat: -rw-r--r-- 270 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
 
use Test::More tests => 5;

use_ok('Email::FolderType',qw(folder_type));

is(folder_type('t/testmaildir/'),    'Maildir');
is(folder_type('t/testmaildir'),     'Maildir');
is(folder_type('t/'),                'Maildir');
isnt(folder_type('t//'),             'Maildir');