view release on metacpan or  search on metacpan

t/state.t  view on Meta::CPAN

use strict;
use Test::More tests => 6;
use AI::Classifier::Text;
use AI::NaiveBayes::Learner;
use File::Spec;
ok(1); # If we made it this far, we're loaded.

my $lr = AI::NaiveBayes::Learner->new(purge => 0);

$lr->add_example(attributes => _hash(qw(sheep very valuable farming)),
		          labels => ['farming'] );
is $lr->examples, 1;

my $nb = $lr->classifier;
ok $nb;


my $tp = AI::Classifier::Text->new( classifier => $nb );
# Save
my $file = File::Spec->catfile('t', 'model.dat');
$tp->store($file);
is -e $file, 1;

# Restore
$tp = AI::Classifier::Text->load($file);
ok $tp;
isa_ok( $tp, 'AI::Classifier::Text' );


################################################################
sub _hash { +{ map {$_,1} @_ } }