1#!/usr/bin/perl -w
2
3use strict;
4use Test::More tests => 4;
5use Mail::Internet;
6use Mail::ListDetector;
7
8my $mail;
9
10$mail = new Mail::Internet(\*DATA);
11
12my $list = new Mail::ListDetector($mail);
13
14ok(defined($list), 'list is defined');
15is($list->listname, 'mld', 'list name');
16is($list->listsoftware, 'Google Groups', 'list software');
17is($list->posting_address, 'mld@googlegroups.com', 'posting address');
18
19__DATA__
20Received: from mproxy.google.com ([216.239.56.250] verified)
21  by freeonline.com.au (CommuniGate Pro SMTP 4.1.1)
22  with SMTP id 599341 for perl@walker.wattle.id.au; Sat, 05 Jun 2004 02:41:33 +0000
23Received: by mproxy.google.com with SMTP id u36so822958cwc
24        for <perl@walker.wattle.id.au>; Fri, 04 Jun 2004 19:41:37 -0700 (PDT)
25Received: by 10.11.100.73 with SMTP id x73mr4229cwb;
26        Fri, 04 Jun 2004 19:41:37 -0700 (PDT)
27X-Sender: perl@walker.wattle.id.au
28X-Apparently-To: mld@googlegroups.com
29Received: by 10.11.122.14 with SMTP id u14mr3130cwc; Fri, 04 Jun 2004 19:41:36 -0700 (PDT)
30X-Original-Return-Path: <perl@walker.wattle.id.au>
31Received: from 216.239.56.244 (HELO mproxy.google.com) by mx.googlegroups.com with SMTP id v23si459419cwb; Fri, 04 Jun 2004 19:41:36 -0700 (PDT)
32Received:perlby mproxy.google.com with SMTP id x30so916139cwb for <mld@googlegroups.com>; Fri, 04 Jun 2004 19:41:36 -0700 (PDT)
33Received: by 10.11.122.14 with SMTP id u14mr3129cwc; Fri, 04 Jun 2004 19:41:36 -0700 (PDT)
34Message-Id: <1086403296794863@googlegroups.com>
35From: perl@walker.wattle.id.au
36To: mld@googlegroups.com
37Subject: Mail::ListDetector Sample message
38Date: Fri, 04 Jun 2004 19:41:36 -0700
39User-Agent: G2/0.1
40MIME-Version: 1.0
41Content-Type: text/plain; charset="iso-8859-1"
42Reply-To: mld@googlegroups.com
43Precedence: bulk
44X-Google-Loop: groups
45Mailing-List: list mld@googlegroups.com;
46	contact mld-owner@googlegroups.com
47List-Id: <mld.googlegroups.com>
48List-Post: <mailto:mld@googlegroups.com>
49List-Help: <mailto:mld-help@googlegroups.com>
50
51
52An email so I can add recognition to Mail::ListDetector
53
54PS. do not look for this group at Google, it doesn't exist!
55
56
57