my %params = (
...
              weekdays          => '0011111',
              # Note that this sets Sun/Mon = weekend, Tue-Sat = weekday
...
             );
...
is_deeply($obj, \%params, 'account type created with params');

is($obj->is_weekday(UnixDate(ParseDate('last sunday'), "%s")), 0,
   'Sunday is weekend');
is($obj->is_weekday(UnixDate(ParseDate('last tuesday'), "%s")), 1,
   'Tuesday is weekday');