From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 27 May 2021 13:55:16 +0000 (-0700)
Subject: add test for parsing numeric values
X-Git-Tag: 20210402.01~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5f5fc1a953419d787f9b49ca43b100681951a790;p=perltidy.git

add test for parsing numeric values
---

diff --git a/t/snippets/expect/numbers.def b/t/snippets/expect/numbers.def
new file mode 100644
index 00000000..7571cbe8
--- /dev/null
+++ b/t/snippets/expect/numbers.def
@@ -0,0 +1,23 @@
+# valid numbers
+my @vals = (
+
+    12345,
+    12345.67,
+    .23E-10,
+    3.14_15_92,
+    4_294_967_296,
+    0xff,
+    0xdead_beef,
+    0377,
+    0b011011,
+    0x1.999ap-4,
+    1e34,
+    1e+34,
+    1e+034,
+    -1e+034,
+    0.00000000000000000000000000000000000000000000000000000000000000000001,
+    0Xabcdef,
+    0B1101,
+    0o12_345,    # optional 'o' and 'O' added in perl v5.33.5
+    0O12_345,
+);
diff --git a/t/snippets/numbers.in b/t/snippets/numbers.in
new file mode 100644
index 00000000..4d244992
--- /dev/null
+++ b/t/snippets/numbers.in
@@ -0,0 +1,23 @@
+# valid numbers
+my @vals = (
+
+    12345,
+    12345.67,
+    .23E-10,
+    3.14_15_92,
+    4_294_967_296,
+    0xff,
+    0xdead_beef,
+    0377,
+    0b011011,
+    0x1.999ap-4,
+    1e34,
+    1e+34,
+    1e+034,
+    -1e+034,
+    0.00000000000000000000000000000000000000000000000000000000000000000001,
+    0Xabcdef,
+    0B1101,
+    0o12_345,  # optional 'o' and 'O' added in perl v5.33.5
+    0O12_345,
+);
diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index 8b38f8b9..1e6f8f26 100644
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -462,3 +462,4 @@
 ../snippets9.t	rt98902.def
 ../snippets9.t	rt98902.rt98902
 ../snippets9.t	rt99961.def
+../snippets24.t	numbers.def
diff --git a/t/snippets24.t b/t/snippets24.t
index f171b4bd..b570477f 100644
--- a/t/snippets24.t
+++ b/t/snippets24.t
@@ -15,6 +15,7 @@
 #12 align35.def
 #13 rt136417.def
 #14 rt136417.rt136417
+#15 numbers.def
 
 # To locate test #13 you can search for its name or the string '#13'
 
@@ -207,6 +208,32 @@ $behaviour = {
              };
 ----------
 
+        'numbers' => <<'----------',
+# valid numbers
+my @vals = (
+
+    12345,
+    12345.67,
+    .23E-10,
+    3.14_15_92,
+    4_294_967_296,
+    0xff,
+    0xdead_beef,
+    0377,
+    0b011011,
+    0x1.999ap-4,
+    1e34,
+    1e+34,
+    1e+034,
+    -1e+034,
+    0.00000000000000000000000000000000000000000000000000000000000000000001,
+    0Xabcdef,
+    0B1101,
+    0o12_345,  # optional 'o' and 'O' added in perl v5.33.5
+    0O12_345,
+);
+----------
+
         'rt136417' => <<'----------',
 function(
   #
@@ -776,6 +803,36 @@ function(
 );
 #14...........
         },
+
+        'numbers.def' => {
+            source => "numbers",
+            params => "def",
+            expect => <<'#15...........',
+# valid numbers
+my @vals = (
+
+    12345,
+    12345.67,
+    .23E-10,
+    3.14_15_92,
+    4_294_967_296,
+    0xff,
+    0xdead_beef,
+    0377,
+    0b011011,
+    0x1.999ap-4,
+    1e34,
+    1e+34,
+    1e+034,
+    -1e+034,
+    0.00000000000000000000000000000000000000000000000000000000000000000001,
+    0Xabcdef,
+    0B1101,
+    0o12_345,    # optional 'o' and 'O' added in perl v5.33.5
+    0O12_345,
+);
+#15...........
+        },
     };
 
     my $ntests = 0 + keys %{$rtests};