Changeset 2105

Show
Ignore:
Timestamp:
04/25/08 19:56:15 (3 months ago)
Author:
mpaschal
Message:

Update test in light of change to dirification of dashes (revision 2086)
Convert dirify test script to data-driven format

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/release-36/t/13-dirify.t

    r1100 r2105  
    88use lib 'extlib'; 
    99 
    10 use Test::More tests => 7; 
    11  
    1210use MT; 
    1311use MT::Util; 
    1412 
     13my @tests; 
     14BEGIN { 
     15    @tests = ( 
     16        { 
     17            text => 'Siegfried & Roy', 
     18            iso  => 'siegfried_roy', 
     19            utf8 => 'siegfried_roy', 
     20        }, 
     21        { 
     22            text => 'Cauchy-Schwartz Inequality', 
     23            iso  => 'cauchy-schwartz_inequality', 
     24            utf8 => 'cauchy-schwartz_inequality', 
     25        }, 
     26        { 
     27            text => "M\303\272m", 
     28            utf8 => 'mum', 
     29        }, 
     30    ); 
     31} 
     32 
     33use Test::More tests => 5; 
     34 
    1535MT->set_language('en_US'); 
    1636 
    17 is(MT::Util::iso_dirify('Siegfried & Roy'), 
    18                         'siegfried_roy', 
    19                         'siegfried_roy'); 
    20 is(MT::Util::iso_dirify('Cauchy-Schwartz Inequality'), 
    21                         'cauchyschwartz_inequality', 
    22                         'cauchyschwartz_inequality'); 
    23 is(MT::Util::utf8_dirify('Siegfried & Roy'), 
    24                          'siegfried_roy', 
    25                          'siegfried_roy'); 
    26 is(MT::Util::utf8_dirify('Cauchy-Schwartz Inequality'), 
    27                          'cauchyschwartz_inequality', 
    28                          'cauchyschwartz_inequality'); 
    29 is( MT::Util::iso_dirify('Some & Something'),  
    30    MT::Util::utf8_dirify('Some & Something'), 
    31                          'Some & Something'); 
    32 is( MT::Util::iso_dirify('Cauchy-Schwartz Inequality'), 
    33    MT::Util::utf8_dirify('Cauchy-Schwartz Inequality'), 
    34                          'Cauchy-Schwartz Inequality'); 
    35 is(MT::Util::utf8_dirify("M\303\272m"), 'mum', 'mum'); 
     37for my $test (@tests) { 
     38    my ($text, $iso, $utf8) = @{ $test }{qw( text iso utf8 )}; 
     39    is(MT::Util::iso_dirify($text), $iso, "String '$text' iso_dirifies correctly") 
     40        if $iso; 
     41    is(MT::Util::utf8_dirify($text), $utf8, "String '$text' utf8_dirifies correctly") 
     42        if $utf8; 
     43} 
    3644