view release on metacpan or  search on metacpan

t/01-emoji.t  view on Meta::CPAN

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

use Acme::AsciiEmoji;

sub is_emoji {
	my %args = @_;
	is($args{meth}(), $args{expected});
};

is_emoji(
    meth => \&Acme::AsciiEmoji::innocent,
    expected => 'ʘ‿ʘ',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::disapproval,
    expected => 'ಠ_ಠ',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::table_flip,
    expected => '(╯°□°）╯︵ ┻━┻',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::put_the_table_back,
    expected => '┬─┬ノ( ゜-゜ノ)',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::double_flip,
    expected => '┻━┻︵ヽ(`Д´)ﾉ︵┻━┻',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::super_waving,
    expected => '( ﾟ∀ﾟ)ｱﾊﾊ八八ﾉヽﾉヽﾉヽﾉ ＼ / ＼/ ＼',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::fistacuffs,
    expected => 'ლ(｀ー´ლ)',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::cute_bear,
    expected => 'ʕ•ᴥ•ʔ',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::big_eyes,
    expected => '(｡◕‿◕｡)',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::surprised,
    expected => '（　ﾟДﾟ）',
);

is_emoji(
    meth => \&Acme::AsciiEmoji::shrug,
    expected => '¯\_(ツ)_/¯',
);

is_emoji(