Changeset 964

Timestamp:

01/07/26 16:44:51 (44 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Tests for CNAME updates in reverse zones
See #72, #88

File:

• branches/cname-collision/t/cname.t (modified) (1 diff)

branches/cname-collision/t/cname.t

@@ -147 +147 @@
   };
 
+  subtest 'CNAME update - non-CNAME to CNAME, non-colliding' => sub {
+    $newval = '192.168.2.15';
+    $newname = '15-29.arpa.example.net';
+    ($code, $msg) = $dnsdb->updateRec('n', 'y', 43, 1, \$newname, \$rectype, \$newval, 900);
+    ok( $code eq 'OK', "updateRec() claimed success" );
+    if ($code eq 'OK') {
+      ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval'");
+      ok( $rcount == 1, " ... [$rcount] yep, IP only occurs once" );
+    } else {
+      print "not ok: $msg\n";
+    }
+  };
+
+  subtest 'CNAME update - non-CNAME to CNAME, colliding' => sub {
+    $newval = '192.168.2.14';
+    $newname = 'arpa14.rev.example.net';
+    ($code, $msg) = $dnsdb->updateRec('n', 'y', 42, 1, \$newname, \$rectype, \$newval, 900);
+    ok( $code eq 'FAIL', "updateRec() claimed failure updating revzone record type to CNAME" );
+    if ($code eq 'FAIL') {
+      ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval' AND type <> 5");
+      ok( $rcount == 2, " ... [$rcount] record(s) with $newval already exist" );
+      like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
+    }
+  };
+
+  subtest 'CNAME update - name to non-colliding name' => sub {
+    $newval = '192.168.2.11';
+    ($code, $msg) = $dnsdb->updateRec('n', 'y', 34, 1, \$newname, \$rectype, \$newval, 900);
+    ok( $code eq 'OK', "updateRec() claimed success updating revzone CNAME \"hostname\" (non-colliding)" );
+    if ($code eq 'OK') {
+      ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval'");
+      ok( $rcount == 1, " ... [$rcount] yep, IP only occurs once" );
+    } else {
+      print "not ok: $msg";
+    }
+  };
+
+  subtest 'CNAME update - name to colliding name' => sub {
+    $newval = '192.168.2.17';
+    ($code, $msg) = $dnsdb->updateRec('n', 'y', 46, 1, \$newname, \$rectype, \$newval, 900);
+    ok( $code eq 'FAIL', "updateRec() claimed failure" );
+    if ($code eq 'FAIL') {
+      ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval' AND type <> 5");
+      ok( $rcount == 1, " ... [$rcount] record(s) with $newval already exist" );
+      like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
+    }
+  };
+
 }; # reverse zone tests