cvsuser 04/02/09 14:04:58
Modified: App-Context/t App.t Conf.t Service.t Session.t app.ini
app.properties app.xml
Log:
cleaned up test cases
Revision Changes Path
1.4 +1 -1 p5ee/App-Context/t/App.t
Index: App.t
===================================================================
RCS file: /cvs/public/p5ee/App-Context/t/App.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- App.t 19 May 2003 17:41:12 -0000 1.3
+++ App.t 9 Feb 2004 22:04:57 -0000 1.4
@@ -11,7 +11,7 @@
use strict;
my ($conf, $config, $file, $dir, $w);
-#$App::DEBUG = 6;
+#$App::trace_subs = 1;
$dir = ".";
$dir = "t" if (! -f "app.pl");
1.4 +2 -2 p5ee/App-Context/t/Conf.t
Index: Conf.t
===================================================================
RCS file: /cvs/public/p5ee/App-Context/t/Conf.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- Conf.t 19 May 2003 17:41:12 -0000 1.3
+++ Conf.t 9 Feb 2004 22:04:57 -0000 1.4
@@ -10,12 +10,12 @@
}
my ($conf, $config, $file, $dir);
-#$App::DEBUG = 1;
+#$App::trace_subs = 1;
$dir = ".";
$dir = "t" if (! -f "app.pl");
$conf = do "$dir/app.pl";
-$config = App->conf(cong => $conf);
+$config = App->conf(conf => $conf);
ok(defined $config, "constructor ok");
isa_ok($config, "App::Conf", "right class");
1.4 +1 -2 p5ee/App-Context/t/Service.t
Index: Service.t
===================================================================
RCS file: /cvs/public/p5ee/App-Context/t/Service.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- Service.t 19 May 2003 17:41:12 -0000 1.3
+++ Service.t 9 Feb 2004 22:04:57 -0000 1.4
@@ -9,7 +9,6 @@
}
my ($context);
-#$App::DEBUG = 1;
$context = App->context(
conf_file => "",
@@ -27,7 +26,7 @@
isa_ok($service, "App::Service", "right class");
is($service->service_type(), "Service", "right service type");
$dump = $service->dump();
-ok($dump =~ /^\$Service__default = bless/, "dump");
+ok($dump =~ /^\$Service__default = /, "dump");
exit 0;
1.3 +62 -6 p5ee/App-Context/t/Session.t
Index: Session.t
===================================================================
RCS file: /cvs/public/p5ee/App-Context/t/Session.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- Session.t 22 Mar 2003 04:04:35 -0000 1.2
+++ Session.t 9 Feb 2004 22:04:57 -0000 1.3
@@ -4,18 +4,74 @@
use lib "lib";
use lib "../lib";
+use strict;
+
BEGIN {
use_ok("App");
}
-my ($context);
+{
+ my ($context, $session);
#$App::DEBUG = 1;
-$context = App->context();
+ $context = App->context(
+ #session_class => "App::Session::File",
+ context_class => "App::Context::HTTP",
+ session_class => "App::Session::HTMLHidden",
+ );
$session = $context->session();
-
ok(defined $session, "Session constructor ok");
isa_ok($session, "App::Session", "right class [derived from App::Session]");
+
+ my $pi = 3.1416;
+ my $e = 2.7183;
+ $session->set("num", $pi);
+ is($session->get("num"), $pi, "get what I set ($pi)
as num");
+ is($session->get("default.num"), $pi, "get what I set ($pi)
as default.num");
+ is($session->get("SessionObject.default.num"), $pi, "get what I set ($pi)
as SessionObject.default.num");
+ is($session->get("SessionObject","default","num"), $pi, "get what I set ($pi)
as SessionObject(default).num");
+ is($session->get("x.num"), undef, "get nothing");
+
+ is($session->get("t1num",undef,undef,$pi), $pi, "get default");
+ is($session->get("t1num"), undef, "show that default
didn't get stored");
+ is($session->get("t1num",undef,undef,$pi,1), $pi, "get and set default");
+ is($session->get("t1num"), $pi, "show that default did
get stored");
+ is($session->get("t2.num",undef,undef,$pi), $pi, "get default as
default.num");
+ is($session->get("SessionObject.t3.num",undef,undef,$pi), $pi, "get default as
SessionObject.t3.num");
+ is($session->get("SessionObject","t4","num",$pi), $pi, "get default as
SessionObject(t4).num");
+
+ $session->set("t1num",undef,undef,$e);
+ $session->set("t2.num",undef,undef,$e);
+ $session->set("SessionObject.t3.num",undef,undef,$e);
+ $session->set("SessionObject","t4","num",$e);
+
+ is($session->get("t1num",undef,undef,$pi), $e, "set/get default as num
with unused default");
+ is($session->get("t2.num"), $e, "set/get default as
default.num");
+ is($session->get("SessionObject.t3.num"), $e, "set/get default as
SessionObject.t3.num");
+ is($session->get("SessionObject","t4","num",$pi), $e, "set/get default as
SessionObject(t4).num with unused default");
+
+ $session->set("Serializer", "main.app.toolbar.calc", "width", 50);
+ is($session->get("Serializer.main.app.toolbar.calc.width"), 50, "set/get with
dotted service name");
+ $session->set("Serializer.main.app.toolbar.calc.width", 40);
+ is($session->get("Serializer", "main.app.toolbar.calc", "width"), 40, "set/get
with dotted service name (reverse)");
+
+ $session->set("Serializer", "xyz", "{arr}[1][2]", 50);
+ is($session->get("Serializer.xyz{arr}[1][2]"), 50, "set/get with compound/deep
var");
+ $session->set("Serializer.xyz{arr}[1][2]", 40);
+ is($session->get("Serializer", "xyz", "{arr}[1][2]"), 40, "set/get with
compound/deep var (reverse)");
+
+ $session->set("Serializer", "xyz", "{arr.totals}", 50);
+ is($session->get("Serializer.xyz{arr.totals}"), 50, "set/get with dotted var");
+ $session->set("Serializer.xyz{arr.totals}", 40);
+ is($session->get("Serializer", "xyz", "{arr.totals}"), 40, "set/get with dotted
var (reverse)");
+
+ my $session_id = $session->get_session_id();
+ ok(defined $session_id, "got a defined session id");
+
+ # dump old Context
+ $context = undef;
+ App->shutdown();
+}
exit 0;
1.3 +18 -0 p5ee/App-Context/t/app.ini
Index: app.ini
===================================================================
RCS file: /cvs/public/p5ee/App-Context/t/app.ini,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- app.ini 19 May 2003 17:41:12 -0000 1.2
+++ app.ini 9 Feb 2004 22:04:57 -0000 1.3
@@ -26,3 +26,21 @@
dbuser = dbuser
dbpass = dbuser7
+[Serializer.conf]
+class = App::Serializer::Properties
+
+[Serializer.properties]
+class = App::Serializer::Properties
+
+[Serializer.xml]
+class = App::Serializer::XMLSimple
+
+[Serializer.ini]
+class = App::Serializer::Ini
+
+[Serializer.perl]
+class = App::Serializer::Dumper
+
+[Serializer.stor]
+class = App::Serializer::Storable
+
1.3 +7 -0 p5ee/App-Context/t/app.properties
Index: app.properties
===================================================================
RCS file: /cvs/public/p5ee/App-Context/t/app.properties,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- app.properties 19 May 2003 17:41:12 -0000 1.2
+++ app.properties 9 Feb 2004 22:04:57 -0000 1.3
@@ -26,3 +26,10 @@
# stuff about ResourceLocker.default
ResourceLocker.default.class = App::ResourceLocker::IPCLocker
+Serializer.conf.class = App::Serializer::Properties
+Serializer.properties.class = App::Serializer::Properties
+Serializer.xml.class = App::Serializer::XMLSimple
+Serializer.ini.class = App::Serializer::Ini
+Serializer.perl.class = App::Serializer::Dumper
+Serializer.stor.class = App::Serializer::Storable
+
1.3 +20 -0 p5ee/App-Context/t/app.xml
Index: app.xml
===================================================================
RCS file: /cvs/public/p5ee/App-Context/t/app.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- app.xml 19 May 2003 17:41:12 -0000 1.2
+++ app.xml 9 Feb 2004 22:04:57 -0000 1.3
@@ -30,5 +30,25 @@
<class>App::ResourceLocker::IPCLocker</class>
</default>
</ResourceLocker>
+ <Serializer>
+ <conf>
+ <class>App::Serializer::Properties</class>
+ </conf>
+ <properties>
+ <class>App::Serializer::Properties</class>
+ </properties>
+ <xml>
+ <class>App::Serializer::XMLSimple</class>
+ </xml>
+ <ini>
+ <class>App::Serializer::Ini</class>
+ </ini>
+ <perl>
+ <class>App::Serializer::Dumper</class>
+ </perl>
+ <stor>
+ <class>App::Serializer::Storable</class>
+ </stor>
+ </Serializer>
</conf>
