Author: dylan
Date: 2005-06-23 06:34:44 -0400 (Thu, 23 Jun 2005)
New Revision: 804
Added:
trunk/perl/server/t/000_use.t
trunk/perl/server/t/001_avatar.t
trunk/perl/server/t/002_user.t
Removed:
trunk/perl/server/t/00_use.t
trunk/perl/server/t/01_entity.t
trunk/perl/server/t/02_user.t
Modified:
trunk/
Log:
[EMAIL PROTECTED]: dylan | 2005-06-23 06:20:32 -0400
renamed tests to follow the convention of haver-core.
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:1151
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:1152
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
Added: trunk/perl/server/t/000_use.t
===================================================================
--- trunk/perl/server/t/000_use.t 2005-06-23 10:34:42 UTC (rev 803)
+++ trunk/perl/server/t/000_use.t 2005-06-23 10:34:44 UTC (rev 804)
@@ -0,0 +1,15 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl Haver-Server.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 1;
+BEGIN { use_ok('Haver::Server') };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+
Property changes on: trunk/perl/server/t/000_use.t
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/perl/server/t/001_avatar.t
===================================================================
--- trunk/perl/server/t/001_avatar.t 2005-06-23 10:34:42 UTC (rev 803)
+++ trunk/perl/server/t/001_avatar.t 2005-06-23 10:34:44 UTC (rev 804)
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+# vim: set ft=perl:
+
+use Test::More tests => 7;
+BEGIN {
+ use_ok('Haver::Server::Entity::Avatar');
+};
+
+my $dummy = new DummyWheel;
+my $ava = new Haver::Server::Entity::Avatar (
+ name => 'smith',
+ wheel => $dummy,
+);
+
+ok($ava, "avatar object created");
+
+$ava->grant('&lobby', 'kick', 10);
+is($ava->may('&lobby', 'kick'), 10, "grant()/may()");
+is($ava->revoke('&lobby', 'kick'), 10, "revoke()");
+ok(!defined($ava->may('&lobby', 'kick')), "revoke()/may()");
+
+$ava->put(['FOO', 'bar', 'baz']);
+is_deeply(['FOO', 'bar', 'baz'], $dummy->msg, 'put()');
+
+BEGIN {
+ package DummyWheel;
+ sub new {
+ return bless {};
+ }
+ sub put {
+ my ($self, $msg) = @_;
+ $self->{msg} = $msg;
+ }
+ sub msg { shift->{msg} }
+}
Added: trunk/perl/server/t/002_user.t
===================================================================
--- trunk/perl/server/t/002_user.t 2005-06-23 10:34:42 UTC (rev 803)
+++ trunk/perl/server/t/002_user.t 2005-06-23 10:34:44 UTC (rev 804)
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+# vim: set ft=perl:
+
+use Test::More tests => 7;
+BEGIN {
+ use_ok('Haver::Server::Entity::User');
+ use_ok('Haver::Server::Entity::Channel');
+};
+
+my $user = new Haver::Server::Entity::User (
+ name => 'bob',
+);
+my $chan = new Haver::Server::Entity::Channel (
+ name => 'lobby',
+);
+
+ok($user, "user object created");
+ok($chan, "channel object created");
+
+$user->join($chan);
+ok($chan->contains('user', $user->name), "user in channel");
+$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");
Deleted: trunk/perl/server/t/00_use.t
===================================================================
--- trunk/perl/server/t/00_use.t 2005-06-23 10:34:42 UTC (rev 803)
+++ trunk/perl/server/t/00_use.t 2005-06-23 10:34:44 UTC (rev 804)
@@ -1,15 +0,0 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl Haver-Server.t'
-
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
-use Test::More tests => 1;
-BEGIN { use_ok('Haver::Server') };
-
-#########################
-
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
-
Deleted: trunk/perl/server/t/01_entity.t
===================================================================
--- trunk/perl/server/t/01_entity.t 2005-06-23 10:34:42 UTC (rev 803)
+++ trunk/perl/server/t/01_entity.t 2005-06-23 10:34:44 UTC (rev 804)
@@ -1,51 +0,0 @@
-#!/usr/bin/perl
-# vim: set ft=perl:
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl Haver-Server.t'
-
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
-use Test::More tests => 16;
-BEGIN {
- use_ok('Haver::Server::Entity');
- use_ok('Haver::Server::Entity::Room');
- use_ok('Haver::Server::Entity::Avatar');
- use_ok('Haver::Server::Entity::User');
-};
-
-my $user = new Haver::Server::Entity::User (
- -id => 'user1',
- -wheel => 'this should be a reference, but eh',
-);
-
-$user->set(name => 'User One');
-is($user->get('name'), 'User One', "User->get()");
-ok($user->has('name'), "User->has()");
-is($user->del('name'), 'User One', "User->del()");
-ok(not($user->has('name')), "not User->has()");
-ok( ! defined $user->del('name'), "not User->del()");
-
-$user->set(name => 'User One');
-$user->set(away => 'AFK!');
-is_deeply(scalar $user->get_many('name', 'away'), ['User One', 'AFK!'],
"User->get_many()");
-
-$user->add_room('foobar');
-ok($user->has_room('foobar'), "has_room()");
-ok($user->remove_room('foobar'), "remove_room()");
-
-$user->add_room('foo');
-$user->add_room('bar');
-$user->add_room('baz');
-is(
- join('--', sort $user->rooms),
- join('--', sort ('foo', 'bar', 'baz')),
- 'rooms()'
-);
-
-$user->grant('&lobby', 'kick', 10);
-is($user->may('&lobby', 'kick'), 10, "grant()/may()");
-is($user->revoke('&lobby', 'kick'), 10, "revoke()");
-ok(!defined($user->may('&lobby', 'kick')), "revoke()/may()");
-
Deleted: trunk/perl/server/t/02_user.t
===================================================================
--- trunk/perl/server/t/02_user.t 2005-06-23 10:34:42 UTC (rev 803)
+++ trunk/perl/server/t/02_user.t 2005-06-23 10:34:44 UTC (rev 804)
@@ -1,35 +0,0 @@
-#!/usr/bin/perl
-# vim: set ft=perl:
-
-use Test::More tests => 7;
-BEGIN {
- use_ok('Haver::Server::Entity::User');
- use_ok('Haver::Server::Entity::Channel');
-};
-
-my $user = new Haver::Server::Entity::User (
- name => 'bob',
-);
-my $chan = new Haver::Server::Entity::Channel (
- name => 'lobby',
-);
-
-ok($user, "user object created");
-ok($chan, "channel object created");
-
-$user->join($chan);
-ok($chan->contains('user', $user->name), "user in channel");
-$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");
