Changeset 2457

Show
Ignore:
Timestamp:
05/29/08 08:14:16 (21 months ago)
Author:
fumiakiy
Message:

Updated a test case a bit to be flexible to configuration setting.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/release-39/t/41-atom.t

    r2441 r2457  
    166166                $_->rel eq 'replies' 
    167167            } $entry->links; 
    168             $failed = 1, last unless $replies; 
     168            $failed = 2, last unless $replies; 
    169169            my $replies_uri = new URI($replies->href); 
    170             $failed = 1, last unless $replies_uri->path eq '/mt-atom.cgi/comments/blog_id=1/entry_id='.$mt_entry->id; 
     170            my $cmt_url = '/mt-atom.cgi/comments/blog_id=1/entry_id='.$mt_entry->id; 
     171            $failed = 3, last unless $replies_uri->path =~ m|${cmt_url}$|; 
    171172        } 
    172173        is($failed, 0, 'all the entries have replies link rel');