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