view release on metacpan or  search on metacpan

t/01_conference_room.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use Test::Pretty;
use Test::Base::Less;
use Acme::VOYAGEGROUP::ConferenceRoom;

subtest '会議室の場所が確認できる' => sub {
    filters {
        expected => [qw/chomp/],
    };
    for my $block (blocks) {
        is conference_room($block->input, 'none'), $block->expected, $block->input . 'が正しく表示できるか';
    }
};



done_testing;

__DATA__

=== PANGEA
--- input: pangea
--- expected
.---------------.---------------------.
|///////////////|                     |
|///////////////|      .--.--.----.---|
|///////////////|      |  |  |    |   |
|///////////////|---.  |  |--|    |   |
|///////////////|   |  '--'  '----|   |
|///////////////|---'-.          .'---|
|///////////////|     |          |    |
'---------------'-----'.--.--.  .'----|
                       |     |  |     |
                       |--.--|  |--.--|
                       |  |  |  |  |  |
                       '--'--'  '--'--|
                                      |
                         .------------|
                         |            |
                         |            |
                         '------------'
=== MEGALLANICA
--- input: megallanica
--- expected
.---------------.---------------------.
|               |                     |
|               |      .--.--.----.---|
|               |      |//|  |    |   |
|               |---.  |//|--|    |   |
|               |   |  '--'  '----|   |
|               |---'-.          .'---|
|               |     |          |    |
'---------------'-----'.--.--.  .'----|
                       |     |  |     |
                       |--.--|  |--.--|
                       |  |  |  |  |  |
                       '--'--'  '--'--|
                                      |
                         .------------|
                         |            |