Changeset 240:d7613fb27e8f for t/00db.t

Timestamp:

07/27/08 23:28:53 (4 years ago)

Author:

Anselm Lingnau <anselm@…>

Branch:

default

Message:

Treat addresses "modulo capitalisation" when retrieving from the database.

Files:

• t/00db.t (modified) (2 diffs)

t/00db.t

@@ -1 +1 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 186;
+use Test::More tests => 196;
 use Test::DatabaseRow;
 use Test::Exception;
@@ -317 +317 @@
 
 can_ok($db, 'get_address_options');
-foreach my $i (0 .. $#options) {
-    $db->set_address_options($address, { $options[$i] => 1 });
-    my $opts;
-    $ref->{$options[$i]} = 1;
-    ok( $opts = $db->get_address_options($address), "getting address options" );
-    is_deeply($opts, $ref, "option $options[$i] set");
-    $db->set_address_options($address, { $options[$i] => 0 });
-    $ref->{$options[$i]} = 0;
+foreach my $a ($address, ucfirst($address)) {
+    foreach my $i (0 .. $#options) {
+        $db->set_address_options($a, { $options[$i] => 1 });
+        my $opts;
+        $ref->{$options[$i]} = 1;
+        ok( $opts = $db->get_address_options($a), "getting address options" );
+        is_deeply($opts, $ref, "option $options[$i] set");
+        $db->set_address_options($a, { $options[$i] => 0 });
+        $ref->{$options[$i]} = 0;
+    }
 }