[livejournal] r23483: LJSUP-14164: Unit tests infrastructure

LJSUP-14164: Unit tests infrastructure

U   trunk/cgi-bin/LJ/Test.pm

Modified: trunk/cgi-bin/LJ/Test.pm
===================================================================
--- trunk/cgi-bin/LJ/Test.pm	2012-12-19 11:48:26 UTC (rev 23482)
+++ trunk/cgi-bin/LJ/Test.pm	2012-12-19 12:01:56 UTC (rev 23483)
@@ -145,6 +145,12 @@
     # some hooks override this, so let's switch it back
     LJ::update_user( $u, { 'caps' => $opts{'caps'} } );
 
+    # props
+    my $props = delete $opts{props} || {};
+    while (my($k,$v) = each %$props){
+        $u->set_prop($k, $v);
+    }
+    
     if ($VERBOSE) {
         warn "created user $opts{'user'}\n";
     }