#!/usr/bin/perl;
use strict;
use warnings;
use mydb;

my $db=mydb->new('test.db');

$db->user({name=>'test1',pass=>'12345',mail=>'test1@example.org', active=>1, rights=>'rwx'});
$db->user({name=>'test2',pass=>'12345',mail=>'test2@example.org', active=>1, rights=>'rwx'});
$db->user({name=>'test3',pass=>'12345',mail=>'test3@example.org', active=>1, rights=>'rwx'});
$db->user({name=>'test4',pass=>'12345',mail=>'test4@example.org', active=>1, rights=>'rwx'});

$db->user('test1')->pass('test1');
$db->user('test2')->pass('test2');
$db->user('test3')->pass('test3');
$db->user('test4')->pass('test4');

for(qw(test1 test2 test3 test4))
{
  my $user=$db->user($_);
  print "$_ PASS OK\n" if($user->chk($_));
}

for my $user ($db->user_list)
{
  print $user->name."\n";
  print "  RIGHTS: ".$user->rights."\n";
  print "  MAIL  : ".$user->mail."\n";
  print "  ACTIVE: ".$user->active."\n";
  print "\n";
}

$db->del('test1') if($db->has('test1'));