Use more specific is-deeply for testing

Raku · Apr 18, 2019 · d74f775 · d74f775
1 parent fae956e
commit d74f775
Show file tree

Hide file tree

Showing 9 changed files with 15 additions and 13 deletions.
diff --git a/S32-str/sprintf-b.t b/S32-str/sprintf-b.t
@@ -199,9 +199,9 @@ for @info -> $format, @tests {
         plan 2 * @tests;
 
         for @tests {
-            is sprintf($format, .value), .key,
+            is-deeply sprintf($format, .value), .key,
               "sprintf('$format',{.value}) eq '{.key}'";
-            is sprintf($format.uc, .value), .key.uc,
+            is-deeply sprintf($format.uc, .value), .key.uc,
               "sprintf('{$format.uc}',{.value}) eq '{.key.uc}'";
         }
     }, "Tested '$format'";

diff --git a/S32-str/sprintf-c.t b/S32-str/sprintf-c.t
@@ -68,7 +68,7 @@ for @info -> $format, @tests {
     subtest {
         plan +@tests;
 
-        is sprintf($format, .value), .key,
+        is-deeply sprintf($format, .value), .key,
           "sprintf('$format',{.value}) eq '{.key}'"
           for @tests;
 

diff --git a/S32-str/sprintf-d.t b/S32-str/sprintf-d.t
@@ -126,7 +126,7 @@ for @info -> $format, @tests {
     subtest {
         plan +@tests;
 
-        is sprintf($format, .value), .key,
+        is-deeply sprintf($format, .value), .key,
           "sprintf('$format',{.value}) eq '{.key}'"
           for @tests;
     }, "Tested '$format'";

diff --git a/S32-str/sprintf-e.t b/S32-str/sprintf-e.t
@@ -123,9 +123,9 @@ for @info -> $format, @tests {
         plan 2 * @tests;
 
         for @tests {
-            is sprintf($format, .value), .key,
+            is-deeply sprintf($format, .value), .key,
               "sprintf('$format',{.value}) eq '{.key}'";
-            is sprintf($format.uc, .value), .key.uc,
+            is-deeply sprintf($format.uc, .value), .key.uc,
               "sprintf('$format.uc()',{.value}) eq '{.key.uc}'";
         }
     }, "Tested '$format'";

diff --git a/S32-str/sprintf-f.t b/S32-str/sprintf-f.t
@@ -124,9 +124,9 @@ for @info -> $format, @tests {
         plan 2 * @tests;
 
         for @tests {
-            is sprintf($format, .value), .key,
+            is-deeply sprintf($format, .value), .key,
               "sprintf('$format',{.value}) eq '{.key}'";
-            is sprintf($format.uc, .value), .key.uc,
+            is-deeply sprintf($format.uc, .value), .key.uc,
               "sprintf('{$format.uc}',{.value}) eq '{.key.uc}'";
         }
     }, "Tested '$format'";

diff --git a/S32-str/sprintf-o.t b/S32-str/sprintf-o.t
@@ -137,6 +137,7 @@ my @info = ( # |-----------|-----------|-----------|-----------|
     '-0 ',    8, "0       ", "1       ", "100     ", "-100    ",
    '-+0 ',    8, "0       ", "1       ", "100     ", "-100    ",
       '#',    8, "       0", "      01", "    0100", "   0-100",
+     '# ',    8, "       0", "      01", "    0100", "   0-100",
      '#0',    8, "00000000", "00000001", "00000100", "0000-100",
     '#0 ',    8, "00000000", "00000001", "00000100", "0000-100",
 # NOTE: all the "0-100" are bogus, but provided by the current implementation
@@ -172,6 +173,7 @@ my @info = ( # |-----------|-----------|-----------|-----------|
    '-+0 ',  8.2, "00      ", "01      ", "100     ", "-100    ",
 # NOTE: all the "0-100" are bogus, but provided by the current implementation
       '#',  8.2, "      00", "      01", "    0100", "   0-100",
+     '# ',  8.2, "      00", "      01", "    0100", "   0-100",
      '#0',  8.2, "      00", "      01", "    0100", "   0-100",
     '#0 ',  8.2, "      00", "      01", "    0100", "   0-100",
      '#+',  8.2, "      00", "      01", "    0100", "   0-100",
@@ -202,7 +204,7 @@ for @info -> $format, @tests {
     subtest {
         plan +@tests;
 
-        is sprintf($format, .value), .key,
+        is-deeply sprintf($format, .value), .key,
           "sprintf('$format',{.value}0) eq '{.key}'"
           for @tests;
     }, "Tested '$format'";

diff --git a/S32-str/sprintf-s.t b/S32-str/sprintf-s.t
@@ -122,7 +122,7 @@ for @info -> $format, @tests {
     subtest {
         plan +@tests;
 
-        is sprintf($format, .value), .key,
+        is-deeply sprintf($format, .value), .key,
           "sprintf('$format',{.value}) eq '{.key}'"
           for @tests;
     }, "Tested '$format'";

diff --git a/S32-str/sprintf-u.t b/S32-str/sprintf-u.t
@@ -85,7 +85,7 @@ for @info -> $format, @tests {
     subtest {
         plan +@tests;
 
-        is sprintf($format, .value), .key,
+        is-deeply sprintf($format, .value), .key,
           "sprintf('$format',{.value}) eq '{.key}'"
           for @tests;
     }, "Tested '$format'";

diff --git a/S32-str/sprintf-x.t b/S32-str/sprintf-x.t
@@ -205,9 +205,9 @@ for @info -> $format, @tests {
         plan 2 * @tests;
 
         for @tests {
-            is sprintf($format, .value), .key,
+            is-deeply sprintf($format, .value), .key,
               "sprintf('$format',{.value}) eq '{.key}'";
-            is sprintf($format.uc, .value), .key.uc,
+            is-deeply sprintf($format.uc, .value), .key.uc,
               "sprintf('{$format.uc}',{.value}) eq '{.key.uc}'";
         }
     }, "Tested '$format'";