Changeset 2102

Show
Ignore:
Timestamp:
03/26/08 23:52:48 (2 months ago)
Author:
karpet
Message:

test now for unique rather than == 0

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • libswish3/trunk/bindings/perl/t/14-config.t

    r2045 r2102  
    2222ok( my $properties = $s3->config->get_properties, "get properties" ); 
    2323 
     24my %uniq; 
     25 
    2426for my $name ( sort @{ $properties->keys } ) { 
    2527 
    …… 
    3032    #diag( "$name refcount = " . $prop->refcount ); 
    3133 
    32     is( $prop->id, 0, "prop id" ); 
     34    ok( !$uniq{ $prop->id }++, "uniq prop id" ); 
    3335    is( $name, $prop->name, "prop name" ); 
    3436} 
    …… 
    3638ok( my $metanames = $s3->config->get_metanames, "get metanames" ); 
    3739 
     40%uniq = (); 
    3841for my $name ( sort @{ $metanames->keys } ) { 
    3942 
    4043    my $meta = $metanames->get($name); 
    4144 
    42     is( $meta->id, 0, "meta id" ); 
     45    ok( !$uniq{ $meta->id }++, "uniq meta id" ); 
    4346    is( $name, $meta->name, "meta name" ); 
    4447