Introduced own scripted test framework to replace fct.h and reduce
compile time The new test framework generates a data file parsing engine plus the templated function code. In order to 'understand' defines, during the generation phase, a mapping is made to check for dependencies and result code mappings.
This commit is contained in:
Paul Bakker
parent
1f2bc6238b
commit
1934318dce
6 changed files with 452 additions and 4063 deletions
|
|
@ -20,7 +20,7 @@ function(add_test_suite suite_name)
|
||||||
add_custom_command(
|
add_custom_command(
|
||||||
OUTPUT test_suite_${data_name}.c
|
OUTPUT test_suite_${data_name}.c
|
||||||
COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/scripts/generate_code.pl ${CMAKE_CURRENT_SOURCE_DIR}/suites test_suite_${suite_name} test_suite_${data_name}
|
COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/scripts/generate_code.pl ${CMAKE_CURRENT_SOURCE_DIR}/suites test_suite_${suite_name} test_suite_${data_name}
|
||||||
DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/scripts/generate_code.pl polarssl fct.h suites/helpers.function suites/test_suite_${suite_name}.function suites/test_suite_${data_name}.data
|
DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/scripts/generate_code.pl polarssl suites/helpers.function suites/main_test.function suites/test_suite_${suite_name}.function suites/test_suite_${data_name}.data
|
||||||
)
|
)
|
||||||
|
|
||||||
include_directories(${CMAKE_CURRENT_SOURCE_DIR})
|
include_directories(${CMAKE_CURRENT_SOURCE_DIR})
|
||||||
|
|
|
||||||
|
|
@ -54,71 +54,71 @@ APPS = test_suite_aes.ecb test_suite_aes.cbc \
|
||||||
|
|
||||||
all: $(APPS)
|
all: $(APPS)
|
||||||
|
|
||||||
test_suite_aes.ecb.c : suites/test_suite_aes.function suites/test_suite_aes.ecb.data scripts/generate_code.pl suites/helpers.function
|
test_suite_aes.ecb.c : suites/test_suite_aes.function suites/test_suite_aes.ecb.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_aes test_suite_aes.ecb
|
scripts/generate_code.pl suites test_suite_aes test_suite_aes.ecb
|
||||||
|
|
||||||
test_suite_aes.cbc.c : suites/test_suite_aes.function suites/test_suite_aes.cbc.data scripts/generate_code.pl suites/helpers.function
|
test_suite_aes.cbc.c : suites/test_suite_aes.function suites/test_suite_aes.cbc.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_aes test_suite_aes.cbc
|
scripts/generate_code.pl suites test_suite_aes test_suite_aes.cbc
|
||||||
|
|
||||||
test_suite_aes.cfb.c : suites/test_suite_aes.function suites/test_suite_aes.cfb.data scripts/generate_code.pl suites/helpers.function
|
test_suite_aes.cfb.c : suites/test_suite_aes.function suites/test_suite_aes.cfb.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_aes test_suite_aes.cfb
|
scripts/generate_code.pl suites test_suite_aes test_suite_aes.cfb
|
||||||
|
|
||||||
test_suite_aes.rest.c : suites/test_suite_aes.function suites/test_suite_aes.rest.data scripts/generate_code.pl suites/helpers.function
|
test_suite_aes.rest.c : suites/test_suite_aes.function suites/test_suite_aes.rest.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_aes test_suite_aes.rest
|
scripts/generate_code.pl suites test_suite_aes test_suite_aes.rest
|
||||||
|
|
||||||
test_suite_cipher.aes.c : suites/test_suite_cipher.function suites/test_suite_cipher.aes.data scripts/generate_code.pl suites/helpers.function
|
test_suite_cipher.aes.c : suites/test_suite_cipher.function suites/test_suite_cipher.aes.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.aes
|
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.aes
|
||||||
|
|
||||||
test_suite_cipher.blowfish.c : suites/test_suite_cipher.function suites/test_suite_cipher.blowfish.data scripts/generate_code.pl suites/helpers.function
|
test_suite_cipher.blowfish.c : suites/test_suite_cipher.function suites/test_suite_cipher.blowfish.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.blowfish
|
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.blowfish
|
||||||
|
|
||||||
test_suite_cipher.camellia.c : suites/test_suite_cipher.function suites/test_suite_cipher.camellia.data scripts/generate_code.pl suites/helpers.function
|
test_suite_cipher.camellia.c : suites/test_suite_cipher.function suites/test_suite_cipher.camellia.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.camellia
|
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.camellia
|
||||||
|
|
||||||
test_suite_cipher.des.c : suites/test_suite_cipher.function suites/test_suite_cipher.des.data scripts/generate_code.pl suites/helpers.function
|
test_suite_cipher.des.c : suites/test_suite_cipher.function suites/test_suite_cipher.des.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.des
|
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.des
|
||||||
|
|
||||||
test_suite_cipher.null.c : suites/test_suite_cipher.function suites/test_suite_cipher.null.data scripts/generate_code.pl suites/helpers.function
|
test_suite_cipher.null.c : suites/test_suite_cipher.function suites/test_suite_cipher.null.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.null
|
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.null
|
||||||
|
|
||||||
test_suite_cipher.padding.c : suites/test_suite_cipher.function suites/test_suite_cipher.padding.data scripts/generate_code.pl suites/helpers.function
|
test_suite_cipher.padding.c : suites/test_suite_cipher.function suites/test_suite_cipher.padding.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.padding
|
scripts/generate_code.pl suites test_suite_cipher test_suite_cipher.padding
|
||||||
|
|
||||||
test_suite_gcm.decrypt_128.c : suites/test_suite_gcm.function suites/test_suite_gcm.decrypt_128.data scripts/generate_code.pl suites/helpers.function
|
test_suite_gcm.decrypt_128.c : suites/test_suite_gcm.function suites/test_suite_gcm.decrypt_128.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.decrypt_128
|
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.decrypt_128
|
||||||
|
|
||||||
test_suite_gcm.decrypt_192.c : suites/test_suite_gcm.function suites/test_suite_gcm.decrypt_192.data scripts/generate_code.pl suites/helpers.function
|
test_suite_gcm.decrypt_192.c : suites/test_suite_gcm.function suites/test_suite_gcm.decrypt_192.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.decrypt_192
|
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.decrypt_192
|
||||||
|
|
||||||
test_suite_gcm.decrypt_256.c : suites/test_suite_gcm.function suites/test_suite_gcm.decrypt_256.data scripts/generate_code.pl suites/helpers.function
|
test_suite_gcm.decrypt_256.c : suites/test_suite_gcm.function suites/test_suite_gcm.decrypt_256.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.decrypt_256
|
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.decrypt_256
|
||||||
|
|
||||||
test_suite_gcm.encrypt_128.c : suites/test_suite_gcm.function suites/test_suite_gcm.encrypt_128.data scripts/generate_code.pl suites/helpers.function
|
test_suite_gcm.encrypt_128.c : suites/test_suite_gcm.function suites/test_suite_gcm.encrypt_128.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.encrypt_128
|
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.encrypt_128
|
||||||
|
|
||||||
test_suite_gcm.encrypt_192.c : suites/test_suite_gcm.function suites/test_suite_gcm.encrypt_192.data scripts/generate_code.pl suites/helpers.function
|
test_suite_gcm.encrypt_192.c : suites/test_suite_gcm.function suites/test_suite_gcm.encrypt_192.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.encrypt_192
|
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.encrypt_192
|
||||||
|
|
||||||
test_suite_gcm.encrypt_256.c : suites/test_suite_gcm.function suites/test_suite_gcm.encrypt_256.data scripts/generate_code.pl suites/helpers.function
|
test_suite_gcm.encrypt_256.c : suites/test_suite_gcm.function suites/test_suite_gcm.encrypt_256.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.encrypt_256
|
scripts/generate_code.pl suites test_suite_gcm test_suite_gcm.encrypt_256
|
||||||
|
|
||||||
%.c : suites/%.function suites/%.data scripts/generate_code.pl suites/helpers.function
|
%.c : suites/%.function suites/%.data scripts/generate_code.pl suites/helpers.function suites/main_test.function
|
||||||
echo " Generate $@"
|
echo " Generate $@"
|
||||||
scripts/generate_code.pl suites $* $*
|
scripts/generate_code.pl suites $* $*
|
||||||
|
|
||||||
|
|
|
||||||
3959
tests/fct.h
3959
tests/fct.h
File diff suppressed because it is too large
Load diff
|
|
@ -9,9 +9,8 @@ my $data_name = shift or die "Missing data name";
|
||||||
my $test_file = $data_name.".c";
|
my $test_file = $data_name.".c";
|
||||||
my $test_helper_file = $suite_dir."/helpers.function";
|
my $test_helper_file = $suite_dir."/helpers.function";
|
||||||
my $test_case_file = $suite_dir."/".$suite_name.".function";
|
my $test_case_file = $suite_dir."/".$suite_name.".function";
|
||||||
my $test_data_file = $suite_dir."/".$data_name.".data";
|
my $test_case_data = $suite_dir."/".$data_name.".data";
|
||||||
|
my $test_main_file = $suite_dir."/main_test.function";
|
||||||
open(TEST_DATA, "$test_data_file") or die "Opening test cases '$test_data_file': $!";
|
|
||||||
|
|
||||||
my $line_separator = $/;
|
my $line_separator = $/;
|
||||||
undef $/;
|
undef $/;
|
||||||
|
|
@ -20,9 +19,18 @@ open(TEST_HELPERS, "$test_helper_file") or die "Opening test helpers '$test_help
|
||||||
my $test_helpers = <TEST_HELPERS>;
|
my $test_helpers = <TEST_HELPERS>;
|
||||||
close(TEST_HELPERS);
|
close(TEST_HELPERS);
|
||||||
|
|
||||||
|
open(TEST_MAIN, "$test_main_file") or die "Opening test main '$test_main_file': $!";
|
||||||
|
my $test_main = <TEST_MAIN>;
|
||||||
|
close(TEST_MAIN);
|
||||||
|
|
||||||
open(TEST_CASES, "$test_case_file") or die "Opening test cases '$test_case_file': $!";
|
open(TEST_CASES, "$test_case_file") or die "Opening test cases '$test_case_file': $!";
|
||||||
my $test_cases = <TEST_CASES>;
|
my $test_cases = <TEST_CASES>;
|
||||||
close(TEST_CASES);
|
close(TEST_CASES);
|
||||||
|
|
||||||
|
open(TEST_DATA, "$test_case_data") or die "Opening test data '$test_case_data': $!";
|
||||||
|
my $test_data = <TEST_DATA>;
|
||||||
|
close(TEST_DATA);
|
||||||
|
|
||||||
my ( $suite_header ) = $test_cases =~ /BEGIN_HEADER\n(.*?)\nEND_HEADER/s;
|
my ( $suite_header ) = $test_cases =~ /BEGIN_HEADER\n(.*?)\nEND_HEADER/s;
|
||||||
my ( $suite_defines ) = $test_cases =~ /BEGIN_DEPENDENCIES\n(.*?)\nEND_DEPENDENCIES/s;
|
my ( $suite_defines ) = $test_cases =~ /BEGIN_DEPENDENCIES\n(.*?)\nEND_DEPENDENCIES/s;
|
||||||
|
|
||||||
|
|
@ -35,6 +43,9 @@ if ($suite_defines =~ /^depends_on:/)
|
||||||
my @var_req_arr = split(/:/, $requirements);
|
my @var_req_arr = split(/:/, $requirements);
|
||||||
my $suite_pre_code;
|
my $suite_pre_code;
|
||||||
my $suite_post_code;
|
my $suite_post_code;
|
||||||
|
my $dispatch_code;
|
||||||
|
my $mapping_code;
|
||||||
|
my %mapping_values;
|
||||||
|
|
||||||
while (@var_req_arr)
|
while (@var_req_arr)
|
||||||
{
|
{
|
||||||
|
|
@ -48,114 +59,164 @@ $/ = $line_separator;
|
||||||
|
|
||||||
open(TEST_FILE, ">$test_file") or die "Opening destination file '$test_file': $!";
|
open(TEST_FILE, ">$test_file") or die "Opening destination file '$test_file': $!";
|
||||||
print TEST_FILE << "END";
|
print TEST_FILE << "END";
|
||||||
#include "fct.h"
|
|
||||||
#include <polarssl/config.h>
|
#include <polarssl/config.h>
|
||||||
|
|
||||||
$suite_header
|
$suite_header
|
||||||
|
|
||||||
$test_helpers
|
$test_helpers
|
||||||
|
|
||||||
FCT_BGN()
|
|
||||||
{
|
|
||||||
$suite_pre_code
|
$suite_pre_code
|
||||||
|
|
||||||
#if defined(POLARSSL_MEMORY_BUFFER_ALLOC_C)
|
|
||||||
unsigned char buf[1000000];
|
|
||||||
memory_buffer_alloc_init( buf, sizeof(buf) );
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
FCT_SUITE_BGN($suite_name)
|
|
||||||
{
|
|
||||||
END
|
END
|
||||||
|
|
||||||
while (my $line = <TEST_DATA>)
|
while($test_cases =~ /BEGIN_CASE *([\w:]*)\n(\w+):([^\n]*)\n\{\n(.*?)\}\nEND_CASE/sg)
|
||||||
{
|
{
|
||||||
my $description = $line;
|
my $function_deps = $1;
|
||||||
$line = <TEST_DATA>;
|
my $function_name = $2;
|
||||||
|
my $function_params = $3;
|
||||||
|
my $function_code = $4;
|
||||||
|
my $function_pre_code;
|
||||||
|
my $function_post_code;
|
||||||
|
my @param_decl;
|
||||||
|
my $param_defs;
|
||||||
|
my $param_checks;
|
||||||
|
my @dispatch_params;
|
||||||
|
my @var_def_arr = split(/:/, $function_params);
|
||||||
|
my $i = 1;
|
||||||
|
my $mapping_regex = "".$function_name;
|
||||||
|
my $mapping_count = 0;
|
||||||
|
|
||||||
my $test_name = $description;
|
if ($function_deps =~ /^depends_on:/)
|
||||||
$test_name =~ tr/A-Z \-/a-z__/;
|
|
||||||
$test_name =~ tr/a-z0-9_//cd;
|
|
||||||
|
|
||||||
# Carve the defines required for this test case
|
|
||||||
my $requirements;
|
|
||||||
if ($line =~ /^depends_on:/)
|
|
||||||
{
|
{
|
||||||
my $depends_on_line = $line;
|
( $function_deps ) = $function_deps =~ /^depends_on:(.*)$/;
|
||||||
$line = <TEST_DATA>;
|
|
||||||
|
|
||||||
( $requirements ) = $depends_on_line =~ /^depends_on:(.*)$/;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
my @var_req_arr = split(/:/, $requirements);
|
foreach my $req (split(/:/, $function_deps))
|
||||||
my $pre_code;
|
|
||||||
my $post_code;
|
|
||||||
|
|
||||||
while (@var_req_arr)
|
|
||||||
{
|
{
|
||||||
my $req = shift @var_req_arr;
|
$function_pre_code .= "#ifdef $req\n";
|
||||||
|
$function_post_code .= "#endif /* $req */\n";
|
||||||
$pre_code .= "#ifdef $req\n";
|
|
||||||
$post_code .= "#endif /* $req */\n";
|
|
||||||
}
|
}
|
||||||
|
|
||||||
my $command_line = $line;
|
foreach my $def (@var_def_arr)
|
||||||
$line = <TEST_DATA>;
|
|
||||||
|
|
||||||
# Carve the case name and variable values
|
|
||||||
#
|
|
||||||
my ( $case, $var_value ) = $command_line =~ /^([\w_]+):(.*)$/;
|
|
||||||
|
|
||||||
# Escape the escaped colons (Not really escaped now)
|
|
||||||
#
|
|
||||||
$var_value =~ s/\\:/{colon_sign}/g;
|
|
||||||
|
|
||||||
# Carve the case and variable definition
|
|
||||||
#
|
|
||||||
my ( $var_def, $case_code ) = $test_cases =~ /BEGIN_CASE\n$case:([^\n]*)\n(.*?)\nEND_CASE/s;
|
|
||||||
|
|
||||||
my @var_def_arr = split(/:/, $var_def);
|
|
||||||
my @var_value_arr = split(/:/, $var_value);
|
|
||||||
|
|
||||||
while (@var_def_arr)
|
|
||||||
{
|
{
|
||||||
my $def = shift @var_def_arr;
|
# Handle the different parameter types
|
||||||
my $val = shift @var_value_arr;
|
|
||||||
|
|
||||||
$case_code =~ s/\{$def\}/$val/g;
|
if( substr($def, 0, 1) eq "#" )
|
||||||
|
{
|
||||||
|
$param_defs .= " int param$i;\n";
|
||||||
|
$param_checks .= " if( verify_int( params[$i], ¶m$i ) != 0 ) return( 2 );\n";
|
||||||
|
push @dispatch_params, "param$i";
|
||||||
|
$def =~ s/#//;
|
||||||
|
push @param_decl, "int $def";
|
||||||
|
|
||||||
|
$mapping_regex .= ":([\\d\\w |\\+\\-\\(\\)]+)";
|
||||||
|
$mapping_count++;
|
||||||
}
|
}
|
||||||
$case_code = "int ${test_name}_code_present = 0;\nTEST_ASSERT( ${test_name}_code_present == 1 );" if ($case_code =~ /^\s*$/);
|
else
|
||||||
|
{
|
||||||
|
$param_defs .= " char *param$i = params[$i];\n";
|
||||||
|
$param_checks .= " if( verify_string( ¶m$i ) != 0 ) return( 2 );\n";
|
||||||
|
push @dispatch_params, "param$i";
|
||||||
|
push @param_decl, "char *$def";
|
||||||
|
$mapping_regex .= ":[^:]+";
|
||||||
|
}
|
||||||
|
$i++;
|
||||||
|
|
||||||
$case_code =~ s/{colon_sign}/:/g;
|
$function_code =~ s/\{$def\}/$def/g;
|
||||||
$case_code =~ s/TEST_ASSERT/fct_chk/g;
|
}
|
||||||
$case_code =~ s/TEST_EQUALS/fct_chk/g;
|
|
||||||
|
|
||||||
$case_code =~ s/^/ /gm;
|
# Find non-integer values we should map for this function
|
||||||
|
if( $mapping_count)
|
||||||
|
{
|
||||||
|
my @res = $test_data =~ /^$mapping_regex/msg;
|
||||||
|
foreach my $value (@res)
|
||||||
|
{
|
||||||
|
$mapping_values{$value} = 1 if ($value !~ /^\d+$/);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
my $call_params = join ", ", @dispatch_params;
|
||||||
|
my $param_count = @var_def_arr + 1;
|
||||||
|
$dispatch_code .= << "END";
|
||||||
|
if( strcmp( params[0], "$function_name" ) == 0 )
|
||||||
|
{
|
||||||
|
$function_pre_code
|
||||||
|
$param_defs
|
||||||
|
if( cnt != $param_count )
|
||||||
|
{
|
||||||
|
fprintf( stderr, "\\nIncorrect argument count (%d != %d)\\n", cnt, $param_count );
|
||||||
|
return( 2 );
|
||||||
|
}
|
||||||
|
|
||||||
print TEST_FILE << "END";
|
$param_checks
|
||||||
$pre_code
|
ret = test_suite_$function_name( $call_params );
|
||||||
FCT_TEST_BGN($test_name)
|
return ( ret != 0 );
|
||||||
$case_code
|
$function_post_code
|
||||||
FCT_TEST_END();
|
return ( 3 );
|
||||||
$post_code
|
}
|
||||||
|
else
|
||||||
|
END
|
||||||
|
|
||||||
|
my $function_def = "int test_suite_$function_name(";
|
||||||
|
$function_def .= join ", ", @param_decl;
|
||||||
|
$function_def .= ")\n{\n";
|
||||||
|
|
||||||
|
$function_code = $function_pre_code . $function_def . $function_code . "\n return( 0 );\n}\n";
|
||||||
|
$function_code .= $function_post_code;
|
||||||
|
$test_main =~ s/FUNCTION_CODE/$function_code\n\nFUNCTION_CODE/;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Find specific case dependencies that we should be able to check
|
||||||
|
# and make check code
|
||||||
|
my $dep_check_code;
|
||||||
|
|
||||||
|
my @res = $test_data =~ /^depends_on:([\w:]+)/msg;
|
||||||
|
my %case_deps;
|
||||||
|
foreach my $deps (@res)
|
||||||
|
{
|
||||||
|
foreach my $dep (split(/:/, $deps))
|
||||||
|
{
|
||||||
|
$case_deps{$dep} = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
while( my ($key, $value) = each(%case_deps) )
|
||||||
|
{
|
||||||
|
$dep_check_code .= << "END";
|
||||||
|
if( strcmp( str, "$key" ) == 0 )
|
||||||
|
{
|
||||||
|
#if defined($key)
|
||||||
|
return( 0 );
|
||||||
|
#else
|
||||||
|
return( 1 );
|
||||||
|
#endif
|
||||||
|
}
|
||||||
END
|
END
|
||||||
}
|
}
|
||||||
|
|
||||||
print TEST_FILE << "END";
|
# Make mapping code
|
||||||
|
while( my ($key, $value) = each(%mapping_values) )
|
||||||
|
{
|
||||||
|
$mapping_code .= << "END";
|
||||||
|
if( strcmp( str, "$key" ) == 0 )
|
||||||
|
{
|
||||||
|
*value = ( $key );
|
||||||
|
return( 0 );
|
||||||
|
}
|
||||||
|
END
|
||||||
}
|
}
|
||||||
FCT_SUITE_END();
|
|
||||||
|
|
||||||
#if defined(POLARSSL_MEMORY_BUFFER_ALLOC_C) && defined(POLARSSL_MEMORY_DEBUG)
|
$dispatch_code =~ s/^(.+)/ $1/mg;
|
||||||
memory_buffer_alloc_status();
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
$test_main =~ s/TEST_FILENAME/$test_case_data/;
|
||||||
|
$test_main =~ s/FUNCTION_CODE//;
|
||||||
|
$test_main =~ s/DEP_CHECK_CODE/$dep_check_code/;
|
||||||
|
$test_main =~ s/DISPATCH_FUNCTION/$dispatch_code/;
|
||||||
|
$test_main =~ s/MAPPING_CODE/$mapping_code/;
|
||||||
|
|
||||||
|
print TEST_FILE << "END";
|
||||||
$suite_post_code
|
$suite_post_code
|
||||||
}
|
|
||||||
FCT_END();
|
|
||||||
|
|
||||||
|
$test_main
|
||||||
END
|
END
|
||||||
|
|
||||||
close(TEST_DATA);
|
|
||||||
close(TEST_FILE);
|
close(TEST_FILE);
|
||||||
|
|
|
||||||
|
|
@ -9,6 +9,10 @@ typedef UINT32 uint32_t;
|
||||||
#include <inttypes.h>
|
#include <inttypes.h>
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#include <assert.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* 32-bit integer manipulation macros (big endian)
|
* 32-bit integer manipulation macros (big endian)
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
283
tests/suites/main_test.function
Normal file
283
tests/suites/main_test.function
Normal file
|
|
@ -0,0 +1,283 @@
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
|
static int test_errors = 0;
|
||||||
|
|
||||||
|
static int test_assert( int correct, char *test )
|
||||||
|
{
|
||||||
|
if( correct )
|
||||||
|
return( 0 );
|
||||||
|
|
||||||
|
test_errors++;
|
||||||
|
// if( test_errors == 1 )
|
||||||
|
printf( "FAILED\n %s\n\n", test );
|
||||||
|
|
||||||
|
return( 1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
#define TEST_ASSERT( TEST ) (test_assert((TEST) ? 1 : 0, #TEST))
|
||||||
|
|
||||||
|
int verify_string( char **str )
|
||||||
|
{
|
||||||
|
if( (*str)[0] != '"' ||
|
||||||
|
(*str)[strlen( *str ) - 1] != '"' )
|
||||||
|
{
|
||||||
|
printf( "Expected string (with \"\") for parameter and got: %s\n", *str );
|
||||||
|
return( -1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
(*str)++;
|
||||||
|
(*str)[strlen( *str ) - 1] = '\0';
|
||||||
|
|
||||||
|
return( 0 );
|
||||||
|
}
|
||||||
|
|
||||||
|
int verify_int( char *str, int *value )
|
||||||
|
{
|
||||||
|
size_t i;
|
||||||
|
int minus = 0;
|
||||||
|
int digits = 1;
|
||||||
|
int hex = 0;
|
||||||
|
|
||||||
|
for( i = 0; i < strlen( str ); i++ )
|
||||||
|
{
|
||||||
|
if( i == 0 && str[i] == '-' )
|
||||||
|
{
|
||||||
|
minus = 1;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
if( ( ( minus && i == 2 ) || ( !minus && i == 1 ) ) &&
|
||||||
|
str[i - 1] == '0' && str[i] == 'x' )
|
||||||
|
{
|
||||||
|
hex = 1;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
if( str[i] < '0' || str[i] > '9' )
|
||||||
|
{
|
||||||
|
digits = 0;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if( digits )
|
||||||
|
{
|
||||||
|
if( hex )
|
||||||
|
*value = strtol( str, NULL, 16 );
|
||||||
|
else
|
||||||
|
*value = strtol( str, NULL, 10 );
|
||||||
|
|
||||||
|
return( 0 );
|
||||||
|
}
|
||||||
|
|
||||||
|
MAPPING_CODE
|
||||||
|
|
||||||
|
printf( "Expected integer for parameter and got: %s\n", str );
|
||||||
|
return( -1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
int dep_check( char *str )
|
||||||
|
{
|
||||||
|
if( str == NULL )
|
||||||
|
return( 1 );
|
||||||
|
|
||||||
|
DEP_CHECK_CODE
|
||||||
|
|
||||||
|
return( 1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
FUNCTION_CODE
|
||||||
|
int dispatch_test(int cnt, char *params[50])
|
||||||
|
{
|
||||||
|
int ret;
|
||||||
|
|
||||||
|
DISPATCH_FUNCTION
|
||||||
|
{
|
||||||
|
fprintf( stdout, "FAILED\nSkipping unknown test function '%s'\n", params[0] );
|
||||||
|
fflush( stdout );
|
||||||
|
return( 1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
return( ret );
|
||||||
|
}
|
||||||
|
|
||||||
|
int get_line( FILE *f, char *buf, size_t len )
|
||||||
|
{
|
||||||
|
char *ret;
|
||||||
|
|
||||||
|
ret = fgets( buf, len, f );
|
||||||
|
if( ret == NULL )
|
||||||
|
return( -1 );
|
||||||
|
|
||||||
|
if( strlen( buf ) && buf[strlen(buf) - 1] == '\n' )
|
||||||
|
buf[strlen(buf) - 1] = '\0';
|
||||||
|
if( strlen( buf ) && buf[strlen(buf) - 1] == '\r' )
|
||||||
|
buf[strlen(buf) - 1] = '\0';
|
||||||
|
|
||||||
|
return( 0 );
|
||||||
|
}
|
||||||
|
|
||||||
|
int parse_arguments( char *buf, size_t len, char *params[50] )
|
||||||
|
{
|
||||||
|
int cnt = 0, i;
|
||||||
|
char *cur = buf;
|
||||||
|
char *p = buf, *q;
|
||||||
|
|
||||||
|
params[cnt++] = cur;
|
||||||
|
|
||||||
|
while( *p != '\0' && p < buf + len )
|
||||||
|
{
|
||||||
|
if( *p == '\\' )
|
||||||
|
{
|
||||||
|
*p++;
|
||||||
|
*p++;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if( *p == ':' )
|
||||||
|
{
|
||||||
|
if( p + 1 < buf + len )
|
||||||
|
{
|
||||||
|
cur = p + 1;
|
||||||
|
params[cnt++] = cur;
|
||||||
|
}
|
||||||
|
*p = '\0';
|
||||||
|
}
|
||||||
|
|
||||||
|
*p++;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Replace newlines, question marks and colons in strings
|
||||||
|
for( i = 0; i < cnt; i++ )
|
||||||
|
{
|
||||||
|
p = params[i];
|
||||||
|
q = params[i];
|
||||||
|
|
||||||
|
while( *p != '\0' )
|
||||||
|
{
|
||||||
|
if( *p == '\\' && *(p + 1) == 'n' )
|
||||||
|
{
|
||||||
|
p += 2;
|
||||||
|
*(q++) = '\n';
|
||||||
|
}
|
||||||
|
else if( *p == '\\' && *(p + 1) == ':' )
|
||||||
|
{
|
||||||
|
p += 2;
|
||||||
|
*(q++) = ':';
|
||||||
|
}
|
||||||
|
else if( *p == '\\' && *(p + 1) == '?' )
|
||||||
|
{
|
||||||
|
p += 2;
|
||||||
|
*(q++) = '?';
|
||||||
|
}
|
||||||
|
else
|
||||||
|
*(q++) = *(p++);
|
||||||
|
}
|
||||||
|
*q = '\0';
|
||||||
|
}
|
||||||
|
|
||||||
|
return( cnt );
|
||||||
|
}
|
||||||
|
|
||||||
|
int main()
|
||||||
|
{
|
||||||
|
int ret, i, cnt, total_errors = 0, total_tests = 0, total_skipped = 0;
|
||||||
|
const char *filename = "TEST_FILENAME";
|
||||||
|
FILE *file;
|
||||||
|
char buf[5000];
|
||||||
|
char *params[50];
|
||||||
|
|
||||||
|
#if defined(POLARSSL_MEMORY_BUFFER_ALLOC_C)
|
||||||
|
unsigned char buf[1000000];
|
||||||
|
memory_buffer_alloc_init( buf, sizeof(buf) );
|
||||||
|
#endif
|
||||||
|
|
||||||
|
file = fopen( filename, "r" );
|
||||||
|
if( file == NULL )
|
||||||
|
{
|
||||||
|
fprintf( stderr, "Failed to open\n" );
|
||||||
|
return( 1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
while( !feof( file ) )
|
||||||
|
{
|
||||||
|
int skip = 0;
|
||||||
|
|
||||||
|
if( ( ret = get_line( file, buf, sizeof(buf) ) ) != 0 )
|
||||||
|
break;
|
||||||
|
fprintf( stdout, "%.66s", buf );
|
||||||
|
fprintf( stdout, " " );
|
||||||
|
for( i = strlen( buf ) + 1; i < 67; i++ )
|
||||||
|
fprintf( stdout, "." );
|
||||||
|
fprintf( stdout, " " );
|
||||||
|
fflush( stdout );
|
||||||
|
|
||||||
|
total_tests++;
|
||||||
|
|
||||||
|
if( ( ret = get_line( file, buf, sizeof(buf) ) ) != 0 )
|
||||||
|
break;
|
||||||
|
cnt = parse_arguments( buf, strlen(buf), params );
|
||||||
|
|
||||||
|
if( strcmp( params[0], "depends_on" ) == 0 )
|
||||||
|
{
|
||||||
|
for( i = 1; i < cnt; i++ )
|
||||||
|
if( dep_check( params[i] ) != 0 )
|
||||||
|
skip = 1;
|
||||||
|
|
||||||
|
if( ( ret = get_line( file, buf, sizeof(buf) ) ) != 0 )
|
||||||
|
break;
|
||||||
|
cnt = parse_arguments( buf, strlen(buf), params );
|
||||||
|
}
|
||||||
|
|
||||||
|
if( skip == 0 )
|
||||||
|
{
|
||||||
|
test_errors = 0;
|
||||||
|
ret = dispatch_test( cnt, params );
|
||||||
|
}
|
||||||
|
|
||||||
|
if( skip == 1 || ret == 3 )
|
||||||
|
{
|
||||||
|
total_skipped++;
|
||||||
|
fprintf( stdout, "-------\n" );
|
||||||
|
fflush( stdout );
|
||||||
|
}
|
||||||
|
else if( ret == 0 && test_errors == 0 )
|
||||||
|
{
|
||||||
|
fprintf( stdout, "PASS\n" );
|
||||||
|
fflush( stdout );
|
||||||
|
}
|
||||||
|
else if( ret == 2 )
|
||||||
|
{
|
||||||
|
fprintf( stderr, "FAILED: FATAL PARSE ERROR\n" );
|
||||||
|
fclose(file);
|
||||||
|
exit( 2 );
|
||||||
|
}
|
||||||
|
else
|
||||||
|
total_errors++;
|
||||||
|
|
||||||
|
if( ( ret = get_line( file, buf, sizeof(buf) ) ) != 0 )
|
||||||
|
break;
|
||||||
|
if( strlen(buf) != 0 )
|
||||||
|
{
|
||||||
|
fprintf( stderr, "Should be empty %d\n", strlen(buf) );
|
||||||
|
return( 1 );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fclose(file);
|
||||||
|
|
||||||
|
fprintf( stdout, "\n----------------------------------------------------------------------------\n\n");
|
||||||
|
if( total_errors == 0 )
|
||||||
|
fprintf( stdout, "PASSED" );
|
||||||
|
else
|
||||||
|
fprintf( stdout, "FAILED" );
|
||||||
|
|
||||||
|
fprintf( stdout, " (%d / %d tests (%d skipped))\n",
|
||||||
|
total_tests - total_errors, total_tests, total_skipped );
|
||||||
|
|
||||||
|
#if defined(POLARSSL_MEMORY_BUFFER_ALLOC_C) && defined(POLARSSL_MEMORY_DEBUG)
|
||||||
|
memory_buffer_alloc_status();
|
||||||
|
#endif
|
||||||
|
|
||||||
|
return( total_errors != 0 );
|
||||||
|
}
|
||||||
|
|
||||||
Loading…
Reference in a new issue