Image-Placeholder

 view release on metacpan or  search on metacpan

t/01.text.t  view on Meta::CPAN

use Modern::Perl;
use Test::More      tests => 3;

use Image::Placeholder;



{
    my $img = Image::Placeholder->new();
    ok( '300×300' eq $img->get_text() );
}
{
    my $img = Image::Placeholder->new( width => 600, height => 300 );
    ok( '600×300' eq $img->get_text() );
}
{
    my $img = Image::Placeholder->new( text => 'placeholder' );
    ok( 'placeholder' eq $img->get_text() );
}



( run in 1.892 second using v1.01-cache-2.11-cpan-97f6503c9c8 )