Skip to content
Browse files

few test additions

  • Loading branch information...
1 parent 1fc5f35 commit 46a74a378a43fcc0642fa16f569f53ce6bfa72f2 Stevan Little committed Jun 25, 2013
View
1 t/001-examples/001-point.t
@@ -76,6 +76,7 @@ class Point3D (extends => 'Point') {
{
my $p3d = Point3D->new();
isa_ok($p3d, 'Point3D');
+ isa_ok($p3d, 'Point');
is_deeply(
mop::mro::get_linear_isa('Point3D'),
View
2 t/001-examples/002-bank-account.t
@@ -54,7 +54,7 @@ my $checking = CheckingAccount->new(
overdraft_account => $savings,
);
isa_ok($checking, 'CheckingAccount');
-#isa_ok($checking, 'BankAccount');
+isa_ok($checking, 'BankAccount');
is $checking->balance, 0, '... got the checking balance we expected';
View
8 t/050-non-mop-integration/002-more-non-mop.t
@@ -40,11 +40,11 @@ class Employee (extends => 'Person') {
my $e = Employee->new;
isa_ok($e, 'Employee');
-#isa_ok($e, 'Person');
+isa_ok($e, 'Person');
-can_ok($e, 'first_name');
-can_ok($e, 'last_name');
-can_ok($e, 'manager');
+ok($e->can('first_name'), '... $e can call first_name');
+ok($e->can('last_name'), '... $e can call last_name');
+ok($e->can('manager'), '... $e can call manager');
is($e->first_name, 'stevan', '... got the expected default value');
is($e->last_name, 'little', '... got the expected default value');

0 comments on commit 46a74a3

Please sign in to comment.
Something went wrong with that request. Please try again.