Changeset 13946

Timestamp:

02/11/12 04:20:24 (3 months ago)

Author:

GeorgeClark

Message:

Item11517: Unit test for the admin sudo password

Update to new encoding.

File:

• trunk/UnitTestContrib/test/unit/ClientTests.pm (modified) (3 diffs)

trunk/UnitTestContrib/test/unit/ClientTests.pm

@@ -13 +13 @@
 use Unit::Request();
 use Error qw( :try );
+use Digest::MD5 qw(md5_hex);
 
 my $agent = $Foswiki::cfg{Register}{RegistrationAgentWikiName};
@@ -190 +191 @@
     }
     my $secret = "a big mole on my left buttock";
-    my $crypted = crypt( $secret, "12" );
+
+    # Test new style MD5 hashed password
+    my $crypted = '$1234asdf$' . Digest::MD5::md5_hex( '$1234asdf$' . $secret );
     $Foswiki::cfg{Password} = $crypted;
 
@@ -213 +216 @@
         $this->{session}->{response}->headers()->{Location} );
 
+    # Verify that old crypted password works
+    $crypted = crypt( $secret, "12" );
+    $Foswiki::cfg{Password} = $crypted;
+
+    # SMELL: 8 character truncated password will match.
+    $secret = substr( $secret, 0, 8 );
+
+    $query = Unit::Request->new(
+        {
+            username => [ $Foswiki::cfg{AdminUserLogin} ],
+            password => [$secret],
+            Logon    => [1],
+            skin     => ['none'],
+        }
+    );
+    $query->path_info("/$this->{test_web}/$this->{test_topic}");
+
+    $this->createNewFoswikiSession( undef, $query );
+    $this->{session}->getLoginManager()->login( $query, $this->{session} );
+    $script = $Foswiki::cfg{LoginManager} =~ /Apache/ ? 'viewauth' : 'view';
+    $surly =
+      $this->{session}
+      ->getScriptUrl( 0, $script, $this->{test_web}, $this->{test_topic} );
+    $this->assert_matches( qr/^302/, $this->{session}->{response}->status() );
+    $this->assert_matches( qr/^$surly/,
+        $this->{session}->{response}->headers()->{Location} );
+
     return;
 }