Changeset 731

Show
Ignore:
Timestamp:
12/21/05 18:47:52 (3 years ago)
Author:
dom
Message:

Couple of things missing from previous commit.

Location:
trunk
Files:
1 added
2 modified

Legend:

Unmodified
Added
Removed
  • trunk/preferences.cgi

    r730 r731  
    1 #!/usr/local/bin/perl 
     1#!/usr/bin/perl 
    22 
    33use warnings; 
  • trunk/t/13_cookies.t

    r587 r731  
    44use Time::Piece; 
    55use Time::Seconds; 
    6 use Test::More tests => 19; 
     6use Test::More tests => 20; 
    77 
    88eval { OpenGuides::CGI->make_prefs_cookie; }; 
     
    2828    cookie_expires             => "never", 
    2929    track_recent_changes_views => 1, 
     30    display_google_maps => 1 
    3031); 
    3132isa_ok( $cookie, "CGI::Cookie", "->make_prefs_cookie returns a cookie" ); 
     
    6465is( $prefs{cookie_expires}, "never", "...and requested cookie expiry" ); 
    6566ok( $prefs{track_recent_changes_views}, "...and recent changes tracking" ); 
     67is( $prefs{display_google_maps}, 1, "...and Google Maps display preference" ); 
    6668 
    6769# Check that cookie parsing fails nicely if no cookie set. 
     
    6971%prefs = eval { OpenGuides::CGI->get_prefs_from_cookie( config => $config ); }; 
    7072is( $@, "", "->get_prefs_from_cookie doesn't die if no cookie set" ); 
    71 is( keys %prefs, 9, "...and returns nine default values" ); 
     73is( keys %prefs, 10, "...and returns ten default values" );