Changeset 959


Ignore:
Timestamp:
Mar 20, 2007, 5:45:03 PM (15 years ago)
Author:
kake
Message:

Fix up test 70 so it doesn't occasionally fail when writing of test data spans the 1-second boundary.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/t/70_admin_home.t

    r957 r959  
    1111}
    1212
    13 plan tests => 13;
     13plan tests => 12;
    1414
    1515Wiki::Toolkit::Setup::SQLite::setup( { dbname => "t/node.db" } );
     
    5555is( scalar @{$ttvars{'categories'}}, 0, "Right number of categories" );
    5656
    57 is( $ttvars{'nodes'}->[0]->{name}, "Test Page", "Right nodes" );
    58 is( $ttvars{'nodes'}->[1]->{name}, "Test Page 2", "Right nodes" );
     57my @node_names = map { $_->{name}; } @{$ttvars{nodes}};
     58is_deeply( [ sort @node_names ], [ "Test Page", "Test Page 2" ],
     59           "Right nodes" );
    5960is( $ttvars{'locales'}->[0]->{name}, "Bar", "Right locale, right name" );
    6061
Note: See TracChangeset for help on using the changeset viewer.