Sha256: 9eeeb34c36db424a316801c901aa340fa5d28cf1421d342176418f818c57c6b7

Contents?: true

Size: 1015 Bytes

Versions: 20

Compression:

Stored size: 1015 Bytes

Contents

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

my $module = $ENV{EXERCISM} ? 'Example' : 'RobotName';

plan tests => 9;

ok -e "$module.pm", "Missing $module.pm"
    or BAIL_OUT("You need to create a module called $module.pm with a constructor and methods called name() and reset_name().");

eval "use $module";
ok !$@, "Cannot load $module.pm"
    or BAIL_OUT("Does $module.pm compile?  Does it end with 1; ?");

can_ok($module, 'new')  or BAIL_OUT("Missing package $module with sub sub new()");
can_ok($module, 'name')  or BAIL_OUT("Missing package $module with sub sub name()");
can_ok($module, 'reset_name') or BAIL_OUT("Missing package $module with sub sub reset()");

# robot method tests
my $robot = $module->new;
my $name = $robot->name;

ok $robot->name =~ /[A-Z]{2}[0-9]{3}/, 'Name should match schema';
is $name, $robot->name, 'Name should be persistent';
ok $robot->name ne $module->new->name, 'Robots should have different names';
ok $robot->reset_name ne $name, 'reset_name should change the robot name';

Version data entries

20 entries across 20 versions & 1 rubygems

Version Path
trackler-2.0.0.9 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.8 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.7 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.6 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.5 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.4 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.3 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.2 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.1 tracks/perl5/robot-name/robot_name.t
trackler-2.0.0.0 tracks/perl5/robot-name/robot_name.t
trackler-1.0.4.1 tracks/perl5/robot-name/robot_name.t
trackler-1.0.4.0 tracks/perl5/robot-name/robot_name.t
trackler-1.0.3.0 tracks/perl5/robot-name/robot_name.t
trackler-1.0.2.1 tracks/perl5/robot-name/robot_name.t
trackler-1.0.2.0 tracks/perl5/robot-name/robot_name.t
trackler-1.0.1.2 tracks/perl5/robot-name/robot_name.t
trackler-1.0.1.1 tracks/perl5/robot-name/robot_name.t
trackler-1.0.1.0 tracks/perl5/robot-name/robot_name.t
trackler-1.0.0.1 tracks/perl5/robot-name/robot_name.t
trackler-1.0.0 tracks/perl5/robot-name/robot_name.t