view release on metacpan or  search on metacpan

t/01-01-nostrictures.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 5;
use Test::Fatal;
use B::Deparse;
use FindBin;
use lib "$FindBin::Bin/01-poc-lib";

sub lives_and_is(&$$) {
  my ( $code, $expect, $desc ) = @_;
  my $result = exception {
    is( $code->(), $expect, $desc );
  };
  if ($result) {
    fail("died: $result");
  }
}

BEGIN { use_ok('Example'); }

t/01-02-strictures.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 5;
use Test::Fatal;
use B::Deparse;
use FindBin;

use lib "$FindBin::Bin/01-poc-lib";

sub lives_and_is(&$$) {
  my ( $code, $expect, $desc ) = @_;
  my $result = exception {
    is( $code->(), $expect, $desc );
  };
  if ($result) {
    fail("died: $result");
  }
}

sub dies_ok(&$) {
  my ( $code, $desc ) = @_;
  ok( &exception($code), $desc );
}
use Package::Strictures -for => { 'Example' => { 'STRICT' => 1, } };
BEGIN { use_ok('Example'); }

lives_and_is { Example::slow() } 5, 'Method using strictures execute and return values';
dies_ok { Example::slow(5) } 'Method using strictures execute validation blocks';

my $deparse = B::Deparse->new();

t/01-03-loadfile.t  view on Meta::CPAN

use warnings;

use Test::More tests => 5;
use Test::Fatal;
use B::Deparse;
use FindBin;
use lib "$FindBin::Bin/01-poc-lib";

use Package::Strictures -from => "$FindBin::Bin/strictures.ini";

sub lives_and_is(&$$) {
  my ( $code, $expect, $desc ) = @_;
  my $result = exception {
    is( $code->(), $expect, $desc );
  };
  if ($result) {
    fail("died: $result");
  }
}

sub dies_ok(&$) {
  my ( $code, $desc ) = @_;
  ok( &exception($code), $desc );
}
BEGIN { use_ok('Example'); }

lives_and_is { Example::slow() } 5, 'Method using strictures execute and return values';
dies_ok { Example::slow(5) } 'Method using strictures execute validation blocks';

my $deparse = B::Deparse->new();