From 6357b3c65270bf240bd3e54c57ea9bcf4d138e57 Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@wenzperl.nl>
Date: Fri, 19 Apr 2019 13:41:21 +0200
Subject: [PATCH] Create directly copy/pastable test message

For easier debugging
---
 S32-str/sprintf-b.t | 4 ++--
 S32-str/sprintf-c.t | 2 +-
 S32-str/sprintf-d.t | 2 +-
 S32-str/sprintf-e.t | 4 ++--
 S32-str/sprintf-f.t | 4 ++--
 S32-str/sprintf-o.t | 2 +-
 S32-str/sprintf-s.t | 2 +-
 S32-str/sprintf-u.t | 2 +-
 S32-str/sprintf-x.t | 4 ++--
 9 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/S32-str/sprintf-b.t b/S32-str/sprintf-b.t
index 815544a7dd..7ed785333e 100644
--- a/S32-str/sprintf-b.t
+++ b/S32-str/sprintf-b.t
@@ -200,9 +200,9 @@ for @info -> $format, @tests {
 
         for @tests {
             is-deeply sprintf($format, |.value), .key,
-              "sprintf('$format',{.value}) eq '{.key}'";
+              qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/;
             is-deeply sprintf($format.uc, |.value), .key.uc,
-              "sprintf('{$format.uc}',{.value}) eq '{.key.uc}'";
+              qq/sprintf("{$format.uc}",{.value.list.join(",")}) eq '{.key.uc}'/;
         }
     }, "Tested '$format'";
 }
diff --git a/S32-str/sprintf-c.t b/S32-str/sprintf-c.t
index 9eb056bf16..c37628c1ef 100644
--- a/S32-str/sprintf-c.t
+++ b/S32-str/sprintf-c.t
@@ -69,7 +69,7 @@ for @info -> $format, @tests {
         plan +@tests;
 
         is-deeply sprintf($format, |.value), .key,
-          "sprintf('$format',{.value}) eq '{.key}'"
+          qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/
           for @tests;
 
     }, "Tested '$format'";
diff --git a/S32-str/sprintf-d.t b/S32-str/sprintf-d.t
index 5f4b1aa07d..03e78c4ede 100644
--- a/S32-str/sprintf-d.t
+++ b/S32-str/sprintf-d.t
@@ -235,7 +235,7 @@ for @info -> $format, @tests {
         plan +@tests;
 
         is-deeply sprintf($format, |.value), .key,
-          "sprintf('$format',{.value}) eq '{.key}'"
+          qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/
           for @tests;
     }, "Tested '$format'";
 }
diff --git a/S32-str/sprintf-e.t b/S32-str/sprintf-e.t
index da20c34e34..dc7749513e 100644
--- a/S32-str/sprintf-e.t
+++ b/S32-str/sprintf-e.t
@@ -124,9 +124,9 @@ for @info -> $format, @tests {
 
         for @tests {
             is-deeply sprintf($format, |.value), .key,
-              "sprintf('$format',{.value}) eq '{.key}'";
+              qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/;
             is-deeply sprintf($format.uc, |.value), .key.uc,
-              "sprintf('$format.uc()',{.value}) eq '{.key.uc}'";
+              qq/sprintf("{$format.uc}",{.value.list.join(",")}) eq '{.key.uc}'/;
         }
     }, "Tested '$format'";
 }
diff --git a/S32-str/sprintf-f.t b/S32-str/sprintf-f.t
index f77d08e862..2ee8b4dec6 100644
--- a/S32-str/sprintf-f.t
+++ b/S32-str/sprintf-f.t
@@ -125,9 +125,9 @@ for @info -> $format, @tests {
 
         for @tests {
             is-deeply sprintf($format, |.value), .key,
-              "sprintf('$format',{.value}) eq '{.key}'";
+              qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/;
             is-deeply sprintf($format.uc, |.value), .key.uc,
-              "sprintf('{$format.uc}',{.value}) eq '{.key.uc}'";
+              qq/sprintf("{$format.uc}",{.value.list.join(",")}) eq '{.key.uc}'/;
         }
     }, "Tested '$format'";
 }
diff --git a/S32-str/sprintf-o.t b/S32-str/sprintf-o.t
index 909c1e95d0..cd9dedcff6 100644
--- a/S32-str/sprintf-o.t
+++ b/S32-str/sprintf-o.t
@@ -205,7 +205,7 @@ for @info -> $format, @tests {
         plan +@tests;
 
         is-deeply sprintf($format, |.value), .key,
-          "sprintf('$format',{.value}0) eq '{.key}'"
+          qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/
           for @tests;
     }, "Tested '$format'";
 }
diff --git a/S32-str/sprintf-s.t b/S32-str/sprintf-s.t
index faa952c4db..28cc06e3f9 100644
--- a/S32-str/sprintf-s.t
+++ b/S32-str/sprintf-s.t
@@ -123,7 +123,7 @@ for @info -> $format, @tests {
         plan +@tests;
 
         is-deeply sprintf($format, |.value), .key,
-          "sprintf('$format',{.value}) eq '{.key}'"
+          qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/
           for @tests;
     }, "Tested '$format'";
 }
diff --git a/S32-str/sprintf-u.t b/S32-str/sprintf-u.t
index f9a77e7378..e7f93af811 100644
--- a/S32-str/sprintf-u.t
+++ b/S32-str/sprintf-u.t
@@ -86,7 +86,7 @@ for @info -> $format, @tests {
         plan +@tests;
 
         is-deeply sprintf($format, |.value), .key,
-          "sprintf('$format',{.value}) eq '{.key}'"
+          qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/
           for @tests;
     }, "Tested '$format'";
 }
diff --git a/S32-str/sprintf-x.t b/S32-str/sprintf-x.t
index d175959dec..94c4b1f35c 100644
--- a/S32-str/sprintf-x.t
+++ b/S32-str/sprintf-x.t
@@ -206,9 +206,9 @@ for @info -> $format, @tests {
 
         for @tests {
             is-deeply sprintf($format, |.value), .key,
-              "sprintf('$format',{.value}) eq '{.key}'";
+              qq/sprintf("$format",{.value.list.join(",")}) eq '{.key}'/;
             is-deeply sprintf($format.uc, |.value), .key.uc,
-              "sprintf('{$format.uc}',{.value}) eq '{.key.uc}'";
+              qq/sprintf("{$format.uc}",{.value.list.join(",")}) eq '{.key.uc}'/;
         }
     }, "Tested '$format'";
 }