#!/usr/bin/perl -w

use strict;
use Test;
BEGIN { 
  plan tests => 8;
};

use AI::Categorizer::Hypothesis;
ok(1);

my @cats = ('a'..'z', 'foo', 'bar');

my $h = new AI::Categorizer::Hypothesis
  (
   all_categories => \@cats,
   scores => {
	      a => 0.162625189870596,
	      b => 0.196310929488391,
	      c => 0.342389536555856,
	      d => 0.992922217119485,
	      e => 0.647070572711527,
	      f => 0.769043266773224,
	      g => 0.0594661883078516,
	      h => 0.119586664251983,
	      i => 0.535241201054305,
	      j => 0.673286426346749,
	      k => 0.610552420839667,
	      l => 0.933217488694936,
	      m => 0.989309431985021,
	      n => 0.140130351763219,
	      o => 0.062918059527874,
	      p => 0.825955434702337,
	      q => 0.963266535662115,
	      r => 0.37753611523658,
	      s => 0.769046582747251,
	      t => 0.495079542975873,
	      u => 0.0292209032922983,
	      v => 0.323792772833258,
	      w => 0.959334740880877,
	      x => 0.561960874125361,
	      y => 0.0025778217241168,
	      z => 0.760564740281552,
	     },
   threshold => 0.95,
   document_name => 'foo',
  );
ok $h;

ok $h->categories, 4;
ok $h->best_category, 'd',
ok $h->in_category('d');
ok $h->in_category('m');
ok !$h->in_category('j');
ok !$h->in_category('foo');