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