commit ccff1671ae8f1ba631def51a8e1008601cb58392
author Paul Bakker <p.j.bakker@polarssl.org> Sat Oct 03 19:57:10 2009 +0000
committer Paul Bakker <p.j.bakker@polarssl.org> Sat Oct 03 19:57:10 2009 +0000
tree ebf3f03716f2f11870991e3a445e3e9869488dd9
parent 6506aff92d28f3f638165c1d3e15dfb810925bf0

`cat ../svn-commit.2.tmp `

tests/scripts/generate_code.pl

diff --git a/tests/scripts/generate_code.pl b/tests/scripts/generate_code.pl
index f712395..0ccd495 100755
--- a/tests/scripts/generate_code.pl
+++ b/tests/scripts/generate_code.pl
@@ -43,13 +43,36 @@
 {
     my $description = $line;
     $line = <TEST_DATA>;
-    my $command_line = $line;
-    $line = <TEST_DATA>;
 
     my $test_name = $description;
     $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;
+        $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
     #
     my ( $case, $var_value ) = $command_line =~ /^([\w_]+):(.*)$/;
@@ -82,10 +105,11 @@
 
 
     print TEST_FILE << "END";
+$pre_code
         FCT_TEST_BGN($test_name)
 $case_code
         FCT_TEST_END();
-
+$post_code
 END
 }