Skip to content

Commit

Permalink
Build results of 3a245dd (on master)
Browse files Browse the repository at this point in the history
  • Loading branch information
@kentfredric
kentfredric committed Mar 3, 2017
1 parent fa4194c commit 55c5a7b
Show file tree
Hide file tree
Showing 7 changed files with 65 additions and 74 deletions.
2 changes: 1 addition & 1 deletion Changes
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Release history for Generic-Assertions

0.001002 2017-03-03T15:06:42Z 1d76e55
0.001002 2017-03-03T16:20:07Z 3a245dd
[Bugfix]
- Avoid test failures on 5.26 w/ -Ddefault_inc_excludes_dot
- Closes https://github.com/kentnl/Generic-Assertions/issues/1
Expand Down
5 changes: 1 addition & 4 deletions t/construction_basic.t
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
use strict;
use warnings;

use Test::More;
use Test::More tests => 5;
use Test::Warnings qw( warning );
use Test::Fatal qw( exception );

Expand Down Expand Up @@ -39,6 +39,3 @@ eok_like( exception { my $ass = Generic::Assertions->new('foo') }, qr/even/, 'Od

eok_like( exception { my $ass = Generic::Assertions->new( x => 'y' ) }, qr/must be a CodeRef/, 'two args badder' );
eok_like( exception { my $ass = Generic::Assertions->new( 'foo', 'foo', 'foo' ) }, qr/even/, 'Three args bad' );

done_testing;

4 changes: 1 addition & 3 deletions t/construction_handlers.t
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
use strict;
use warnings;

use Test::More;
use Test::More tests => 5;
use Test::Warnings qw( warning );
use Test::Fatal qw( exception );

Expand Down Expand Up @@ -69,5 +69,3 @@ noe_ok(
},
'sub is good in a hash handler set when constructed as hashes'
);
done_testing;

4 changes: 1 addition & 3 deletions t/construction_tests.t
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
use strict;
use warnings;

use Test::More;
use Test::More tests => 7;
use Test::Warnings qw( warning );
use Test::Fatal qw( exception );

Expand Down Expand Up @@ -87,5 +87,3 @@ noe_ok(
},
'sub is good in a hash test set when constructed as hashes'
);
done_testing;

41 changes: 20 additions & 21 deletions t/core_handlers.t
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
use strict;
use warnings;

use Test::More;
use Test::More tests => 33;
use Test::Warnings qw( warning );
use Test::Fatal qw( exception );

