Changeset 993 for branches/cname-collision/t

Timestamp:

01/16/26 11:23:04 (7 days ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Add inexplicably missed 'use strict; use warnings;', declare a couple of
variables, and fix a comparison using the wrong operator.

File:

• branches/cname-collision/t/cname.t (modified) (3 diffs)

branches/cname-collision/t/cname.t

@@ -4 +4 @@
 # Template records mean not all published records are natively present in the DB
 
+use strict;
+use warnings;
+
 use Test::More;
 use Data::Dumper;
@@ -12 +15 @@
 my $dtest = DNSTest::new;
 
-my $code,$msg;
+my ($code,$msg);
 my $rectype = 5;
 my $newname;
 my $newval;
+my $expirystamp;
+my $rcount;
 
 
@@ -238 +243 @@
         my ($oldstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 4 AND host = '$newname' ".
                 "AND stampactive = 't' AND expires = 'f'");
-        ok( $newstamp == $oldstamp, " ... coerced timestamp matches existing active-after timestamp" );
+        ok( $newstamp eq $oldstamp, " ... coerced timestamp matches existing active-after timestamp" );
       } else {
         print "not ok: $msg";