[haver-commits] r803 - in trunk: . perl/server/t

[haver]

Author: dylan
Date: 2005-06-23 06:34:42 -0400 (Thu, 23 Jun 2005)
New Revision: 803

Modified:
   trunk/
   trunk/perl/server/t/02_user.t
Log:
 [EMAIL PROTECTED]:  dylan | 2005-06-23 06:19:56 -0400
 test saving and loading.



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1150
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1151
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/perl/server/t/02_user.t
===================================================================
--- trunk/perl/server/t/02_user.t       2005-06-23 10:34:38 UTC (rev 802)
+++ trunk/perl/server/t/02_user.t       2005-06-23 10:34:42 UTC (rev 803)
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # vim: set ft=perl:
 
-use Test::More tests => 6;
+use Test::More tests => 7;
 BEGIN { 
     use_ok('Haver::Server::Entity::User');
     use_ok('Haver::Server::Entity::Channel');
@@ -22,4 +22,14 @@
 $user->part($chan);
 ok(not($chan->contains('user', $user->name)), "user not in channel");
 
+$user->grant('&lobby', 'kick');
+$user->attr->{away} = "I'm afk, taking over the world";
 
+my $data = $user->save;
+my $user2 = new Haver::Server::Entity::User;
+$user2->load($data);
+$user2->join($chan);
+$user2->part($chan);
+
+
+is_deeply($user, $user2, "saving/loading users");