t/NCIP_Item.t

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