Author: dylan
Date: 2005-06-24 21:58:47 -0400 (Fri, 24 Jun 2005)
New Revision: 809
Added:
trunk/perl/server/t/001_entity.t
trunk/perl/server/t/002_avatar.t
trunk/perl/server/t/003_user.t
Removed:
trunk/perl/server/t/001_avatar.t
trunk/perl/server/t/002_user.t
trunk/perl/server/t/003_entity.t
Modified:
trunk/
Log:
[EMAIL PROTECTED]: dylan | 2005-06-23 21:57:11 -0400
re-ordered the tests to be more logical.
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:1162
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:1166
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
Deleted: trunk/perl/server/t/001_avatar.t
===================================================================
--- trunk/perl/server/t/001_avatar.t 2005-06-24 01:55:26 UTC (rev 808)
+++ trunk/perl/server/t/001_avatar.t 2005-06-25 01:58:47 UTC (rev 809)
@@ -1,40 +0,0 @@
-#!/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()');
-
-$ava->grant('&lobby', 'kick', 10);
-my $data = $ava->dump;
-my $ava2 = Haver::Server::Entity::Avatar->load($data);
-is($ava->may('&lobby', 'kick'), $ava2->may('&lobby', 'kick'), "saving/loading
ACLs");
-
-BEGIN {
- package DummyWheel;
- sub new {
- return bless {};
- }
- sub put {
- my ($self, $msg) = @_;
- $self->{msg} = $msg;
- }
- sub msg { shift->{msg} }
-}
Added: trunk/perl/server/t/001_entity.t
===================================================================
--- trunk/perl/server/t/001_entity.t 2005-06-24 01:55:26 UTC (rev 808)
+++ trunk/perl/server/t/001_entity.t 2005-06-25 01:58:47 UTC (rev 809)
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+# vim: set ft=perl:
+
+use Test::More tests => 5;
+BEGIN {
+ use_ok('Haver::Server::Entity');
+};
+
+my $ent = new Haver::Server::Entity (
+ name => 'thing',
+ attr => {
+ foo => "bar",
+ bar => "baz",
+ baz => "quux",
+ },
+);
+
+ok($ent, "avatar object created");
+
+eval {
+ $ent->name("####INVALIDNAME^^^");
+};
+if ($@) {
+ pass("Can't set name to bad thing");
+} else {
+ fail("Set name to bad thing. This is bad");
+}
+is($ent->name, 'thing', "Is the name the same?");
+
+my $data = $ent->dump;
+my $ent2 = Haver::Server::Entity->load($data);
+is_deeply($ent, $ent2, "saving and loading works");
+
Added: trunk/perl/server/t/002_avatar.t
===================================================================
--- trunk/perl/server/t/002_avatar.t 2005-06-24 01:55:26 UTC (rev 808)
+++ trunk/perl/server/t/002_avatar.t 2005-06-25 01:58:47 UTC (rev 809)
@@ -0,0 +1,40 @@
+#!/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()');
+
+$ava->grant('&lobby', 'kick', 10);
+my $data = $ava->dump;
+my $ava2 = Haver::Server::Entity::Avatar->load($data);
+is($ava->may('&lobby', 'kick'), $ava2->may('&lobby', 'kick'), "saving/loading
ACLs");
+
+BEGIN {
+ package DummyWheel;
+ sub new {
+ return bless {};
+ }
+ sub put {
+ my ($self, $msg) = @_;
+ $self->{msg} = $msg;
+ }
+ sub msg { shift->{msg} }
+}
Deleted: trunk/perl/server/t/002_user.t
===================================================================
--- trunk/perl/server/t/002_user.t 2005-06-24 01:55:26 UTC (rev 808)
+++ trunk/perl/server/t/002_user.t 2005-06-25 01:58:47 UTC (rev 809)
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-# vim: set ft=perl:
-
-use Test::More tests => 6;
-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");
Deleted: trunk/perl/server/t/003_entity.t
===================================================================
--- trunk/perl/server/t/003_entity.t 2005-06-24 01:55:26 UTC (rev 808)
+++ trunk/perl/server/t/003_entity.t 2005-06-25 01:58:47 UTC (rev 809)
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-# vim: set ft=perl:
-
-use Test::More tests => 5;
-BEGIN {
- use_ok('Haver::Server::Entity');
-};
-
-my $ent = new Haver::Server::Entity (
- name => 'thing',
- attr => {
- foo => "bar",
- bar => "baz",
- baz => "quux",
- },
-);
-
-ok($ent, "avatar object created");
-
-eval {
- $ent->name("####INVALIDNAME^^^");
-};
-if ($@) {
- pass("Can't set name to bad thing");
-} else {
- fail("Set name to bad thing. This is bad");
-}
-is($ent->name, 'thing', "Is the name the same?");
-
-my $data = $ent->dump;
-my $ent2 = Haver::Server::Entity->load($data);
-is_deeply($ent, $ent2, "saving and loading works");
-
Added: trunk/perl/server/t/003_user.t
===================================================================
--- trunk/perl/server/t/003_user.t 2005-06-24 01:55:26 UTC (rev 808)
+++ trunk/perl/server/t/003_user.t 2005-06-25 01:58:47 UTC (rev 809)
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+# vim: set ft=perl:
+
+use Test::More tests => 6;
+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");
