Changeset 1236 for trunk/t/13_cookies.t

Timestamp:

10/19/08 16:24:04 (3 months ago)

Author:

dom

Message:

Add an admin navbar, to be displayed if the user requests (fixes #261)

Files:

• trunk/t/13_cookies.t (modified) (6 diffs)

trunk/t/13_cookies.t

@@ -4 +4 @@
 use Time::Piece;
 use Time::Seconds;
-use Test::More tests => 27;
+use Test::More tests => 29;
 
 eval { OpenGuides::CGI->make_prefs_cookie; };
@@ -31 +31 @@
     track_recent_changes_views => "rc_pref",
     display_google_maps        => "gm_pref",
+    is_admin                   => "admin_pref",
 );
 isa_ok( $cookie, "CGI::Cookie", "->make_prefs_cookie returns a cookie" );
@@ -69 +70 @@
 is( $prefs{display_google_maps}, "gm_pref",
                                      "...and Google Maps display preference" );
-
+is( $prefs{is_admin}, "admin_pref",
+                                     "...and admin preference" );
 # Now make sure that true/false preferences are taken account of when
 # they're false.
@@ -81 +83 @@
     track_recent_changes_views => 0,
     display_google_maps        => 0,
+    is_admin                   => 0,
 );
 
@@ -93 +96 @@
 ok( !$prefs{track_recent_changes_views}, "...and recent changes prefs" );
 ok( !$prefs{display_google_maps}, "...and Google Maps prefs" );
+ok( !$prefs{is_admin}, "...and admin prefs" );
 
 # Check that cookie parsing fails nicely if no cookie set.
@@ -98 +102 @@
 %prefs = eval { OpenGuides::CGI->get_prefs_from_cookie( config => $config ); };
 is( $@, "", "->get_prefs_from_cookie doesn't die if no cookie set" );
-is( keys %prefs, 10, "...and returns ten default values" );
+is( keys %prefs, 11, "...and returns ten default values" );