Author: dylan
Date: 2005-06-23 21:55:26 -0400 (Thu, 23 Jun 2005)
New Revision: 808
Modified:
trunk/
trunk/perl/server/t/004_store.t
Log:
[EMAIL PROTECTED]: dylan | 2005-06-23 21:55:12 -0400
verified test case, removed debugging prints from rmtree().
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:1161
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:1162
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
Modified: trunk/perl/server/t/004_store.t
===================================================================
--- trunk/perl/server/t/004_store.t 2005-06-24 01:55:23 UTC (rev 807)
+++ trunk/perl/server/t/004_store.t 2005-06-24 01:55:26 UTC (rev 808)
@@ -30,12 +30,12 @@
ok($store, "create store object");
$store->insert($user);
-ok(-e 't/user/bobby', "save user to store");
+ok(-e file('user/bobby'), "save user to store");
my $user2 = $store->fetch('user', 'bobby');
is_deeply($user, $user2, "load user");
$store->insert($chan);
-ok(-e 't/channel/lobby', "save channel to store");
+ok(-e file('channel/lobby'), "save channel to store");
my $chan2 = $store->fetch('channel', 'lobby');
is_deeply($chan, $chan2, "load channel");
@@ -48,3 +48,7 @@
ok(not(-e 't/channel/lobby'), "delete channel from store");
rmtree(STORE_DIR, 0);
+
+sub file {
+ join('/', STORE_DIR, shift);
+}