]> eyrie.org Git - kerberos/perl-kerberos.git/commitdiff
Fix test suite coding style issues
authorRuss Allbery <rra@cpan.org>
Wed, 16 Apr 2014 23:56:01 +0000 (16:56 -0700)
committerRuss Allbery <rra@cpan.org>
Wed, 16 Apr 2014 23:56:01 +0000 (16:56 -0700)
Now that the test suite is working again, clean up some coding
style and formatting issues.

t/kadmin/heimdal.t
t/kerberos/authenticate.t

index c63044e3ae9c9ae1fbf39de9838d05bcbd95bcb7..162d5425bf7d8f3a3d5354756bea4e770b750ada 100755 (executable)
@@ -65,7 +65,7 @@ isa_ok($kadmin, 'Authen::Kerberos::Kadmin');
 # Retrieve a known entry.
 my $entry = $kadmin->get('test@TEST.EXAMPLE.COM');
 isa_ok($entry, 'Authen::Kerberos::Kadmin::Entry');
-is($entry->last_password_change, 1393043331, 'Last password change time');
+is($entry->last_password_change, 1_393_043_331, 'Last password change time');
 
 # Test password change.  At the moment, we don't check whether the password
 # change is performed in the database.  We'll do that later.
index 8002dad2ad6a08f6adfcd2f4753b4dc7d54a42d3..b34f6836a2e340bdd12c47fed5f419ff6c3de6c3 100644 (file)
@@ -62,5 +62,5 @@ my $creds = $krb5->authenticate($args);
 isa_ok($creds, 'Authen::Kerberos::Creds', 'Return from authenticate');
 
 # Check whether the credentials look correct.
-is($creds->client->to_string, $principal,              'Creds client');
+is($creds->client->to_string, $principal, 'Creds client');
 is($creds->server->to_string, "krbtgt/$realm\@$realm", 'Creds server');