#!/usr/local/bin/perl;

use warnings;
use strict;

use Data::Dumper;
use Test::DBI;

my $testuser = TestDBI::user->retrieve( 1 );
print "user with id 1 is: ". $testuser->firstname ."\n";
print "and has roles:\n";
my @roles = $testuser->haveroles;

print Dumper( \@roles );
#foreach (@roles) {
#	print "role: " . $_->id . " and " . $_->rolename . "\n";
#}
exit;