#!/usr/bin/perl -sw
#
# $Id: email_addresses.t 775 2009-05-27 08:09:42Z calle $

require 5.008;
use warnings;
use strict;

use Test::More tests => 2;

use DNSCheck;

######################################################################

my $check = new DNSCheck();

######################################################################

ok($check->mail->test("postmaster\@iis.se") == 0);
ok(
    $check->mail->test(
        "postmaster\@6f3899904701b0ce2835d82493c0212babf875c7.se") == 1
);