MR::Go::Admin::Test

Transcript

1. MR::Go::Admin::Test
2. Go::Admin Go
3. Go::Admin Go Go Go Go Go Go Go Go Go Go
4. xUnit
5. xUnit SUnit
6. xUnit SUnit JUnit
7. xUnit SUnit JUnit unittest
8. xUnit SUnit JUnit unittest runit
9. xUnit SUnit JUnit unittest runit rspec
10. xUnit SUnit JUnit unittest runit rspec Test::Class
11. xUnit Test Patterns Автор: Месарош Джерард
12. package MR::Go::Admin::User::Test; sub setup : Test(setup) { my ($self) = @_; $self->{user} = create_user(); } sub test_delete : Test(2) { my ($self) = @_; $self->{user}->delete(); # ... } Test::Class
13. Именование классов MR::Go::Admin::User → MR::Go::Admin::User::Test
14. Именование классов MR::Go::Admin::User → MR::Go::Admin::User::Test *::Test запрещены не в тестах
15. Именование классов MR::Go::Admin::User → MR::Go::Admin::User::Test *::Test запрещены не в тестах MR::Go::Admin::User::Test::_FakeUser
16. Именование методов delete → delete delete → delete__already_deleted _delete → delete delete → test_delete delete → test_delete__already_deleted _delete → test__delete__already_deleted Двойное подчеркивание
17. https://goo.gl/tBIRwZ sub _set_status { my ($self, $status) = @_; $self->_status($status); $self->_history->add($status); $self->_log('...'); } sub set_status_processing { return shift->_set_status('processing'); } sub set_status_processed { return shift->_set_status('processing'); } Тестирование приватных методов
18. Структура теста
19. Структура теста Arrange Act Assert
20. Структура теста Arrange Act Assert Setup Exercise Verify Teardown
21. База
22. База Поддельная база
23. База Поддельная база SQLite
24. База Поддельная база SQLite Настоящая база
25. База Поддельная база SQLite Настоящая база Test::DBIx::Class
26. Fixtures
27. Fixtures Копия реальной базы
28. Fixtures Копия реальной базы Слепок реальной базы
29. Fixtures Копия реальной базы Слепок реальной базы Искусственно подготовленный слепок
30. Fixtures Копия реальной базы Слепок реальной базы Искусственно подготовленный слепок Пустая база
31. Fixtures Копия реальной базы Слепок реальной базы Искусственно подготовленный слепок Пустая база Фабрики
32. package MR::Go::Admin::UserFactory; use base qw(DBIx::Class::Factory); __PACKAGE__->resultset(MR::Go::Admin:: Schema->resultset('User')); __PACKAGE__->fields({ name => __PACKAGE__->seq(sub {'User #' . shift}), city => __PACKAGE__->related_factory('MR::Go::Admin::CityFactory'), status => 'new', }); DBIx::Class::Factory
33. package MR::Go::Admin::UserFactory; use base qw(DBIx::Class::Factory); __PACKAGE__->resultset(MR::Go::Admin:: Schema->resultset('User')); __PACKAGE__->fields({ name => __PACKAGE__->seq(sub {'User #' . shift}), city => __PACKAGE__->related_factory('MR::Go::Admin::CityFactory'), status => 'new', }); https://goo.gl/tBIRwZ DBIx::Class::Factory
34. Фабрика в деле sub set_status : Test(1) { my ($self) = @_; my $task = MR::Admin::Go::Test::Factory::Task->create(); $task->set_status('TEST_NEW_STATUS'); is($task->status, 'TEST_NEW_STATUS', 'status'); return; }
35. Транзакции
36. Транзакции setup = BEGIN
37. Транзакции setup = BEGIN teardown = ROLLBACK
38. Транзакции setup = BEGIN teardown = ROLLBACK $self->break_db();
39. Test doubles
40. Test doubles Mock
41. Test doubles Mock Spy
42. Test doubles Mock Spy Stub
43. Test doubles Mock Spy Stub Dummy
44. Моки с магией my $mock = Test::MockModule->new('MR::Go::Admin::SMS'); my $sent = 0; $mock->mock(_send => sub { $sent = 1 });
45. Моки с магией local *MR::Go::Admin::SMS::_send = sub { $sent++ }; my $mock = Test::MockModule->new('MR::Go::Admin::SMS'); my $sent = 0; $mock->mock(_send => sub { $sent = 1 });
46. Моки без магии package MR::Go::Admin::User::Test::_FakeUser; MR::Go::Admin::User::Test::_FakeUser->new(); bless $user, 'MR::Go::Admin::User::Test::_FakeUser';
47. Моки без магии has _logger => (default => sub { '...' }); User->new({_logger => $fake_logger}); User->new({_message_size_limit => 42}); package MR::Go::Admin::User::Test::_FakeUser; MR::Go::Admin::User::Test::_FakeUser->new(); bless $user, 'MR::Go::Admin::User::Test::_FakeUser';
48. Asserts is($node->children->count, 0, 'leaf node');
49. Asserts is($node->children->count, 0, 'leaf node'); is($rating, 42); cmp_ok($status, 'eq', 'processed'); ok($user->deleted);
50. is($node->children->count, 0, 'leaf node'); is($rating, 42); cmp_ok($status, 'eq', 'processed'); ok($user->deleted); Asserts use Test::Deep;
51. cmp_deeply( $users, bag($user1, $user2) ); cmp_deeply( $user, methods( rating => 42, blocked => bool(0), ) ); Test::Deep
52. Спасибо Вадим Пуштаев pushtaev@cpan.org https://goo.gl/SNrhWp Дизайн Максим Гелета
53. Бонус: ExportCatcher { package MR:Go::Admin::Test::_ExportCatcher; use MR::Go::Admin::Schema; use Test::DBIx::Class; }