[Jifty-commit] r951 - in jifty/trunk: t t/TestApp/t

[jifty-commit at lists.jifty.org]

Author: alexmv
Date: Fri Apr 28 02:06:35 2006
New Revision: 951

Added:
   jifty/trunk/t/TestApp/t/04-sessions.t
Removed:
   jifty/trunk/t/04-sessions.t
Modified:
   jifty/trunk/   (props changed)

Log:
 r12674 at zoq-fot-pik:  chmrr | 2006-04-28 01:59:48 -0400
  * Move session tests into TestApp, in preperation for them needing a database


Added: jifty/trunk/t/TestApp/t/04-sessions.t
==============================================================================
--- (empty file)
+++ jifty/trunk/t/TestApp/t/04-sessions.t	Fri Apr 28 02:06:35 2006
@@ -0,0 +1,37 @@
+#!/usr/bin/perl 
+
+use warnings;
+use strict;
+
+BEGIN {chdir "t/TestApp"}
+use lib '../../lib';
+use Jifty::Test tests => 11;
+
+use_ok('Jifty');
+Jifty->new();
+
+use_ok('Jifty::Web::Session');
+
+my $s = Jifty::Web::Session->new();
+
+isa_ok($s,'Jifty::Web::Session');
+
+$s->load();
+ok($s->loaded);
+is($s->get('foo'), undef);
+$s->set( foo => 'bar');
+is($s->get('foo'), 'bar');
+
+my $id = $s->id;
+$s->unload;
+ok(!$s->loaded);
+
+$s->load();
+ok($s->loaded);
+isnt($s->id, $id);
+is($s->get('foo'), undef);
+
+$s->load($id);
+is($s->get('foo'), 'bar');
+
+1;