I'm trying to initialize a database for Bayes from perl (DIY).

Using Test::More as a start I tried:

can_ok('Mail::SpamAssassin::BayesStore', ('tie_db_readonly'));

my $to = 'tom';
my $spamtest = Mail::SpamAssassin->new( {username => $to, debug=>'all'} );

isa_ok($spamtest, 'Mail::SpamAssassin');
my $bayes = 
Mail::SpamAssassin::BayesStore->new($spamtest->{bayes_store_module});
isa_ok($bayes, 'Mail::SpamAssassin::BayesStore');

$bayes->tie_db_readonly();



Everything passes...

Except for the '$bayes->tie_db_readonly()'
returns 'bayes: tie_db_readonly: not implemented'

I'm a little confused as to why.

Reply via email to