From b066cc3ea99fbb2d5b2c5882d17a679c52f2114b Mon Sep 17 00:00:00 2001
From: dana <dana@dana.is>
Date: Thu, 18 Jan 2018 15:57:56 -0600
Subject: 42297: (e) subscript flag needs extra work with scalars

---
 Test/D06subscript.ztst | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'Test/D06subscript.ztst')

diff --git a/Test/D06subscript.ztst b/Test/D06subscript.ztst
index f0a858b1c..3ea7fb7e4 100644
--- a/Test/D06subscript.ztst
+++ b/Test/D06subscript.ztst
@@ -273,3 +273,19 @@
  print ${string[1,twoarg(1,4)]}
 0:Commas inside parentheses do not confuse subscripts
 >abc
+
+  string='foobarbaz foob?rbaz foob?rbaz'
+  print $string[(i)b?r] $string[(I)b?r]
+  print $string[(r)b?r] $string[(R)b?r]
+  print $string[(r)b?r,(R)b?r]
+  print $string[(ei)b?r] $string[(eI)b?r]
+  print $string[(er)b?r] $string[(eR)b?r]
+  print $string[(er)b?r,(eR)b?r]
+0:Pattern handling with scalars
+F:Regression test for workers/42297
+>4 24
+>b b
+>barbaz foob?rbaz foob?r
+>14 24
+>b b
+>b?rbaz foob?r
-- 
cgit 1.4.1