#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
my $data = "Some string here";
my $regex = qr/ fancy regex here /mxis;
like( $data, $regex, "Matching my regex" );
done_testing;
####
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
sub mysub {
return;
}
ok( mysub(), "Should return true" );
done_testing;
##
##
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
my $wanted_matches = 2;
my $actual_matches = 0;
my $regex = qr/ fancy regex here /mxis;
while ( my $line = ) {
chomp $line;
if ( $line =~ $regex ){
$actual_matches++;
}
}
ok( $wanted_matches == $actual_matches, "Correct number of matches" );
done_testing;
__DATA__
line one.....
line two.....
....
line ten.....