#!/usr/bin/perl
# $Id$
use strict;
use warnings;

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

use Test::More tests => 64;

use MT;
use MT::Author;
use vars qw( $DB_DIR $T_CFG );

use lib 't/lib', 'extlib', 'lib', '../lib', '../extlib';

use MT::Test qw(:db :data);

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

{
my $author = MT::Author->load({ name => 'Chuck D' });
isa_ok($author, 'MT::Author');
ok($author->is_valid_password('bass'), 'bass is valid');
ok(!$author->is_valid_password('wrong'), 'wrong is invalid');

ok($author->can_create_blog, 'can create blog');
ok($author->can_view_log, 'can view log');
ok($author->can_manage_plugins, 'can manage plugins');

# Superuser Chuck D should have permission to do anything, on any blog
my $perm = $author->blog_perm(1);
ok($perm, "$author->blog_perm(1)") || die;
ok($author->can_edit_entry(1), 'Chuck D can edit entry #1');
ok($author->can_edit_entry(2), 'Chuck D can edit entry #2');
ok($perm->can_comment, 'can_comment');
ok($perm->can_post, 'can_post');
ok($perm->can_create_post, 'can_create_post');
ok($perm->can_publish_post, 'can_publish_post');
ok($perm->can_upload, 'can_upload');
ok($perm->can_edit_all_posts, 'can_edit_all_posts');
ok($perm->can_manage_pages, 'can_manage_pages');
ok($perm->can_edit_templates, 'can_edit_templates');
ok($perm->can_edit_tags, 'can_edit_tags');
ok($perm->can_edit_config, 'can_edit_config');
ok($perm->can_set_publish_paths, 'can_set_publish_paths');
ok($perm->can_rebuild, 'can_rebuild');
ok($perm->can_send_notifications, 'can_send_notifications');
ok($perm->can_edit_categories, 'can_edit_categories');
ok($perm->can_edit_notifications, 'can_edit_notifications');
ok($perm->can_administer_blog, 'can_administer_blog');
ok($perm->can_edit_assets, 'can_edit_assets');
ok($perm->can_save_image_defaults, 'can_save_image_defaults');
ok($perm->can_manage_feedback, 'can_manage_feedback');
}

{
diag('meta field tests');

my $author = MT::Author->load({ name => 'Chuck D' });
ok(eval { $author->widgets(); 1 }, 'Author obj has widgets accessor');
ok(!defined $author->widgets, "Author's widgets are undefined by default");
ok(!defined $author->favorite_blogs, "Author's favorite blogs are undefined by default");

    # same as in MT::CMS::Dashboard, but that's not necessary
    my $default_widgets = {
        'blog_stats' =>
          { param => { tab => 'entry' }, order => 1, set => 'main' },
        'this_is_you-1' => { order => 1, set => 'sidebar' },
        'mt_shortcuts'  => { order => 2, set => 'sidebar' },
        'mt_news'       => { order => 3, set => 'sidebar' },
    };

my $fav_blogs = [1, 7];  # not actually a blog #7, but meh

ok($author->widgets($default_widgets), "Author's widgets can be set");
ok($author->favorite_blogs($fav_blogs), "Author's favorite blogs can be set");
ok($author->save(), "Author with modified widgets can be saved");

require MT::ObjectDriver::Driver::Cache::RAM;
MT::ObjectDriver::Driver::Cache::RAM->clear_cache();

$author = MT::Author->load({ name => 'Chuck D' });

ok($author->widgets, "Modified author has widgets");
is_deeply($author->widgets, $default_widgets, "Author's widgets survived being saved accurately");

ok($author->favorite_blogs, "Modified author has favorite blogs");
is_deeply($author->favorite_blogs, $fav_blogs, "Author's favorite blogs survived being saved accurately");
}

{
my $author = MT::Author->load({ name => 'Bob D' });
$author = MT::Author->load($author->id);  # silly ruse to force caching.... 
isa_ok($author, 'MT::Author');

# Non-superuser Bob D should only have selected permissions
my $perm = $author->blog_perm(1);
ok($perm, "$author->blog_perm(1)") || die;
ok( ! $author->can_create_blog, 'can_create_blog' );
ok( ! $author->can_view_log, 'can_view_log' );
ok( ! $author->can_manage_plugins, 'can manage plugins');
ok( ! $author->can_edit_entry(1), 'Bob D can edit entry #1' );
ok(   $author->can_edit_entry(2), 'Bob D can edit entry #2' );
ok(   $perm->can_post, 'can_post' );
ok(   $perm->can_create_post, 'can_create_post');
ok(   $perm->can_publish_post, 'can_publish_post');
ok(   $perm->can_upload, 'Bob D can *not* upload files' );
ok( ! $perm->can_edit_all_posts, 'Bob D can *not* edit all posts' );
ok( ! $perm->can_manage_pages, 'can_manage_pages');
ok( ! $perm->can_edit_templates, 'Bob D can *not* edit templates' );
ok( ! $perm->can_edit_tags, 'can_edit_tags');
ok( ! $perm->can_edit_config, 'can_edit_config' );
ok( ! $perm->can_set_publish_paths, 'can_set_publish_paths');
ok( ! $perm->can_rebuild, 'can_rebuild' );
ok(   $perm->can_send_notifications, 'Bob D can send notifications' );
ok( ! $perm->can_edit_categories, 'can_edit_categories' );
ok( ! $perm->can_edit_notifications, 'can_edit_notifications' );
ok( ! $perm->can_administer_blog, 'can_administer_blog' );
ok( ! $perm->can_edit_assets, 'can_edit_assets');
ok( ! $perm->can_save_image_defaults, 'can_save_image_defaults');
ok( ! $perm->can_manage_feedback, 'can_manage_feedback');
}