File Coverage

blib/lib/Test/Given.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	15	15	100.0
pod	7	8	87.5
total	58	62	93.5

package Test::Given;
use strict;
use warnings;

use Test::Given::Context;
use Test::Given::Builder;

BEGIN {
  require Exporter;
  our @ISA = qw(Exporter);
  our @EXPORT = qw(describe context Given When Then And Invariant onDone has_failed);
}

use version; our $VERSION = qv('0.3.1');

my $context = Test::Given::Context->new('** TOPLEVEL **');
sub describe {
  my ($description, $sub) = @_;
  $context = $context->add_context($description);
  $sub->();
  $context = $context->parent();
}
*context = \&describe;

sub Given     { $context->add_given(@_) }
sub When      { $context->add_when(@_) }
sub Invariant { $context->add_invariant(@_) }
sub Then      { $context->add_then(@_) }
sub onDone    { $context->add_done(@_) }
sub And       { $context->add_and(@_) }

sub has_failed {
  my ($exceptions, $re) = @_;
  return '' unless $exceptions and $re;
  grep { $_ =~ $re } @$exceptions;
}

END {
  plan(tests => $context->test_count());
  $context->run_tests();
}

1;

__END__