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/25_write_geo_data.t

    r561 r562  
    33use Config::Tiny;
    44use OpenGuides;
     5use OpenGuides::Test;
    56use Test::More;
    67
     
    5556is( $guide->locator->y_field, "os_y", "correct y field" );
    5657
    57 write_data(
    58             guide      => $guide,
    59             node       => "Crabtree Tavern",
    60             os_x       => 523465,
    61             os_y       => 177490,
    62             categories => "Pubs",
    63           );
     58OpenGuides::Test->write_data(
     59                              guide      => $guide,
     60                              node       => "Crabtree Tavern",
     61                              os_x       => 523465,
     62                              os_y       => 177490,
     63                              categories => "Pubs",
     64                            );
    6465my %data = $guide->wiki->retrieve_node( "Crabtree Tavern" );
    6566is( $data{metadata}{os_x}[0], 523465,      "os_x stored correctly" );
     
    6869ok( defined $data{metadata}{longitude}[0], "longitude stored" );
    6970
    70 write_data(
    71             guide      => $guide,
    72             node       => "El Sombrero",
    73             latitude   => 51.368,
    74             longitude  => -0.097,
    75             categories => "Restaurants",
    76           );
     71OpenGuides::Test->write_data(
     72                              guide      => $guide,
     73                              node       => "El Sombrero",
     74                              latitude   => 51.368,
     75                              longitude  => -0.097,
     76                              categories => "Restaurants",
     77                            );
    7778%data = $guide->wiki->retrieve_node( "El Sombrero" );
    7879ok( defined $data{metadata}{os_x}[0],      "os_x stored" );
     
    8586eval {
    8687    local $SIG{__WARN__} = sub { die $_[0]; };
    87     write_data(
    88                 guide      => $guide,
    89                 node       => "Locationless Page 1",
    90               );
     88    OpenGuides::Test->write_data(
     89                                  guide      => $guide,
     90                                  node       => "Locationless Page 1",
     91                                );
    9192};
    9293is( $@, "",
     
    106107is( $guide->locator->y_field, "osie_y", "correct y field" );
    107108
    108 write_data(
    109             guide      => $guide,
    110             node       => "I Made This Place Up",
    111             osie_x     => 100000,
    112             osie_y     => 200000,
    113           );
     109OpenGuides::Test->write_data(
     110                              guide      => $guide,
     111                              node       => "I Made This Place Up",
     112                              osie_x     => 100000,
     113                              osie_y     => 200000,
     114                            );
    114115%data = $guide->wiki->retrieve_node( "I Made This Place Up" );
    115116is( $data{metadata}{osie_x}[0], 100000,    "osie_x stored correctly" );
     
    118119ok( defined $data{metadata}{longitude}[0], "longitude stored" );
    119120
    120 write_data(
    121             guide      => $guide,
    122             node       => "Brambles Coffee Shop",
    123             latitude   => 54.6434,
    124             longitude  => -5.6731,
    125           );
     121OpenGuides::Test->write_data(
     122                              guide      => $guide,
     123                              node       => "Brambles Coffee Shop",
     124                              latitude   => 54.6434,
     125                              longitude  => -5.6731,
     126                             );
    126127%data = $guide->wiki->retrieve_node( "Brambles Coffee Shop" );
    127128ok( defined $data{metadata}{osie_x}[0],     "osie_x stored" );
     
    134135eval {
    135136    local $SIG{__WARN__} = sub { die $_[0]; };
    136     write_data(
    137                 guide      => $guide,
    138                 node       => "Locationless Page 2",
    139               );
     137    OpenGuides::Test->write_data(
     138                                  guide      => $guide,
     139                                  node       => "Locationless Page 2",
     140                                );
    140141};
    141142is( $@, "",
     
    156157is( $guide->locator->y_field, "northing", "correct y field" );
    157158
    158 write_data(
    159             guide      => $guide,
    160             node       => "London Aquarium",
    161             latitude   => 51.502,
    162             longitude  => -0.118,
    163           );
     159OpenGuides::Test->write_data(
     160                              guide      => $guide,
     161                              node       => "London Aquarium",
     162                              latitude   => 51.502,
     163                              longitude  => -0.118,
     164                            );
    164165%data = $guide->wiki->retrieve_node( "London Aquarium" );
    165166ok( defined $data{metadata}{easting}[0],       "easting stored" );
     
    172173eval {
    173174    local $SIG{__WARN__} = sub { die $_[0]; };
    174     write_data(
    175                 guide      => $guide,
    176                 node       => "Locationless Page 3",
    177               );
     175    OpenGuides::Test->write_data(
     176                                  guide      => $guide,
     177                                  node       => "Locationless Page 3",
     178                                );
    178179};
    179180is( $@, "",
     
    186187ok( !defined $data{metadata}{osie_x}[0],    "...nor osie_x" );
    187188ok( !defined $data{metadata}{osie_y}[0],    "...nor osie_y" );
    188 
    189 
    190 sub write_data {
    191     my %args = @_;
    192    
    193     # Set up CGI parameters ready for a node write.
    194     # Most of these are in here to avoid uninitialised value warnings.
    195     my $q = CGI->new( "" );
    196     $q->param( -name => "content", -value => "foo" );
    197     $q->param( -name => "categories", -value => $args{categories} || "" );
    198     $q->param( -name => "locales", -value => "" );
    199     $q->param( -name => "phone", -value => "" );
    200     $q->param( -name => "fax", -value => "" );
    201     $q->param( -name => "website", -value => "" );
    202     $q->param( -name => "hours_text", -value => "" );
    203     $q->param( -name => "address", -value => "" );
    204     $q->param( -name => "postcode", -value => "" );
    205     $q->param( -name => "map_link", -value => "" );
    206     $q->param( -name => "os_x", -value => $args{os_x} || "" );
    207     $q->param( -name => "os_y", -value => $args{os_y} || "" );
    208     $q->param( -name => "osie_x", -value => $args{osie_x} || "" );
    209     $q->param( -name => "osie_y", -value => $args{osie_y} || "" );
    210     $q->param( -name => "latitude", -value => $args{latitude} || "" );
    211     $q->param( -name => "longitude", -value => $args{longitude} || "" );
    212     $q->param( -name => "username", -value => "Kake" );
    213     $q->param( -name => "comment", -value => "foo" );
    214     $q->param( -name => "edit_type", -value => "Normal edit" );
    215     $ENV{REMOTE_ADDR} = "127.0.0.1";
    216    
    217     $args{guide}->commit_node(
    218                                return_output => 1,
    219                                id => $args{node},
    220                                cgi_obj => $q,
    221                              );
    222 }
Note: See TracChangeset for help on using the changeset viewer.