Changeset 2102 for libswish3/trunk/bindings/perl

Timestamp:

03/26/08 23:52:48 (7 months ago)

Author:

karpet

Message:

test now for unique rather than == 0

Files:

• libswish3/trunk/bindings/perl/t/14-config.t (modified) (3 diffs)

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

@@ -22 +22 @@
-ok( my $properties = $s3->config->get_properties, "get properties" );
-
+my %uniq;
+
-for my $name ( sort @{ $properties->keys } ) {
-
@@ -30 +32 @@
-    #diag( "$name refcount = " . $prop->refcount );
-
-is( $prop->id, 0, "
+ok( !$uniq{ $prop->id }++, "uniq 
-    is( $name, $prop->name, "prop name" );
-}
@@ -36 +38 @@
-ok( my $metanames = $s3->config->get_metanames, "get metanames" );
-
+%uniq = ();
-for my $name ( sort @{ $metanames->keys } ) {
-
-    my $meta = $metanames->get($name);
-
-is( $meta->id, 0, "
+ok( !$uniq{ $meta->id }++, "uniq 
-    is( $name, $meta->name, "meta name" );
-