DeforaNetworks/fwknop
DeforaNetworks/fwknop
3
0
Fork 0
Code Releases Activity

[test suite] added 'make test' check for FKO perl module

Browse Source 
All built-in tests in the FKO module must pass for this new test to pass.  This commit
is in support of #103
This commit is contained in:
Michael Rash 2013-08-17 23:51:23 -04:00
parent e8fe29bbe1
commit c271f01d00
2 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test/test-fwknop.pl
View File

@ -1716,6 +1716,33 @@ sub perl_fko_module_compile_install() {
return $rv;
}
sub perl_fko_module_make_test() {
my $test_hr = shift;
my $rv = 1;
my $curr_pwd = cwd() or die $!;
chdir '../perl/FKO' or die $!;
&run_cmd("make test", $cmd_out_tmp, "../../test/$curr_test_file");
chdir $curr_pwd or die $!;
if ($test_hr->{'positive_output_matches'}) {
unless (&file_find_regex(
$test_hr->{'positive_output_matches'},
$MATCH_ALL, $APPEND_RESULTS, $curr_test_file)) {
&write_test_file(
"[-] positive_output_matches not met, setting rv=0\n",
$curr_test_file);
$rv = 0;
}
}
return $rv;
}
sub perl_fko_module_new_object() {
my $test_hr = shift;

9
test/tests/perl_FKO_module.pl
View File

@ -7,6 +7,15 @@
'function' => \&perl_fko_module_compile_install,
'fatal' => $NO
},
{
'category' => 'perl FKO module',
'subcategory' => 'make test',
'detail' => 'run built-in tests',
'function' => \&perl_fko_module_make_test,
'positive_output_matches' => [qr/All\stests\ssuccessful/i],
'fatal' => $NO
},
{
'category' => 'perl FKO module',
'subcategory' => 'FUZZING',