t/NCIP_User.t

   1 #/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use lib 'lib';
   6
   7 use Test::More tests => 4;                      # last test to print
   8
   9 use_ok('NCIP::User');
  10
  11 ok(my $user = NCIP::User->new(),'Create a new user object');
  12 ok($user->firstname('Chris'),'Set firstname');
  13 is($user->firstname(), 'Chris', "Test our getting");
  14