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

insert macros into session config if not defined for testing

Browse source
This commit is contained in:
Colin Kuskie 2006-01-17 22:05:17 +00:00
parent 831f5a36e1
commit 734484f48e
7 changed files with 200 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

27
t/Macro/SettingMacros.t
View file

@ -16,6 +16,7 @@ use WebGUI::Test;
use WebGUI::Macro;
use WebGUI::Session;
use Data::Dumper;
use Macro_Config;
my $session = WebGUI::Test->session;
@ -39,6 +40,8 @@ my @settingMacros = (
},
);
use Test::More; # increment this value for each test you create
##Build a reverse hash of the macro settings in the session var so that
##we can lookup the aliases for each macro.
@ -50,15 +53,14 @@ foreach my $macro ( @settingMacros ) {
++$settingMacros;
if (exists $macroNames{ $macro->{macro} }) {
$macro->{shortcut} = $macroNames{ $macro->{macro} };
$macro->{skip} = 0;
}
else {
$macro->{skip} = 1;
diag("Installing macro $macro->{macro} into config");
Macro_Config::insert_macro($session, $macro->{macro}, $macro->{macro});
$macro->{shortcut} = $macro->{macro};
}
}
use Test::More; # increment this value for each test you create
my $numTests = $settingMacros;
plan tests => $numTests;
@ -66,14 +68,11 @@ plan tests => $numTests;
diag("Planning on running $numTests tests\n");
foreach my $macro ( @settingMacros ) {
SKIP: {
skip("Unable to lookup macro: $macro->{macro}",1) if $macro->{skip};
my ($value) = $session->dbSlave->quickArray(
sprintf "select value from settings where name=%s",
$session->db->quote($macro->{settingKey})
);
my $macroVal = sprintf "^%s();", $macro->{shortcut};
WebGUI::Macro::process($session, \$macroVal);
is($value, $macroVal, sprintf "Testing %s", $macro->{macro});
}
my ($value) = $session->dbSlave->quickArray(
sprintf "select value from settings where name=%s",
$session->db->quote($macro->{settingKey})
);
my $macroVal = sprintf "^%s();", $macro->{shortcut};
WebGUI::Macro::process($session, \$macroVal);
is($value, $macroVal, sprintf "Testing %s", $macro->{macro});
}