Sha256: f8b453df5a88a0bec7164523fcfca46ef0fcc9498554c07312136b45c82693ae

Contents?: true

Size: 820 Bytes

Versions: 8

Compression:

Stored size: 820 Bytes

Contents

#!/usr/bin/env perl6
use v6;
use Test;
use lib IO::Path.new($?FILE).parent.path;

plan 10;

BEGIN {
  my $module = %*ENV{'EXERCISM'} ?? 'Example' !! 'Scrabble';
  EVAL("use $module")
};

pass 'Load module';

ok Scrabble.can('score'), 'Scrabble class has score() method';

my $scrabble = Scrabble.new();

is $scrabble.score(""),                 0,  "empty word scores 0";
is $scrabble.score(" \t\n"),            0,  "whitespace scores 0";
is $scrabble.score("a"),                1,  "a scores 1";
is $scrabble.score("f"),                4,  "f scores 4";
is $scrabble.score("street"),           6,  "street scores 6";
is $scrabble.score("alacrity"),         13, "alacrity scores 13";
is $scrabble.score("OXYPHENBUTAZONE"),  41, "OXYPHENBUTAZONE scores 41";
is $scrabble.score("quirky"),           22, "quirky scores 22";

Version data entries

8 entries across 8 versions & 1 rubygems

Version Path
trackler-2.0.3.2 tracks/perl6/exercises/scrabble-score/scrabble_score.t
trackler-2.0.3.1 tracks/perl6/exercises/scrabble-score/scrabble_score.t
trackler-2.0.3.0 tracks/perl6/exercises/scrabble-score/scrabble_score.t
trackler-2.0.2.0 tracks/perl6/exercises/scrabble-score/scrabble_score.t
trackler-2.0.1.2 tracks/perl6/exercises/scrabble-score/scrabble_score.t
trackler-2.0.1.1 tracks/perl6/exercises/scrabble-score/scrabble_score.t
trackler-2.0.1.0 tracks/perl6/exercises/scrabble-score/scrabble_score.t
trackler-2.0.0.10 tracks/perl6/exercises/scrabble-score/scrabble_score.t