Changeset 78

Show
Ignore:
Timestamp:
12/03/09 22:37:48 (4 years ago)
Author:
clinton
Message:

Expand and update i18n tests, tid10737 tid10892 trac23

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/t/htdocs/15-i18n/reverse.asp

    • Property svn:mergeinfo set
    r55 r78  
    1 I[[Name]]: Mungo <br/> 
    2 <%= $Response->i18n('the other way') %> <br/> 
    3 I[[Telephone]]: none <br/> 
     1<% #> -*-cperl-*- 
    42 
    5 <% 
    6   $Response->i18nHandler(sub { return join('', reverse split //, shift); }); 
     3  my $reverser = sub { 
     4     my $txt = shift; 
     5     return join '', reverse split(//, $txt); 
     6  }; 
     7 
     8  $Response->i18nHandler($reverser); 
     9 
    710%> 
    8  
    9 I[[Name]]: Mungo <br/> 
    10 <%= $Response->i18n('the other way') %> <br/> 
    11 I[[Telephone]]: none <br/> 
    12  
     11I[[sseccus-ognum]] 
     12<%= $Response->i18n('sseccus-ognum') %> 
  • trunk/t/lib/MungoTestUtils.pm

    r76 r78  
    8181 
    8282    my $url = $info->{base} . $page . '.asp' . $qs; 
    83  
    84     my $response = GET $url; 
     83    my %opts = %{$info->{request_options} || {}}; 
     84 
     85    my $response = GET $url, %opts; 
    8586  TODO: { 
    8687        local $TODO = $info->{status} == 500 ? 'awaiting fix on trac17' : $TODO; 
     
    138139        $extra_test_hook->($info, $response, $test_count_ref); 
    139140    } 
    140  
    141  
    142  
    143141} 
    144142