1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
use 5.008001;
use strict;
use warnings;
use Test::More 0.96;
use Data::Fake::Internet;
subtest 'fake_tld' => sub {
for my $i ( 0 .. 5 ) {
my $got = fake_tld->();
ok( defined($got), "TLD ($got) is defined" );
}
};
subtest 'fake_domain' => sub {
for my $i ( 0 .. 5 ) {
my $got = fake_domain->();
ok( defined($got), "domain ($got) is defined" );
like( $got, qr/\w\.\w/, "domain has dot separator" );
}
};
subtest 'fake_email' => sub {
for my $i ( 0 .. 5 ) {
my $got = fake_email->();
ok( defined($got), "email ($got) is defined" );
like( $got, qr/^\w+\.\w+\@\w+\.\w+/, "email has expected form" );
}
};
done_testing;
#
# This file is part of Data-Fake
#
# This software is Copyright (c) 2015 by David Golden.
#
# This is free software, licensed under:
#
# The Apache License, Version 2.0, January 2004
#
# vim: ts=4 sts=4 sw=4 et tw=75:
|
