Sha256: 88fe82e14ae909de08aa84095c503e951f84467569f161ceb544498ac17e6d5f

Contents?: true

Size: 644 Bytes

Versions: 68

Compression:

Stored size: 644 Bytes

Contents

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

plan 7;
my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Robot';
use-ok $module;
require ::($module) <Robot>;

ok Robot.can('name'), 'Robot class has name attribute';
ok Robot.can('reset_name'), 'Robot class has reset_name method';

my $robot = Robot.new;
my $name = $robot.name;

like $name, /^^<[A..Z]>**2 <[0..9]>**3$$/, 'Name should match schema';
is $name, $robot.name, 'Name should be persistent';
ok $robot.name ne Robot.new.name, 'Robots should have different names';

$robot.reset_name;

ok $robot.name ne $name, 'reset_name should change the robot name';

Version data entries

68 entries across 68 versions & 1 rubygems

Version Path
trackler-2.0.6.25 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.24 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.23 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.22 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.21 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.20 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.19 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.18 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.17 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.16 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.15 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.14 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.13 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.12 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.11 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.10 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.9 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.8 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.7 tracks/perl6/exercises/robot-name/robot.t
trackler-2.0.6.6 tracks/perl6/exercises/robot-name/robot.t