use Test::More 'no_plan';
use_ok("Bryar::DataSource::FlatFile");
# Test the all_documents method exists
ok(Bryar::DataSource::FlatFile->can("all_documents"), "We can call all_documents");
# Test the search method exists
ok(Bryar::DataSource::FlatFile->can("search"), "We can call search");
use Bryar;
my $bryar = new Bryar(datadir=>"./t/");
my @documents = reverse $bryar->{config}->source->all_documents($bryar->config);
is(@documents, 2, "We got two documents");
is($documents[0]->title, "First entry", "First title correct");
like($documents[0]->content, qr/flatfile format/, "First content correct");
is($bryar->{config}->source->id_to_file('1'), '1.txt', "id_to_file()");
is($bryar->{config}->source->file_to_id('1.txt'), '1', "file_to_id()");
ok( my @search_results = $bryar->{config}->source->search($bryar->{config}, content => "second" ));
is( scalar @search_results, 1, "Proper number of documents found." );
# add a comment
# $config,
# document => $doc,
# author => $params{author},
# url => $params{url},
# content => $params{content},
# epoch => tim
ok ( $bryar->{config}->source->add_comment( $bryar->{config}, document => $search_results[0], author => 'david cantrell', url => '', email => 'david@cantrell.org.uk', content => 'this is a test comment. it is cool, innit?' ) );
ok ( my @comment_entries = $bryar->{config}->source->search($bryar->{config}, id => 2 ));
ok( my @subblog_results = $bryar->{config}->source->search($bryar->{config}, subblog => "subcat" ));
# is( scalar @subblog_results, 1, "Proper number of documents found." );