root/Mail-ListDetector-Detector-Fml/trunk/t/01_match.t

Revision 335 (checked in by miyagawa, 18 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 use strict;
2 use Test::More tests => 3;
3
4 use FileHandle;
5 use Mail::Internet;
6 use Mail::ListDetector;
7 use Mail::ListDetector::Detector::Fml;
8
9 my $msg = FileHandle->new('t/match');
10 my $mail = Mail::Internet->new($msg);
11 my $list = Mail::ListDetector->new($mail);
12
13 is $list->listname, 'mlname';
14 is $list->posting_address, 'mlname@domain.example.com';
15 is $list->listsoftware, 'fml 4.0 STABLE (20010208)';
16
17
18
19
Note: See TracBrowser for help on using the browser.