#!/usr/bin/perl
###################################################
#
# test of package user
#
###################################################
use strict;
use warnings;
use User;

  my $newbie = User->new();
  print "create a new user...\n";
  $newbie->set_userinfo('noob', '1337', 'haxxorz@aohell.com');
  $newbie->save_userinfo();
  print $newbie->get_user('noob')
  print "test one completed";

  my $newbie = User->new();
  print "create a new user...\n";
  $newbie->set_userinfo('Bob', '21740', 'Bgoodman@netmail.com');
  $newbie->save_userinfo();
  print $newbie->get_user('Bob')
  print "test two completed";

  my $newbie = User->new();
  print "create a new user...\n";
  $newbie->set_userinfo('johnnyhobo', 'boxcar236', 'hobo@freemail.com');
  $newbie->save_userinfo();
  print $newbie->get_user('johnnyhobo')
  print "test three completed";
