#!/usr/bin/perl

use strict;
use warnings;

use Test::More 'no_plan';

use_ok("Text::Lorem::More");
use Text::Lorem::More qw(lorem);
srand int(time * $$);
for (0 .. 2 ** 8) {
	unlike(lorem->mail, qr/name/, "$_: test for a e-mail \"domainname\" bug");
}