[Bast-commits] r6090 - trunk/DBIx-Class-EncodedColumn/t
dandv at dev.catalyst.perl.org
dandv at dev.catalyst.perl.org
Fri May 1 15:17:26 GMT 2009
Author: dandv
Date: 2009-05-01 16:17:25 +0100 (Fri, 01 May 2009)
New Revision: 6090
Modified:
trunk/DBIx-Class-EncodedColumn/t/02digest.t
Log:
Normalized indenting to 2 spaces. No code changes
Modified: trunk/DBIx-Class-EncodedColumn/t/02digest.t
===================================================================
--- trunk/DBIx-Class-EncodedColumn/t/02digest.t 2009-05-01 15:14:12 UTC (rev 6089)
+++ trunk/DBIx-Class-EncodedColumn/t/02digest.t 2009-05-01 15:17:25 UTC (rev 6090)
@@ -146,34 +146,34 @@
#6
if ( $pgp_ok ) {
- my $row = $rs->create( {
- dummy_col => 'Dummy Column',
- pgp_col_passphrase => 'Test Encrypted Column with Passphrase',
- pgp_col_key => 'Test Encrypted Column with Key Exchange',
- pgp_col_key_ps => 'Test Encrypted Column with Key Exchange + Pass',
- } );
+ my $row = $rs->create( {
+ dummy_col => 'Dummy Column',
+ pgp_col_passphrase => 'Test Encrypted Column with Passphrase',
+ pgp_col_key => 'Test Encrypted Column with Key Exchange',
+ pgp_col_key_ps => 'Test Encrypted Column with Key Exchange + Pass',
+ } );
- like($row->pgp_col_passphrase, qr/BEGIN PGP MESSAGE/, 'Passphrase encrypted');
- like($row->pgp_col_key, qr/BEGIN PGP MESSAGE/, 'Key encrypted');
- like($row->pgp_col_key_ps, qr/BEGIN PGP MESSAGE/, 'Key+Passphrase encrypted');
+ like($row->pgp_col_passphrase, qr/BEGIN PGP MESSAGE/, 'Passphrase encrypted');
+ like($row->pgp_col_key, qr/BEGIN PGP MESSAGE/, 'Key encrypted');
+ like($row->pgp_col_key_ps, qr/BEGIN PGP MESSAGE/, 'Key+Passphrase encrypted');
- is(
- $row->decrypt_pgp_passphrase('Secret Words'),
- 'Test Encrypted Column with Passphrase',
- 'Passphrase decryption/encryption'
- );
+ is(
+ $row->decrypt_pgp_passphrase('Secret Words'),
+ 'Test Encrypted Column with Passphrase',
+ 'Passphrase decryption/encryption'
+ );
- is(
- $row->decrypt_pgp_key,
- 'Test Encrypted Column with Key Exchange',
- 'Key Exchange decryption/encryption'
- );
+ is(
+ $row->decrypt_pgp_key,
+ 'Test Encrypted Column with Key Exchange',
+ 'Key Exchange decryption/encryption'
+ );
- is(
- $row->decrypt_pgp_key_ps('Secret Words'),
- 'Test Encrypted Column with Key Exchange + Pass',
- 'Secured Key Exchange decryption/encryption'
- );
+ is(
+ $row->decrypt_pgp_key_ps('Secret Words'),
+ 'Test Encrypted Column with Key Exchange + Pass',
+ 'Secured Key Exchange decryption/encryption'
+ );
}
@@ -184,4 +184,3 @@
# -- dies_ok tests when using invalid cyphers and encodings
1;
-
More information about the Bast-commits
mailing list