view release on metacpan or  search on metacpan

lib/Test/StructuredObject.pm  view on Meta::CPAN

use Sub::Exporter -setup => {
  exports => [qw( test step testsuite testgroup )],
  groups  => { default => [qw( test step testsuite testgroup )] },

};

## no critic ( ProhibitSubroutinePrototypes, RequireArgUnpacking )

sub test(&;@) {
  my $code = shift;
  return Test::StructuredObject::Test->new( code => $code ), @_;
}

sub step(&;@) {
  my $code = shift;
  return Test::StructuredObject::NonTest->new( code => $code ), @_;
}

sub testsuite(@) {
  if ( not ref $_[0] ) {
    my $name = shift;
    my $i = Test::StructuredObject::SubTest->new( name => $name, items => \@_ );
    return $i;
  }