view release on metacpan or  search on metacpan

t/04_spazi.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Data::Dumper;
use_ok 'Acme::Cavaspazi';

my $string = "this is a stiring";

my $cavaspazi = cavaspazi($string);
ok( ($cavaspazi !~/ /), "cavaspazi($string) does not contain spaces: " . $cavaspazi );

my @spazi = ("cava spazi", "altri spazi");
my @nospazi = cavaspazi(@spazi);

t/05_bin.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Data::Dumper;
use_ok 'Acme::Cavaspazi';
use FindBin qw($RealBin);
use File::Spec;

my $data = File::Spec->catfile( $RealBin, "..", "data" );
my $bind  = File::Spec->catfile( $RealBin, "..", "bin" );

ok(-d $data, "Data dir found in $RealBin: $data");
ok(-d $bind, "Bin dir found in $RealBin: $bind");