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

moving into sub folders

Browse source
This commit is contained in:
JT Smith 2006-01-16 17:29:45 +00:00
parent 175871d7b7
commit dc74b0da8d
6 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/FormGetName.t → t/Form/GetName.t
View file

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

4
t/FormListEquiv.t → t/Form/ListEquiv.t
View file

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

4
t/help_compiled.t → t/Help/compiled.t
View file

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

4
t/help_related.t → t/Help/related.t
View file

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

4
t/help_toc.t → t/Help/toc.t
View file

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

12
t/i18n.t → t/i18n/label.t
View file

@ -1,5 +1,5 @@
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation.
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
@ -10,7 +10,7 @@
# ---- BEGIN DO NOT EDIT ----
use strict;
use lib '../lib';
use lib '../../lib';
use Text::Balanced qw(extract_codeblock);
use Getopt::Long;
use WebGUI::Operation::Help;
@ -75,10 +75,10 @@ diag("Getting Help labels");
#@sqlLabels = getSQLLabels();
diag("Getting subroutine labels");
find(\&label_finder_pm, '../lib/');
find(\&label_finder_pm, '../../lib/');
diag("Getting object labels");
find(\&obj_finder_pm, '../lib/');
find(\&obj_finder_pm, '../../lib/');
diag ("Checking ". scalar(@helpLabels). " help labels");
#diag ("Checking ". scalar(@sqlLabels). " SQL labels");
@ -213,7 +213,7 @@ sub getHelpLabels {
sub getSQLLabels {
my @sqlLabels = ();
foreach my $file (qw/create.sql previousVersion.sql/) {
my $file2 = join '/', '..', 'docs', $file;
my $file2 = join '/', '../..', 'docs', $file;
open my $fh, $file2 or
die "Unable to open $file2: $!\n";
local $/;
@ -243,7 +243,7 @@ sub initialize {
'configFile=s'=>\$configFile
);
exit 1 unless ($configFile);
return WebGUI::Session->open("..",$configFile);
return WebGUI::Session->open("../..",$configFile);
}
sub cleanup {