view release on metacpan or  search on metacpan

t/02-easy.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use Acme::CorpusScrambler;

use Test::More tests => 1;

my $sc = Acme::CorpusScrambler->new;

my $text1 = $sc->scramble;
ok( length($text1) > 0 );

print $text1,"\n";