Changeset 2001

Show
Ignore:
Timestamp:
12/18/07 00:14:32 (5 months ago)
Author:
joshr
Message:

bugfix for recent versions of perl.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • Swishetest/trunk/t/030-C030-medsm-xml.t

    r2000 r2001  
    4949 
    5050            # first three tests: did the indexing seem to work? 
    51             cmp_ok( scalar(%out),     '>',          0,      "Indexing output" );  
     51            cmp_ok( scalar(keys(%out)), '>',        0,      "Indexing output" );  
    5252            cmp_ok( $out{files},      '==', scalar(@$words), 'files indexed' ); 
    5353            cmp_ok( $out{properties}, '==',         5,      'num properties' );