Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Refactoring Testcases. #5

Merged
merged 3 commits into from Aug 17, 2013
Merged

Refactoring Testcases. #5

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
d7943a8
Add t::Util.
NetPenguin Aug 17, 2013
b79c4e2
Modify .gitignore.
NetPenguin Aug 17, 2013
8da0fa9
Reformat *.t files.
NetPenguin Aug 17, 2013
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
1 change: 1 addition & 0 deletions .gitignore
View file
Open in desktop
Expand Up @@ -4,6 +4,7 @@
/blib

/carton.lock
/cpanfile.snapshot
/.carton/
/local/

Expand Down
343 changes: 169 additions & 174 deletions t/01.total.t
View file
Open in desktop
Expand Up @@ -2,194 +2,189 @@ use strict;
use warnings;

use Test::More;

my $class;
BEGIN {
$class = use_ok('Test::EasyMock',
qw{
create_mock
expect
replay
reset
verify
whole
});
use_ok('Test::EasyMock',
qw{
create_mock
expect
replay
reset
verify
whole
});
}
use Test::Deep qw(ignore);

# ----
# Helper.

# ----
# Tests.
subtest 'default mock' => sub {
my $mock = create_mock();
my $mock = create_mock();

subtest 'array arguments and array result' => sub {
my @args = qw(arg1 arg2 arg3);
my @result = qw(result1 result2 result3);
expect($mock->foo(@args))->and_array_return(@result);
replay($mock);
subtest 'array arguments and array result' => sub {
my @args = qw(arg1 arg2 arg3);
my @result = qw(result1 result2 result3);
expect($mock->foo(@args))->and_array_return(@result);
replay($mock);

my @actual = $mock->foo(@args);
my @actual = $mock->foo(@args);

is_deeply(\@actual, \@result, 'result');
verify($mock);
};
is_deeply(\@actual, \@result, 'result');
verify($mock);
};

reset($mock);
reset($mock);

subtest 'named parameter and scalar result' => sub {
my $args = { arg1 => 1, arg2 => 2, arg3 => 3 };
my $result = { result1 => 1, result2 => 2, result3 => 3 };
expect($mock->foo($args))->and_scalar_return($result);
replay($mock);
subtest 'named parameter and scalar result' => sub {
my $args = { arg1 => 1, arg2 => 2, arg3 => 3 };
my $result = { result1 => 1, result2 => 2, result3 => 3 };
expect($mock->foo($args))->and_scalar_return($result);
replay($mock);

my $actual = $mock->foo($args);

is_deeply($actual, $result, 'result');
verify($mock);
};

reset($mock);

subtest 'with Test::Deep comparison parameter' => sub {
my $result1 = 'a result of first.';
my $result2 = 'a result of sencond.';
my $result3 = 'a result of third.';
expect($mock->foo( ignore(), ignore() ))->and_scalar_return($result1);
expect($mock->foo( ignore() ))->and_scalar_return($result2);
expect($mock->foo( whole(ignore()) ))->and_scalar_return($result3);
replay($mock);

my $actual1 = $mock->foo(1, 2);
my $actual2 = $mock->foo({ arg1 => 1, arg2 => 2 });
my $actual3 = $mock->foo(1, 2, 3);

is($actual1, $result1, 'result1');
is($actual2, $result2, 'result2');
is($actual3, $result3, 'result3');
verify($mock);
};

reset($mock);

subtest 'multiple `expect` to same method and argument.' => sub {
my $args = 'argument';
my $result1 = 'a result of first.';
my $result2 = 'a result of second.';

expect($mock->foo($args))->and_scalar_return($result1);
expect($mock->foo($args))->and_scalar_return($result2);
replay($mock);

my $actual1 = $mock->foo($args);
my $actual2 = $mock->foo($args);

is($actual1, $result1, 'result1');
is($actual2, $result2, 'result2');
verify($mock);
};

reset($mock);

subtest 'multiple `expect` to same method and different argument.' => sub {
my $args1 = 'argument1';
my $args2 = 'argument2';
my $result1 = 'a result of first.';
my $result2 = 'a result of second.';

expect($mock->foo($args1))->and_scalar_return($result1);
expect($mock->foo($args2))->and_scalar_return($result2);
replay($mock);

my $actual2 = $mock->foo($args2);
my $actual1 = $mock->foo($args1);

is($actual1, $result1, 'result1');
is($actual2, $result2, 'result2');
verify($mock);
};

reset($mock);

subtest 'multiple `expect` to different method.' => sub {
my $args = 'argument';
my $result1 = 'a result of first.';
my $result2 = 'a result of second.';

expect($mock->foo($args))->and_scalar_return($result1);
expect($mock->bar($args))->and_scalar_return($result2);
replay($mock);

my $actual2 = $mock->bar($args);
my $actual1 = $mock->foo($args);

is($actual1, $result1, 'result1');
is($actual2, $result2, 'result2');
verify($mock);
};

reset($mock);

subtest 'multiple `and_[scalar|array]_return.' => sub {
my $args = 'argument';
my $result1 = 'a result of first';
my @result2 = qw(a result of second);
my $result3 = 'a result of third';

expect($mock->foo($args))
->and_scalar_return($result1)
->and_array_return(@result2)
->and_scalar_return($result3);
replay($mock);

my $actual1 = $mock->foo($args);
my @actual2 = $mock->foo($args);
my $actual3 = $mock->foo($args);

is($actual1, $result1, 'result1');
is_deeply(\@actual2, \@result2, 'result2');
is($actual3, $result3, 'result3');
verify($mock);
};

reset($mock);

subtest 'and_stub_scalar_return' => sub {
my $args1 = 'argument';
my $result1_1 = 'a result of first.';
my $result1_2 = 'a result of second.';
my $args2 = 'other';
my $result2 = 'a result of other.';

expect($mock->foo($args1))->and_scalar_return($result1_1);
expect($mock->foo($args1))->and_stub_scalar_return($result1_2);
expect($mock->foo($args2))->and_stub_scalar_return($result2);
replay($mock);

my $actual1_1 = $mock->foo($args1);
my $actual1_2 = $mock->foo($args1);
my $actual1_3 = $mock->foo($args1);
my $actual2 = $mock->foo($args2);

is($actual1_1, $result1_1, 'result1_1');
is($actual1_2, $result1_2, 'result1_2');
is($actual1_3, $result1_2, 'result1_3');
is( $actual2, $result2, 'result2');

verify($mock);
};

reset($mock);

subtest 'expec with `stub_scalar_return`, but no call mock method.' => sub {
expect($mock->foo())->and_stub_scalar_return('');
replay($mock);
verify($mock); # pass
};
my $actual = $mock->foo($args);

is_deeply($actual, $result, 'result');
verify($mock);
};

reset($mock);

subtest 'with Test::Deep comparison parameter' => sub {
my $result1 = 'a result of first.';
my $result2 = 'a result of sencond.';
my $result3 = 'a result of third.';
expect($mock->foo( ignore(), ignore() ))->and_scalar_return($result1);
expect($mock->foo( ignore() ))->and_scalar_return($result2);
expect($mock->foo( whole(ignore()) ))->and_scalar_return($result3);
replay($mock);

my $actual1 = $mock->foo(1, 2);
my $actual2 = $mock->foo({ arg1 => 1, arg2 => 2 });
my $actual3 = $mock->foo(1, 2, 3);

is($actual1, $result1, 'result1');
is($actual2, $result2, 'result2');
is($actual3, $result3, 'result3');
verify($mock);
};

reset($mock);

subtest 'multiple `expect` to same method and argument.' => sub {
my $args = 'argument';
my $result1 = 'a result of first.';
my $result2 = 'a result of second.';

expect($mock->foo($args))->and_scalar_return($result1);
expect($mock->foo($args))->and_scalar_return($result2);
replay($mock);

my $actual1 = $mock->foo($args);
my $actual2 = $mock->foo($args);

is($actual1, $result1, 'result1');
is($actual2, $result2, 'result2');
verify($mock);
};

reset($mock);

subtest 'multiple `expect` to same method and different argument.' => sub {
my $args1 = 'argument1';
my $args2 = 'argument2';
my $result1 = 'a result of first.';
my $result2 = 'a result of second.';

expect($mock->foo($args1))->and_scalar_return($result1);
expect($mock->foo($args2))->and_scalar_return($result2);
replay($mock);

my $actual2 = $mock->foo($args2);
my $actual1 = $mock->foo($args1);

is($actual1, $result1, 'result1');
is($actual2, $result2, 'result2');
verify($mock);
};

reset($mock);

subtest 'multiple `expect` to different method.' => sub {
my $args = 'argument';
my $result1 = 'a result of first.';
my $result2 = 'a result of second.';

expect($mock->foo($args))->and_scalar_return($result1);
expect($mock->bar($args))->and_scalar_return($result2);
replay($mock);

my $actual2 = $mock->bar($args);
my $actual1 = $mock->foo($args);

is($actual1, $result1, 'result1');
is($actual2, $result2, 'result2');
verify($mock);
};

reset($mock);

subtest 'multiple `and_[scalar|array]_return.' => sub {
my $args = 'argument';
my $result1 = 'a result of first';
my @result2 = qw(a result of second);
my $result3 = 'a result of third';

expect($mock->foo($args))
->and_scalar_return($result1)
->and_array_return(@result2)
->and_scalar_return($result3);
replay($mock);

my $actual1 = $mock->foo($args);
my @actual2 = $mock->foo($args);
my $actual3 = $mock->foo($args);

is($actual1, $result1, 'result1');
is_deeply(\@actual2, \@result2, 'result2');
is($actual3, $result3, 'result3');
verify($mock);
};

reset($mock);

subtest 'and_stub_scalar_return' => sub {
my $args1 = 'argument';
my $result1_1 = 'a result of first.';
my $result1_2 = 'a result of second.';
my $args2 = 'other';
my $result2 = 'a result of other.';

expect($mock->foo($args1))->and_scalar_return($result1_1);
expect($mock->foo($args1))->and_stub_scalar_return($result1_2);
expect($mock->foo($args2))->and_stub_scalar_return($result2);
replay($mock);

my $actual1_1 = $mock->foo($args1);
my $actual1_2 = $mock->foo($args1);
my $actual1_3 = $mock->foo($args1);
my $actual2 = $mock->foo($args2);

is($actual1_1, $result1_1, 'result1_1');
is($actual1_2, $result1_2, 'result1_2');
is($actual1_3, $result1_2, 'result1_3');
is( $actual2, $result2, 'result2');

verify($mock);
};

reset($mock);

subtest 'expec with `stub_scalar_return`, but no call mock method.' => sub {
expect($mock->foo())->and_stub_scalar_return('');
replay($mock);
verify($mock); # pass
};
};


# ----
::done_testing;
done_testing;