From 218a739b33325c5dd6baa5cf6291dad849ad2441 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Wed, 14 Dec 2022 08:03:32 +0200
Subject: Handle NULL values in $string() and $concat() functions

This is relied upon by the parser to provide conversion/concatenation
semantics consistent with untyped values. Note that we handle NULL values
only for types that have empty representation.
---
 tests/value/concat.testscript | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

(limited to 'tests')

diff --git a/tests/value/concat.testscript b/tests/value/concat.testscript
index 97391c4..69ec9fc 100644
--- a/tests/value/concat.testscript
+++ b/tests/value/concat.testscript
@@ -3,6 +3,48 @@
 
 .include ../common.testscript
 
+: null
+:
+{
+  : untyped
+  :
+  $* <<EOI >>/EOO
+  x = [null]
+
+  print y "$x x"
+  print "x $x" y
+
+  print $x"x"
+  print "x"$x
+  print $x$x
+  EOI
+  y  x
+  x  y
+  x
+  x
+  {}
+  EOO
+
+  : string
+  :
+  $* <<EOI >>/EOO
+  x = [string,null]
+
+  print y "$x x"
+  print "x $x" y
+
+  print $x"x"
+  print "x"$x
+  print $x$x
+  EOI
+  y  x
+  x  y
+  x
+  x
+  {}
+  EOO
+}
+
 : dir_path
 :
 {
-- 
cgit v1.1