BPM-Engine

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

author_requires 'Test::Pod::Coverage';
author_requires 'Pod::Coverage::Moose';
author_requires 'Perl::Critic'               => '1.11';
author_requires 'Perl::Critic::Swift'        => '1.0.3';
author_requires 'Test::MinimumVersion'       => '0.101080';
author_requires 'Test::Perl::Critic'         => '1.02';

build_requires  'Test::More'                 => '0.92';
build_requires  'Test::Exception'            => '0.29';
build_requires  'Test::Moose'                => '1.17';
build_requires  'Test::Fatal'                => '0.003';
build_requires  'Test::Requires'             => '0.06';
build_requires  'Test::NoWarnings'           => '1.02';

# minimum versions required upstream (indirect deps)
requires        'MooseX::Method::Signatures' => '0.42';
requires        'YAML::LibYAML'              => '0.18';
requires        'Config::Any'                => '0.23';

# direct dependencies
requires        'aliased'                    => '0';

inc/Test/Fatal.pm  view on Meta::CPAN

#line 1
use strict;
use warnings;
package Test::Fatal;
{
  $Test::Fatal::VERSION = '0.010';
}
# ABSTRACT: incredibly simple helpers for testing code with exceptions


use Carp ();
use Try::Tiny 0.07;

use Exporter 5.57 'import';

our @EXPORT    = qw(exception);

inc/Test/Fatal.pm  view on Meta::CPAN

sub exception (&) {
  my $code = shift;

  return try {
    $code->();
    return undef;
  } catch {
    return $_ if $_;

    my $problem = defined $_ ? 'false' : 'undef';
    Carp::confess("$problem exception caught by Test::Fatal::exception");
  };
}


sub success (&;@) {
  my $code = shift;
  return finally( sub {
    return if @_; # <-- only run on success
    $code->();
  }, @_ );

t/01-base/04-util-xpdl.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
END { done_testing() }
use Test::NoWarnings;
use Test::Fatal;

use BPM::Engine::Util::XPDL qw/xml_doc xpdl_doc xpdl_hash xml_hash/;  # xml_doc xpdl_doc xpdl_hash

foreach my $version(qw/1_0 2_0 2_1 2_2/) {
    ok(-e BPM::Engine::Util::XPDL::_xpdl_spec($version));
    }

my $faulty_string = q|<?xml version="1.0" encoding="UTF-8"?><Package></Package>|;
my $string = q|<?xml version="1.0" encoding="UTF-8"?>
    <Package xmlns="http://www.wfmc.org/2008/XPDL2.1" Id="TestPackage">

t/02-store/06-pi-attributes.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Fatal;
use t::TestUtils;

my $schema = schema();
my $package = $schema->resultset('Package')->create({});
my $process = $schema->resultset('Process')->create({ package_id => $package->id });

#-- create

my $rs = $schema->resultset('ProcessInstanceAttribute');
isa_ok(exception { $rs->create() }, 'DBIx::Class::Exception');

t/04-run/02-runner.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Fatal;
use t::TestUtils;

no warnings 'redefine';
sub diag {}
use warnings;

my $DEBUG = 0;

#- interface
use_ok('BPM::Engine::ProcessRunner');