Changeset 341

Timestamp:

05/04/2005 01:34:28 AM (3 years ago)

Author:

moo

Message:

testcase for env.*

Location:

trunk/tests

Files:

• core-var-include.t (modified) (3 diffs)
• var-include-sub.conf (modified) (1 diff)

trunk/tests/core-var-include.t

@@ -3 +3 @@
 use strict;
 use IO::Socket;
-use Test::More tests => 14;
+use Test::More tests => 15;
 
 my $basedir = (defined $ENV{'top_builddir'} ? $ENV{'top_builddir'} : '..');
@@ -187 +187 @@
 }
     
+$ENV{"env_test"} = "good_env";
+
 ok(start_proc == 0, "Starting lighttpd") or die();
 
@@ -205 +207 @@
                 "var.myvar"      => "/good_var_myvar" . $myvar,
                 "myvar"          => "/good_myvar" . $myvar,
+                "env"            => "/" . $ENV{"env_test"},
+
                 "number1"        => "/good_number" . "1",
                 "number2"        => "1" . "/good_number",

trunk/tests/var-include-sub.conf

@@ -11 +11 @@
                         "^/number1$"       => "/good_number" + one,
                         "^/number2$"       => one + "/good_number",
+                        "^/env$"           => "/" + env.env_test,
                         )
+        num = 1
+        num2 = 2
+        num2 += 1
         # without var prefix
         mystr = "string"