#!/usr/bin/perl

use strict;
use warnings;

use Test::More 'no_plan';

use_ok("Text::Lorem::More");
ok( my $lorem = Text::Lorem::More->new(), "Instantiate a Text::Lorem::More object" );
ok( my $name = $lorem->name, "Generate a name" );
like( $name, qr/^[A-Z]/, "First letter of name is uppercase" );
ok( my $fullname = $lorem->fullname, "Generate a fullname (first and last)" );
like( $fullname, qr/^(?:[A-Z][a-z]*(\s|$)){2}/, "First letter of firstname and lastname is uppercase" );
like( $lorem->sentence, qr/^[A-Z].*\.$/, "Sentence has a capital first letter and a period at the end" );
unlike($lorem->email, qr/domainname/, "Test for a bug");


#ok( my $words = $object->words(3),              "Got some words" );
#is( my @foo = split( /\s+/, $words ), 3,        "There were 3 words" );
#ok( my $sentences = $object->sentences(3),      "Got some sentences" );
#is( my @bar = split( /\./, $sentences ), 3,     "There were 3 sentences" );
#ok( my $paragraphs = $object->paragraphs(4),    "Got some paragraphs" );
#is( my @baz = split ( /\n\n/, $paragraphs ), 4, "There were 4 paragraphs" );