mirror/mbedtls
1
0
Fork 0
mirror of https://github.com/Mbed-TLS/mbedtls.git synced 2025-03-06 01:13:49 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

cat ../svn-commit.2.tmp

Browse Source
This commit is contained in:
Paul Bakker 2009-10-03 19:57:10 +00:00
parent 6506aff92d
commit ccff1671ae
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
tests/scripts/generate_code.pl
View File

@ -43,13 +43,36 @@ while (my $line = <TEST_DATA>)
{ {
my $description = $line; my $description = $line;
$line = <TEST_DATA>; $line = <TEST_DATA>;
my $command_line = $line;
$line = <TEST_DATA>;
my $test_name = $description; my $test_name = $description;
$test_name =~ tr/A-Z \-/a-z__/; $test_name =~ tr/A-Z \-/a-z__/;
$test_name =~ tr/a-z0-9_//cd; $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;
$line = <TEST_DATA>;
( $requirements ) = $depends_on_line =~ /^depends_on:(.*)$/;
}
my @var_req_arr = split(/:/, $requirements);
my $pre_code;
my $post_code;
while (@var_req_arr)
{
my $req = shift @var_req_arr;
$pre_code .= "#ifdef $req\n";
$post_code .= "#endif\n";
}
my $command_line = $line;
$line = <TEST_DATA>;
# Carve the case name and variable values # Carve the case name and variable values
# #
my ( $case, $var_value ) = $command_line =~ /^([\w_]+):(.*)$/; my ( $case, $var_value ) = $command_line =~ /^([\w_]+):(.*)$/;
@ -82,10 +105,11 @@ while (my $line = <TEST_DATA>)
print TEST_FILE << "END"; print TEST_FILE << "END";
$pre_code
FCT_TEST_BGN($test_name) FCT_TEST_BGN($test_name)
$case_code $case_code
FCT_TEST_END(); FCT_TEST_END();
$post_code
END END
} }