use strict; use Data::Dumper; use Test::More tests => 3; use_ok('Anarres::Mud::Driver::Program'); my $program = new Anarres::Mud::Driver::Program( Path => '/tmp/foo', ); ok(defined($program), 'We constructed something ...'); ok(ref($program) =~ m/::Program$/, '... which looks like a program');