1#!/usr/bin/perl -sw 2# 3# $Id: email_addresses.t 775 2009-05-27 08:09:42Z calle $ 4 5require 5.008; 6use warnings; 7use strict; 8 9use Test::More tests => 2; 10 11use DNSCheck; 12 13###################################################################### 14 15my $check = new DNSCheck(); 16 17###################################################################### 18 19ok($check->mail->test("postmaster\@iis.se") == 0); 20ok( 21 $check->mail->test( 22 "postmaster\@6f3899904701b0ce2835d82493c0212babf875c7.se") == 1 23); 24