Ignore:
Timestamp:
Nov 26, 2004, 12:03:16 PM (17 years ago)
Author:
kake
Message:

Pull out common testing code into OpenGuides::Test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/t/33_supersearch_advanced_search_utm.t

    r561 r562  
    33use Config::Tiny;
    44use OpenGuides::SuperSearch;
     5use OpenGuides::Test;
    56use Test::More;
    67
     
    4445
    4546# Write some data.
    46 write_data(
    47             guide      => $guide,
    48             node       => "Crabtree Tavern",
    49             latitude   => 51.482385,
    50             longitude  => -0.221743,
    51             categories => "Pubs",
    52           );
     47OpenGuides::Test->write_data(
     48                              guide      => $guide,
     49                              node       => "Crabtree Tavern",
     50                              latitude   => 51.482385,
     51                              longitude  => -0.221743,
     52                              categories => "Pubs",
     53                            );
    5354
    54 write_data(
    55             guide      => $guide,
    56             node       => "Blue Anchor",
    57             latitude   => 51.489176,
    58             longitude  => -0.229488,
    59             categories => "Pubs",
    60           );
     55OpenGuides::Test->write_data(
     56                              guide      => $guide,
     57                              node       => "Blue Anchor",
     58                              latitude   => 51.489176,
     59                              longitude  => -0.229488,
     60                              categories => "Pubs",
     61                            );
    6162
    62 write_data(
    63             guide      => $guide,
    64             node       => "Star Tavern",
    65             latitude   => 51.498043,
    66             longitude  => -0.154247,
    67             categories => "Pubs",
    68           );
     63OpenGuides::Test->write_data(
     64                              guide      => $guide,
     65                              node       => "Star Tavern",
     66                              latitude   => 51.498043,
     67                              longitude  => -0.154247,
     68                              categories => "Pubs",
     69                            );
    6970
    70 write_data(
    71             guide      => $guide,
    72             node       => "Hammersmith Bridge",
    73             latitude   => 51.488135,
    74             longitude  => -0.228463,
    75           );
     71OpenGuides::Test->write_data(
     72                              guide      => $guide,
     73                              node       => "Hammersmith Bridge",
     74                              latitude   => 51.488135,
     75                              longitude  => -0.228463,
     76                            );
    7677
    7778# Sanity check.
     
    129130is_deeply( \@found, [ "Blue Anchor", "Crabtree Tavern", ],
    130131       "distance search in combination with text search works" );
    131 
    132 
    133 sub write_data {
    134     my %args = @_;
    135    
    136     # Set up CGI parameters ready for a node write.
    137     # Most of these are in here to avoid uninitialised value warnings.
    138     my $q = CGI->new( "" );
    139     $q->param( -name => "content", -value => "foo" );
    140     $q->param( -name => "categories", -value => $args{categories} || "" );
    141     $q->param( -name => "locales", -value => "" );
    142     $q->param( -name => "phone", -value => "" );
    143     $q->param( -name => "fax", -value => "" );
    144     $q->param( -name => "website", -value => "" );
    145     $q->param( -name => "hours_text", -value => "" );
    146     $q->param( -name => "address", -value => "" );
    147     $q->param( -name => "postcode", -value => "" );
    148     $q->param( -name => "map_link", -value => "" );
    149     $q->param( -name => "os_x", -value => $args{os_x} );
    150     $q->param( -name => "os_y", -value => $args{os_y} );
    151     $q->param( -name => "osie_x", -value => $args{osie_x} || "" );
    152     $q->param( -name => "osie_y", -value => $args{osie_y} || "" );
    153     $q->param( -name => "latitude", -value => $args{latitude} || "" );
    154     $q->param( -name => "longitude", -value => $args{longitude} || "" );
    155     $q->param( -name => "username", -value => "Kake" );
    156     $q->param( -name => "comment", -value => "foo" );
    157     $q->param( -name => "edit_type", -value => "Normal edit" );
    158     $ENV{REMOTE_ADDR} = "127.0.0.1";
    159    
    160     $args{guide}->commit_node(
    161                                return_output => 1,
    162                                id => $args{node},
    163                                cgi_obj => $q,
    164                              );
    165 }
Note: See TracChangeset for help on using the changeset viewer.