From af8747969925a0815c09825ee8420a1be9dcc6c7 Mon Sep 17 00:00:00 2001
From: Karen Arutyunov <karen@codesynthesis.com>
Date: Wed, 21 Jun 2017 18:40:49 +0300
Subject: Add support for $envvar() function

---
 tests/function/builtin/testscript | 61 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)

(limited to 'tests')

diff --git a/tests/function/builtin/testscript b/tests/function/builtin/testscript
index 0b005f3..3e27958 100644
--- a/tests/function/builtin/testscript
+++ b/tests/function/builtin/testscript
@@ -60,3 +60,64 @@
   $* <'print       $identity(abc)'             >'abc';
   $* <'print $type($identity(abc))'            >''         : untyped
 }
+
+: getenv
+:
+{
+  : set
+  :
+  : Here we rely on the facts that on POSIX PATH environment variable most
+  : likely is set at the time of login, and on Windows it is set by build2 on
+  : startup.
+  :
+  : @@ Use a custom variable, when an ability to set environment variables in
+  :    testscript is implemented.
+  :
+  {
+    : string
+    :
+    $* <'print $getenv([string] "PATH")' | set v;
+    ($v != '[null]') || exit "PATH environment variable is not set"
+
+    : untyped
+    :
+    $* <'print $getenv("PATH")' | set v;
+    ($v != '[null]') || exit "PATH environment variable is not set"
+
+    : path
+    :
+    $* <'print $getenv([path] a)' 2>>~/EOE/ != 0
+    <stdin>:1:8: error: unmatched call to getenv(path)
+    /((
+      info: candidate: getenv(<untyped>), qualified name builtin.getenv
+      info: candidate: getenv(string), qualified name builtin.getenv
+    /)|(
+      info: candidate: getenv(string), qualified name builtin.getenv
+      info: candidate: getenv(<untyped>), qualified name builtin.getenv
+    /))
+    EOE
+
+    : none
+    :
+    $* <'print $getenv()' 2>>~/EOE/ != 0
+    <stdin>:1:8: error: unmatched call to getenv()
+    /((
+      info: candidate: getenv(<untyped>), qualified name builtin.getenv
+      info: candidate: getenv(string), qualified name builtin.getenv
+    /)|(
+      info: candidate: getenv(string), qualified name builtin.getenv
+      info: candidate: getenv(<untyped>), qualified name builtin.getenv
+    /))
+    EOE
+
+    : names
+    :
+    $* <'print $getenv(a b)' 2>>EOE != 0
+    error: invalid argument: invalid string value: multiple names
+    EOE
+  }
+
+  : unset
+  :
+  $* <'print $getenv("non-existent-var-name")' >'[null]'
+}
-- 
cgit v1.1