Merge branch 'collab/dyrcona/PALS_integration' of git+ssh://git.catalyst.net.nz/git...
[working/NCIPServer.git] / 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