Changeset 1927 for branches/release-35/t/22-author.t

Timestamp:

04/16/08 15:36:30 (20 months ago)

Author:

mpaschal

Message:

Land the new implementation of metadata based on narrow tables
BugzID: 68749

Files:

• branches/release-35/t/22-author.t (modified) (4 diffs)

branches/release-35/t/22-author.t

@@ -8 +8 @@
 use lib 'extlib';
 
-use Test::More tests => 54;
+use Test::More tests => 64;
 
 use MT;
@@ -34 +34 @@
 my $perm = $author->blog_perm(1);
 ok($perm, "$author->blog_perm(1)") || die;
-ok($author->can_edit_entry(1), 'can_edit_entry(1)');
-ok($author->can_edit_entry(2), 'can_edit_entry(2)');
+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');
@@ -58 +58 @@
 
 {
+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.... 
@@ -68 +103 @@
 ok( ! $author->can_view_log, 'can_view_log' );
 ok( ! $author->can_manage_plugins, 'can manage plugins');
-ok( ! $author->can_edit_entry(1), 'can_edit_entry(1)' );
-ok(   $author->can_edit_entry(2), 'can_edit_entry(2)' );
+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, 'can_upload' );
-ok( ! $perm->can_edit_all_posts, 'can_edit_all_posts' );
+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, 'can_edit_templates' );
+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, 'can_send_notifications' );
+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' );