Changeset 940


Ignore:
Timestamp:
Mar 17, 2007, 1:25:40 PM (15 years ago)
Author:
kake
Message:

Let people specify username, comment, and edit_type in OpenGuides::Test->write_data.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides/Test.pm

    r937 r940  
    169169C<categories>, C<locales>, C<os_x>, C<os_y>, C<osie_x>, C<osie_y>,
    170170C<latitude>, C<longitude>, C<summary>, C<node_image>, C<node_image_licence>,
    171 C<node_image_copyright>, C<node_image_url>.  You should supply them exactly
    172 as they would come from a CGI form, eg lines in a textarea are separated
    173 by C<\r\n>.
     171C<node_image_copyright>, C<node_image_url>, C<username>, C<comment>,
     172C<edit_type>.  You should supply them exactly as they would come from a CGI
     173form, eg lines in a textarea are separated by C<\r\n>.
    174174
    175175=cut
     
    205205    $q->param( -name => "longitude", -value => $args{longitude} || "" );
    206206    $q->param( -name => "summary", -value => $args{summary} || "" );
    207     $q->param( -name => "username", -value => "Kake" );
    208     $q->param( -name => "comment", -value => "foo" );
    209     $q->param( -name => "edit_type", -value => "Normal edit" );
     207    $q->param( -name => "username", -value => $args{username} || "TestUser" );
     208    $q->param( -name => "comment", -value => $args{comment} || "A comment." );
     209    $q->param( -name => "edit_type",
     210               -value => $args{edit_type} || "Normal edit" );
    210211    $ENV{REMOTE_ADDR} = "127.0.0.1";
    211212
Note: See TracChangeset for help on using the changeset viewer.