Expand Down Expand Up @@ -77,24 +77,23 @@ sub warnok_like($$$) {

sub noe_subtest($$) {
my ( $name, $code ) = @_;
subtest $name => sub {
my $exception = exception { $code->() };
noe_ok( $exception, 'No exceptions from subtest' );
};
note "Beginning Subtest: $name ]---";
my $exception = exception { $code->() };
note "Ending Subtest: $name ]---";
noe_ok( $exception, 'No exceptions from subtest' );
}

sub nowe_subtest($$) {
my ( $name, $code ) = @_;
subtest $name => sub {
my $warning;
my $exception = exception {
$warning = warning {
$code->();
};
note "Beginning Subtest: $name ]---";
my $warning;
my $exception = exception {
$warning = warning {
$code->();
};
noe_ok( $exception, 'No exceptions from subtest ' . $name );
now_ok( $warning, 'No warnings from subtest ' . $name );
};
noe_ok( $exception, 'No exceptions from subtest ' . $name );
now_ok( $warning, 'No warnings from subtest ' . $name );
}

noe_subtest 'handler.test.false' => sub {
Expand Down Expand Up @@ -161,15 +160,18 @@ noe_subtest 'handler.should_not.true' => sub {
warnok_like( $warning, qr/Assertion < should_not testing > failed: Test handle is true/, "Expected warning returned" );
};

subtest 'handler.must.false' => sub {
{
note "Beginning Subtest: handler.must.false ]---";
my $ass = Generic::Assertions->new();
my $return;
my $ex = exception { $return = $ass->_handle( 'must', 0, 'Test handle is false', 'testing', 5 ) };

ok( ( not defined $return ), 'test handler does not return' );

eok_like( $ex, qr/Assertion < must testing > failed: Test handle is false/, "Expected exception returned" );
};
note "Ending Subtest: handler.must.false ]---";
}

nowe_subtest 'handler.must.true' => sub {

my $ass = Generic::Assertions->new();
Expand All @@ -186,8 +188,8 @@ nowe_subtest 'handler.must_not.false' => sub {

};

subtest 'handler.must.true' => sub {

{
note "Beginning Subtest: handler.must.true ]---";
my $ass = Generic::Assertions->new();

my $return;
Expand All @@ -196,8 +198,5 @@ subtest 'handler.must.true' => sub {
ok( ( not defined $return ), 'test handler does not return' );

eok_like( $ex, qr/Assertion < must_not testing > failed: Test handle is false/, "Expected exception returned" );

note "Ending Subtest: handler.must.true ]---";
};

done_testing;

41 changes: 20 additions & 21 deletions t/core_handlers_methods.t
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
use strict;
use warnings;

use Test::More;
use Test::More tests => 33;
use Test::Warnings qw( warning );
use Test::Fatal qw( exception );

Expand Down Expand Up @@ -77,24 +77,23 @@ sub warnok_like($$$) {

sub noe_subtest($$) {
my ( $name, $code ) = @_;
subtest $name => sub {
my $exception = exception { $code->() };
noe_ok( $exception, 'No exceptions from subtest' );
};
note "Beginning Subtest: $name ]---";
my $exception = exception { $code->() };
note "Ending Subtest: $name ]---";
noe_ok( $exception, 'No exceptions from subtest' );
}

sub nowe_subtest($$) {
my ( $name, $code ) = @_;
subtest $name => sub {
my $warning;
my $exception = exception {
$warning = warning {
$code->();
};
note "Beginning Subtest: $name ]---";
my $warning;
my $exception = exception {
$warning = warning {
$code->();
};
noe_ok( $exception, 'No exceptions from subtest ' . $name );
now_ok( $warning, 'No warnings from subtest ' . $name );
};
noe_ok( $exception, 'No exceptions from subtest ' . $name );
now_ok( $warning, 'No warnings from subtest ' . $name );
}

sub mk_ass {
Expand Down Expand Up @@ -166,15 +165,18 @@ noe_subtest 'handler.should_not.true' => sub {
warnok_like( $warning, qr/Assertion < should_not passfail > failed: Test handle is true/, "Expected warning returned" );
};

subtest 'handler.must.false' => sub {
{
note "Beginning Subtest: handler.must.false ]---";
my $ass = mk_ass;
my $return;
my $ex = exception { $return = $ass->must( passfail => 0 ) };

ok( ( not defined $return ), 'test handler does not return' );

eok_like( $ex, qr/Assertion < must passfail > failed: Test handle is false/, "Expected exception returned" );
};
note "Ending Subtest: handler.must.false ]---";
}

nowe_subtest 'handler.must.true' => sub {

my $ass = mk_ass;
Expand All @@ -191,8 +193,8 @@ nowe_subtest 'handler.must_not.false' => sub {

};

subtest 'handler.must.true' => sub {

{
note "Beginning Subtest: handler.must.true ]---";
my $ass = mk_ass;

my $return;
Expand All @@ -201,8 +203,5 @@ subtest 'handler.must.true' => sub {
ok( ( not defined $return ), 'test handler does not return' );

eok_like( $ex, qr/Assertion < must_not passfail > failed: Test handle is true/, "Expected exception returned" );

note "Ending Subtest: handler.must.true ]---";
};

done_testing;

42 changes: 21 additions & 21 deletions t/input_transformer.t
View file
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
use strict;
use warnings;

use Test::More;
use Test::More tests => 33;
use Test::Warnings qw( warning );
use Test::Fatal qw( exception );

Expand Down Expand Up @@ -77,24 +77,24 @@ sub warnok_like($$$) {

sub noe_subtest($$) {
my ( $name, $code ) = @_;
subtest $name => sub {
my $exception = exception { $code->() };
noe_ok( $exception, 'No exceptions from subtest' );
};
note "Beginning Subtest: $name ]---";
my $exception = exception { $code->() };
note "Ending Subtest: $name ]---";
noe_ok( $exception, 'No exceptions from subtest' );
}

sub nowe_subtest($$) {
my ( $name, $code ) = @_;
subtest $name => sub {
my $warning;
my $exception = exception {
$warning = warning {
$code->();
};
note "Beginning Subtest: $name ]---";
my $warning;
my $exception = exception {
$warning = warning {
$code->();
};
noe_ok( $exception, 'No exceptions from subtest ' . $name );
now_ok( $warning, 'No warnings from subtest ' . $name );
};
note "Ending Subtest: $name ]---";
noe_ok( $exception, 'No exceptions from subtest ' . $name );
now_ok( $warning, 'No warnings from subtest ' . $name );
}

{
Expand Down Expand Up @@ -186,15 +186,18 @@ noe_subtest 'handler.should_not.true' => sub {
warnok_like( $warning, qr/Assertion < should_not passfail > failed: Test handle is true/, "Expected warning returned" );
};

subtest 'handler.must.false' => sub {
{
note "Beginning Subtest: handler.must.false ]---";
my $ass = mk_ass;
my $return;
my $ex = exception { $return = $ass->must( passfail => 0 ) };

ok( ( not defined $return ), 'test handler does not return' );

eok_like( $ex, qr/Assertion < must passfail > failed: Test handle is false/, "Expected exception returned" );
};
note "Ending Subtest: handler.must.false ]---";
}

nowe_subtest 'handler.must.true' => sub {

my $ass = mk_ass;
Expand All @@ -211,8 +214,8 @@ nowe_subtest 'handler.must_not.false' => sub {

};

subtest 'handler.must.true' => sub {

{
note "Beginning Subtest: handler.must.true ]---";
my $ass = mk_ass;

my $return;
Expand All @@ -221,8 +224,5 @@ subtest 'handler.must.true' => sub {
ok( ( not defined $return ), 'test handler does not return' );

eok_like( $ex, qr/Assertion < must_not passfail > failed: Test handle is true/, "Expected exception returned" );

note "Ending Subtest: handler.must.true ]---";
};

done_testing;

0 comments on commit 55c5a7b

Please sign in to comment.