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