[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