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

update to work with session API

Browse source
This commit is contained in:
Colin Kuskie 2006-01-16 00:55:49 +00:00
parent 6d9ed4b3cd
commit 6288d5b822
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/mandatory_template_vars.t
View file

@ -13,6 +13,7 @@ use strict;
use lib '../lib'; use lib '../lib';
use Getopt::Long; use Getopt::Long;
use WebGUI::Asset; use WebGUI::Asset;
use WebGUI::Session;
use File::Find; use File::Find;
# ---- END DO NOT EDIT ---- # ---- END DO NOT EDIT ----
@ -198,7 +199,7 @@ diag("planning on $numTests tests");
foreach my $tmpl ( @tmplVarTable ) { foreach my $tmpl ( @tmplVarTable ) {
my $tmplId = $tmpl->{id}; my $tmplId = $tmpl->{id};
my $tmplAsset = WebGUI::Asset->newByDynamicClass($tmplId); my $tmplAsset = WebGUI::Asset->newByDynamicClass($session, $tmplId);
my $tmplExists = is(ref($tmplAsset), 'WebGUI::Asset::Template', "$tmplId exists"); my $tmplExists = is(ref($tmplAsset), 'WebGUI::Asset::Template', "$tmplId exists");
SKIP: { SKIP: {
skip("$tmplId could not be found", $tmpl->{numTests} ) unless $tmplExists; skip("$tmplId could not be found", $tmpl->{numTests} ) unless $tmplExists;
@ -216,7 +217,7 @@ cleanup($session); # this line is required
# ---- DO NOT EDIT BELOW THIS LINE ----- # ---- DO NOT EDIT BELOW THIS LINE -----
nitialize { sub initialize {
$|=1; # disable output buffering $|=1; # disable output buffering
my $configFile; my $configFile;
GetOptions( GetOptions(