oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

moved some things into sub folders

Browse source
This commit is contained in:
JT Smith 2006-01-16 15:42:24 +00:00
parent cbaacde6ba
commit 4ecdd5022b
7 changed files with 15 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Session_DateTime.t → t/Session/DateTime.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
# ---- END DO NOT EDIT ---- # ---- END DO NOT EDIT ----
@ -57,7 +57,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {
my $session = shift; my $session = shift;

4
t/Session_Env.t → t/Session/Env.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
# ---- END DO NOT EDIT ---- # ---- END DO NOT EDIT ----
@ -34,7 +34,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {

4
t/Session_Id.t → t/Session/Id.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
# ---- END DO NOT EDIT ---- # ---- END DO NOT EDIT ----
@ -46,7 +46,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {

4
t/Session_Os.t → t/Session/Os.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
# ---- END DO NOT EDIT ---- # ---- END DO NOT EDIT ----
@ -35,7 +35,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {

4
t/Session_Setting.t → t/Session/Setting.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
# ---- END DO NOT EDIT ---- # ---- END DO NOT EDIT ----
@ -39,7 +39,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {
my $session = shift; my $session = shift;

7
t/Session_Stow.t → t/Session/Stow.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
# ---- END DO NOT EDIT ---- # ---- END DO NOT EDIT ----
@ -19,9 +19,8 @@ use Test::More tests => 22; # increment this value for each test you create
my $session = initialize(); # this line is required my $session = initialize(); # this line is required
# put your tests here # put your tests here
use WebGUI::Session::Stow;
my $stow = WebGUI::Session::Stow->new($session); my $stow = $session->stow;
my $count = 0; my $count = 0;
my $maxCount = 20; my $maxCount = 20;
@ -48,7 +47,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {
my $session = shift; my $session = shift;

6
t/Session_Var.t → t/Session/Var.t
View file

@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ---- # ---- BEGIN DO NOT EDIT ----
use strict; use strict;
use lib '../lib'; use lib '../../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Session; use WebGUI::Session;
# ---- END DO NOT EDIT ---- # ---- END DO NOT EDIT ----
@ -18,8 +18,6 @@ use Test::More tests => 6; # increment this value for each test you create
my $session = initialize(); # this line is required my $session = initialize(); # this line is required
# put your tests here
use WebGUI::Session::Var;
ok($session->var->getId ne "", "getId()"); ok($session->var->getId ne "", "getId()");
ok($session->var->get("lastPageView") > 0, "get()"); ok($session->var->get("lastPageView") > 0, "get()");
@ -44,7 +42,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); my $session = WebGUI::Session->open("../..",$configFile);
} }
sub cleanup { sub cleanup {
my $session = shift; my $session = shift;