Bob aka Robert

Bob.pm

unit module Bob;

class Bob is export {
	method hey ($input) {
		given $input {
			when $_.ends-with('?') { say 'Sure.' }
			when $_.ends-with('!') { say 'Whoa, chill out' }
			when $_ eq '' { say 'Fine. Be that way!' }
			default { say 'Whatever.' }
		}
	}
}

bob.t

use v6;
use Test;
use lib './';

plan 21;


BEGIN { 
    my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Bob';

    EVAL("use $module");
}; 

pass 'Load module';

ok Bob.can('hey'), 'Class Bob has hey() method';

my @cases =
    # input                                           expected output        title
    ['Tom-ay-to, tom-aaaah-to.',                       'Whatever.',          'stating something'],
    ['WATCH OUT!',                                     'Whoa, chill out!',   'shouting'],
    ['Does this cryogenic chamber make me look fat?',  'Sure.',              'question'],
    ['You are, what, like 15?',                        'Sure.',              'numeric question'],
    ["Let's go make out behind the gym!",              'Whatever.',          'talking forcefully'],
    ["It's OK if you don't want to go to the DMV.",    'Whatever.',          'using acronyms in regular speech'],
    ['WHAT THE HELL WERE YOU THINKING?',               'Whoa, chill out!',   'forceful questions'],
    ['1, 2, 3 GO!',                                    'Whoa, chill out!',   'shouting numbers'],
    ['1, 2, 3',                                        'Whatever.',          'only numbers'],
    ['4?',                                             'Sure.',              'question with only numbers'],
    ['ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!',  'Whoa, chill out!',   'shouting with special characters'],
    ["ÜMLÄÜTS!",                                       'Whoa, chill out!',   'shouting with umlauts'],
    ["\xdcML\xc4\xdcTS!",                              'Whoa, chill out!',   'shouting with umlauts'],
    ["ÜMLäÜTS!",                                       'Whatever.',          'speaking calmly with umlauts'],
    ['I HATE YOU',                                     'Whoa, chill out!',   'shouting with no exclamation mark'],
    ['Ending with ? means a question.',                'Whatever.',          'statement containing question mark'],
    ["Wait! Hang on. Are you going to be OK?",         'Sure.',              'prattling on'],
    ['',                                               'Fine. Be that way!', 'silence'],
    ['    ',                                           'Fine. Be that way!', 'prolonged silence'],
;

for @cases -> ( $string, $expected, $msg ) {
    is Bob.hey($string), $expected, $msg;
}