Testing the 3rd party class

---

• This is probably not very interesting, just testing an object-oriented module.

examples/mock-class/t/someclass-real.t

use strict;
use warnings;
use Test::More;

use SomeClass;

my $obj = SomeClass->new;
isa_ok $obj, 'SomeClass';

is $obj->name, undef;
is $obj->name('Apple'), 'Apple';
is $obj->name, 'Apple';

is $obj->double(3), 6;

done_testing;

examples/mock-class/t/someclass-mocked.t

use strict;
use warnings;
use Test::More;

use Mock::Quick qw(qclass);
my $control = qclass(
    -implement => 'SomeClass',
    -with_new => 1,
    -attributes => [ qw(name) ],
    double => 7,
);


my $obj = SomeClass->new;
isa_ok $obj, 'SomeClass';

is $obj->name, undef;
is $obj->name('Apple'), 'Apple';
is $obj->name, 'Apple';

is $obj->double(3), 7;


$control->undefine();

done_testing;