#!/usr/bin/perl
# $Id: 23-entry.t 2670 2008-07-01 09:26:52Z takayama $
use strict;
use warnings;

use lib 't/lib';
use lib 'lib';
use lib 'extlib';

use Test::More tests => 41;

use MT;
use MT::Blog;
use MT::Category;
use MT::Comment;
use MT::Entry;
use MT::Placement;

use vars qw( $DB_DIR $T_CFG );

use lib 't/lib', 'extlib', 'lib', '../lib', '../extlib';
use MT::Test qw(:db :data);

my $mt = MT->instance( Config => $T_CFG ) or die MT->errstr;
isa_ok($mt, 'MT');

my $blog = MT::Blog->load(1);
isa_ok($blog, 'MT::Blog');

my $entry = MT::Entry->load(1);
isa_ok($entry, 'MT::Entry');
is($entry->blog_id, $blog->id, 'blog id');
is($entry->status, MT::Entry::RELEASE(), 'status');
is($entry->status, 2, 'status 2');
is($entry->title, 'A Rainy Day', 'title');
is($entry->allow_comments, 1, 'allow_comments 1');
is($entry->excerpt, 'A story of a stroll.', 'excerpt');
is($entry->text, 'On a drizzly day last weekend,', 'text');
is($entry->text_more, 'I took my grandpa for a walk.', 'text_more');

is(MT::Entry::status_text(1), 'Draft', 'Draft');
is(MT::Entry::status_text($entry->status), 'Publish', 'Publish');
is(MT::Entry::status_int('Draft'), 1, 'Draft 1');
is(MT::Entry::status_int('Publish'), 2, 'Publish 2');
is(MT::Entry::status_int('Future'), 4, 'Future 4');

my $author = $entry->author;
isa_ok($author, 'MT::Author');
is($author->name, 'Chuck D', 'name');

## Test category, categories, and is_in_category
my $cat = new MT::Category;
$cat->blog_id($entry->blog_id);
$cat->label('foo');
$cat->description('bar');
$cat->author_id($author->id);
$cat->parent(0);
$cat->save or die "Couldn't save category record 1: " . $cat->errstr;

my $cat2 = new MT::Category;
$cat2->blog_id($entry->blog_id);
$cat2->label('foo2');
$cat2->description('bar2');
$cat2->author_id($author->id);
$cat2->parent(0);
$cat2->save or die "Couldn't save category record 1: " . $cat2->errstr;

my $place = MT::Placement->new;
$place->entry_id($entry->id);
$place->blog_id($entry->blog_id);
$place->category_id($cat->id);
$place->is_primary(1);
$place->save or die "Couldn't save placement record: " . $place->errstr;

my $place2 = MT::Placement->new;
$place2->entry_id($entry->id);
$place2->blog_id($entry->blog_id);
$place2->category_id($cat2->id);
$place2->is_primary(0);
$place2->save or die "Couldn't save placement record: " . $place2->errstr;

$entry->clear_cache;
my $category = $entry->category;
ok ($category, "Primary category " . $category->label . " exists");

my @categories = $entry->categories;
ok(@categories, "Multiple cateogires exist ");

## Test permalink, archive_url, archive_file
is ($entry->permalink, 'http://narnia.na/nana/archives/1978/01/a-rainy-day.html', 'Permalink');
is ($entry->archive_url, 'http://narnia.na/nana/archives/1978/01/a-rainy-day.html', 'Archive URL');
is ($entry->archive_file, '1978/01/a-rainy-day.html', 'Archive file');

## Test comments, comment_count
ok ($entry->comment_count, "Entry comment_count exists");
my @comments = @{$entry->comments};
ok (@comments, "Multiple comments exist");
is ($comments[0]->text, 'Postmodern false consciousness has always been firmly rooted in post-Freudian Lacanian neo-Marxist bojangles. Needless to say, this quickly and asymptotically approches a purpletacular jouissance of etic jumpinmypants.', 'Comment 1');
is ($comments[1]->text, 'Comment reply for comment 11', 'Comment 2');
is ($comments[2]->text, 'Comment reply for comment 1', 'Comment 3');

## Test entry auto-generation
$entry->excerpt('');
is($entry->excerpt, '', 'excerpt empty');
is($entry->get_excerpt, $entry->text . '...', 'get_excerpt');
$blog->words_in_excerpt(3);
$entry->cache_property('blog', undef, $blog);
is($entry->get_excerpt, 'On a drizzly...', 'get_excerpt');
$entry->convert_breaks('textile_2');
$entry->text("Foo _bar_ baz");
is($entry->get_excerpt, 'Foo bar baz...', 'get_excerpt');

## Test TrackBack object generation
$entry->allow_pings(1);
ok($entry->save, 'save');
my $tb = MT::Trackback->load({ entry_id => $entry->id });
isa_ok($tb, 'MT::Trackback');
is($tb->entry_id, $entry->id, 'entry_id');
is($tb->description, $entry->get_excerpt, 'description');
is($tb->title, $entry->title, 'title');
is($tb->url, $entry->permalink, 'url');
is($tb->is_disabled, 0, 'is_disabled');
$entry->allow_pings(0);
ok($entry->save, 'save');
$tb = MT::Trackback->load({ entry_id => $entry->id });
is($tb->is_disabled, 1, 'is_disabled');