#!/usr/bin/perl -w
use
strict;
# -------------------------------------------------------------------
# Library Modules
use
TestObject;
# -------------------------------------------------------------------
# Variables
my
$CONFIG
=
't/_DBDIR/preferences.ini'
;
# -------------------------------------------------------------------
# Tests
SKIP: {
skip
"No supported databases available"
, 41
unless
(-f
$CONFIG
);
ok(
my
$obj
= TestObject->load(),
"got object"
);
# test the attributes generated by Class::Accessor::Fast
# predefined attributes
for
my
$k
(
qw/
verbose
nomail
test
logfile
logclean
tt
pause
lastmail
mode
mailrc
/
){
my
$label
=
"[$k]"
;
SKIP: {
ok(
$obj
->can(
$k
),
"$label can"
) or skip
"'$k' attribute missing"
, 3;
isnt(
$obj
->
$k
(),
undef
,
"$label has default"
);
is(
$obj
->
$k
(123), 123,
"$label set"
);
is(
$obj
->
$k
, 123,
"$label get"
);
};
}
}