Sha256: 3e05e2d0c9ac5b130c1c4ab6ceac5d42f28cb9131b9fdb622faf2c07d46ffd48
Contents?: true
Size: 1.09 KB
Versions: 303
Compression:
Stored size: 1.09 KB
Contents
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use FindBin;
my $dir;
BEGIN { $dir = $FindBin::Bin . '/' };
use lib $dir;
my $module = $ENV{EXERCISM} ? 'Example' : 'RobotName';
plan tests => 9;
ok -e "${dir}${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
303 entries across 303 versions & 1 rubygems