Changeset 731
- Timestamp:
- 12/21/05 18:47:52 (3 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 2 modified
-
preferences.cgi (modified) (1 diff)
-
t/13_cookies.t (modified) (4 diffs)
-
templates/map_index.tt (added)
Legend:
- Unmodified
- Added
- Removed
-
trunk/preferences.cgi
r730 r731 1 #!/usr/ local/bin/perl1 #!/usr/bin/perl 2 2 3 3 use warnings; -
trunk/t/13_cookies.t
r587 r731 4 4 use Time::Piece; 5 5 use Time::Seconds; 6 use Test::More tests => 19;6 use Test::More tests => 20; 7 7 8 8 eval { OpenGuides::CGI->make_prefs_cookie; }; … … 28 28 cookie_expires => "never", 29 29 track_recent_changes_views => 1, 30 display_google_maps => 1 30 31 ); 31 32 isa_ok( $cookie, "CGI::Cookie", "->make_prefs_cookie returns a cookie" ); … … 64 65 is( $prefs{cookie_expires}, "never", "...and requested cookie expiry" ); 65 66 ok( $prefs{track_recent_changes_views}, "...and recent changes tracking" ); 67 is( $prefs{display_google_maps}, 1, "...and Google Maps display preference" ); 66 68 67 69 # Check that cookie parsing fails nicely if no cookie set. … … 69 71 %prefs = eval { OpenGuides::CGI->get_prefs_from_cookie( config => $config ); }; 70 72 is( $@, "", "->get_prefs_from_cookie doesn't die if no cookie set" ); 71 is( keys %prefs, 9, "...and returns ninedefault values" );73 is( keys %prefs, 10, "...and returns ten default values" );
