# A perl test file, which can be run like so: # `perl (>>>FILE<<<)' # (>>>AUTHOR<<<) (>>>VC_DATE<<<) use warnings; use strict; $|=1; my $DEBUG = 1; # TODO set to 0 before ship use Data::Dumper; use Test::More; BEGIN { plan tests => 2 }; # TODO revise test count use FindBin qw( $Bin ); use lib "$Bin/../lib"; my $class; BEGIN { $class = '(>>>PERL_MODULE_NAME<<<)'; use_ok( $class ); } { my $test_name = "Testing creation of object of expected type: $class"; my $obj = $class->new(); my $created_class = ref $obj; is( $created_class, $class, $test_name ); } # Insert your test code below. (>>>POINT<<<)