summaryrefslogtreecommitdiff
path: root/tests/misc/numfmt.pl
blob: 2740bbf583760ad7a270ffd90badd64901ddfee6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
#!/usr/bin/perl
# Basic tests for "numfmt".

# Copyright (C) 2012-2013 Free Software Foundation, Inc.

# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

use strict;

(my $program_name = $0) =~ s|.*/||;
my $prog = 'numfmt';

# TODO: add localization tests with "grouping"
# Turn off localization of executable's output.
@ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;

my $locale = $ENV{LOCALE_FR_UTF8};
! defined $locale || $locale eq 'none'
  and $locale = 'C';

my @Tests =
    (
     ['1', '1234',             {OUT => "1234"}],
     ['2', '--from=si 1K',     {OUT => "1000"}],
     ['3', '--from=iec 1K',    {OUT => "1024"}],
     ['4', '--from=auto 1K',   {OUT => "1000"}],
     ['5', '--from=auto 1Ki',  {OUT => "1024"}],
     ['5.1', '--from=iec-i 1Ki',  {OUT => "1024"}],

     ['6', {IN_PIPE => "1234\n"},            {OUT => "1234"}],
     ['7', '--from=si', {IN_PIPE => "2K\n"}, {OUT => "2000"}],
     ['7a', '--invalid=fail', {IN_PIPE => "no_NL"}, {OUT => "no_NL"},
              {ERR => "$prog: invalid number: 'no_NL'\n"},
              {EXIT => '2'}],

     ['8',  '--to=si 2000',                   {OUT => "2.0K"}],
     ['9',  '--to=si 2001',                   {OUT => "2.1K"}],
     ['10', '--to=si 1999',                   {OUT => "2.0K"}],
     ['11', '--to=si --round=down   2001',   {OUT => "2.0K"}],
     ['12', '--to=si --round=down   1999',   {OUT => "1.9K"}],
     ['13', '--to=si --round=up 1901',   {OUT => "2.0K"}],
     ['14', '--to=si --round=down   1901',   {OUT => "1.9K"}],
     ['15', '--to=si --round=nearest 1901',   {OUT => "1.9K"}],
     ['16', '--to=si --round=nearest 1945',   {OUT => "1.9K"}],
     ['17', '--to=si --round=nearest 1955',   {OUT => "2.0K"}],

     ['18',  '--to=iec 2048',                  {OUT => "2.0K"}],
     ['19',  '--to=iec 2049',                  {OUT => "2.1K"}],
     ['20', '--to=iec 2047',                   {OUT => "2.0K"}],
     ['21', '--to=iec --round=down   2049',   {OUT => "2.0K"}],
     ['22', '--to=iec --round=down   2047',   {OUT => "1.9K"}],
     ['23', '--to=iec --round=up 2040',   {OUT => "2.0K"}],
     ['24', '--to=iec --round=down   2040',   {OUT => "1.9K"}],
     ['25', '--to=iec --round=nearest 1996',   {OUT => "1.9K"}],
     ['26', '--to=iec --round=nearest 1997',   {OUT => "2.0K"}],
     ['27', '--to=iec-i 2048',                  {OUT => "2.0Ki"}],

     ['neg-1', '-- -1234',                     {OUT => "-1234"}],
     ['neg-2', '--padding=5 -- -1234',         {OUT => "-1234"}],
     ['neg-3', '--padding=6 -- -1234',         {OUT => " -1234"}],
     ['neg-4', '--to=iec -- 9100 -9100',       {OUT => "8.9K\n-8.9K"}],
     ['neg-5', '-- -0.1',                      {OUT => "-0.1"}],
     ['neg-6', '-- -0',                        {OUT => "0"}],
     ['neg-7', '-- -0.-1',
              {ERR => "$prog: invalid number: '-0.-1'\n"},
              {EXIT => '2'}],

     ['float-1', '1.1',                        {OUT => "1.1"}],
     ['float-2', '1.22',                       {OUT => "1.22"}],
     ['float-3', '1.22.',
             {ERR => "$prog: invalid suffix in input: '1.22.'\n"},
             {EXIT => '2'}],

     ['unit-1', '--from-unit=512 4',   {OUT => "2048"}],
     ['unit-2', '--to-unit=512 2048',   {OUT => "4"}],
     ['unit-3', '--from-unit=512 --from=si 4M',   {OUT => "2048000000"}],
     ['unit-4', '--from-unit=512 --from=iec --to=iec 4M',   {OUT => "2.0G"}],
     ['unit-5', '--from-unit=AA --from=iec --to=iec 4M',
             {ERR => "$prog: invalid unit size: 'AA'\n"},
             {EXIT => '1'}],
     ['unit-6', '--from-unit=54W --from=iec --to=iec 4M',
             {ERR => "$prog: invalid unit size: '54W'\n"},
             {EXIT => '1'}],
     # Not fully documented.. "--{from,to}-unit" can accept IEC suffixes
     ['unit-7', '--from-unit=2K --to=iec 30', {OUT=>"60K"}],
     ['unit-8', '--from-unit=1234567890123456789012345 --to=iec 30',
             {ERR => "$prog: invalid unit size: '1234567890123456789012345'\n"},
             {EXIT => '1'}],
     ['unit-9', '--from-unit=0 1',
             {ERR => "$prog: invalid unit size: '0'\n"},
             {EXIT => '1'}],
     ['unit-10', '--to-unit=0 1',
             {ERR => "$prog: invalid unit size: '0'\n"},
             {EXIT => '1'}],

     # Test Suffix logic
     ['suf-1', '4000',    {OUT=>'4000'}],
     ['suf-2', '4Q',
             {ERR => "$prog: invalid suffix in input: '4Q'\n"},
             {EXIT => '2'}],
     ['suf-2.1', '4M',
             {ERR => "$prog: rejecting suffix " .
             "in input: '4M' (consider using --from)\n"},
             {EXIT => '2'}],
     ['suf-3', '--from=si 4M',  {OUT=>'4000000'}],
     ['suf-4', '--from=si 4Q',
             {ERR => "$prog: invalid suffix in input: '4Q'\n"},
             {EXIT => '2'}],
     ['suf-5', '--from=si 4MQ',
             {ERR => "$prog: invalid suffix in input '4MQ': 'Q'\n"},
             {EXIT => '2'}],

     ['suf-6', '--from=iec 4M',  {OUT=>'4194304'}],
     ['suf-7', '--from=auto 4M',  {OUT=>'4000000'}],
     ['suf-8', '--from=auto 4Mi',  {OUT=>'4194304'}],
     ['suf-9', '--from=auto 4MiQ',
             {ERR => "$prog: invalid suffix in input '4MiQ': 'Q'\n"},
             {EXIT => '2'}],
     ['suf-10', '--from=auto 4QiQ',
             {ERR => "$prog: invalid suffix in input: '4QiQ'\n"},
             {EXIT => '2'}],

     # characters after a white space are OK - printed as-is
     ['suf-11', '"4 M"',     {OUT=>'4 M'}],

     # Custom suffix
     ['suf-12', '--suffix=Foo 70Foo',               {OUT=>'70Foo'}],
     ['suf-13', '--suffix=Foo 70',                  {OUT=>'70Foo'}],
     ['suf-14', '--suffix=Foo --from=si 70K',       {OUT=>'70000Foo'}],
     ['suf-15', '--suffix=Foo --from=si 70KFoo',    {OUT=>'70000Foo'}],
     ['suf-16', '--suffix=Foo --to=si   7000Foo',    {OUT=>'7.0KFoo'}],
     ['suf-17', '--suffix=Foo --to=si   7000Bar',
              {ERR => "$prog: invalid suffix in input: '7000Bar'\n"},
              {EXIT => '2'}],
     ['suf-18', '--suffix=Foo --to=si   7000FooF',
              {ERR => "$prog: invalid suffix in input: '7000FooF'\n"},
              {EXIT => '2'}],
     # space(s) between number and suffix.  Note only field 1 is used
     # by default so specify the NUL delimiter to consider the whole "line".
     ['suf-19', "-d '' --from=si '4.0 K'",         {OUT => "4000"}],

     ## GROUPING

     # "C" locale - no grouping (locale-specific tests, below)
     ['grp-1', '--from=si --grouping 7M',   {OUT=>'7000000'}],
     ['grp-2', '--from=si --to=si --grouping 7M',
              {ERR => "$prog: grouping cannot be combined with --to\n"},
              {EXIT => '1'}],


     ## Padding
     ['pad-1', '--padding=10 5',             {OUT=>'         5'}],
     ['pad-2', '--padding=-10 5',            {OUT=>'5         '}],
     ['pad-3', '--padding=A 5',
             {ERR => "$prog: invalid padding value 'A'\n"},
             {EXIT => '1'}],
     ['pad-3.1', '--padding=0 5',
             {ERR => "$prog: invalid padding value '0'\n"},
             {EXIT => '1'}],
     ['pad-4', '--padding=10 --to=si 50000',             {OUT=>'       50K'}],
     ['pad-5', '--padding=-10 --to=si 50000',            {OUT=>'50K       '}],

     # padding too narrow
     ['pad-6', '--padding=2 --to=si 1000', {OUT=>'1.0K'}],


     # Padding + suffix
     ['pad-7', '--padding=10 --suffix=foo --to=si 50000',
             {OUT=>'    50Kfoo'}],
     ['pad-8', '--padding=-10 --suffix=foo --to=si 50000',
             {OUT=>'50Kfoo    '}],


     # Delimiters
     ['delim-1', '--delimiter=: --from=auto 40M:',   {OUT=>'40000000:'}],
     ['delim-2', '--delimiter="" --from=auto "40 M"',{OUT=>'40000000'}],
     ['delim-3', '--delimiter=" " --from=auto "40M Foo"',{OUT=>'40000000 Foo'}],
     ['delim-4', '--delimiter=: --from=auto 40M:60M',  {OUT=>'40000000:60M'}],
     ['delim-5', '-d: --field=2 --from=auto :40M:60M',  {OUT=>':40000000:60M'}],
     ['delim-6', '--delimiter=: --field 3 --from=auto 40M:60M',
             {EXIT=>2},
             {ERR=>"$prog: input line is too short, no numbers found " .
                   "to convert in field 3\n"}],

     #Fields
     ['field-1', '--field A',
             {ERR => "$prog: invalid field value 'A'\n"},
             {EXIT => '1'}],
     ['field-1.1', '--field -5',
             {ERR => "$prog: invalid field value '-5'\n"},
             {EXIT => '1'}],
     ['field-2', '--field 2 --from=auto "Hello 40M World 90G"',
             {OUT=>'Hello 40000000 World 90G'}],
     ['field-3', '--field 3 --from=auto "Hello 40M World 90G"',
             {ERR=>"$prog: invalid number: 'World'\n"},
             {EXIT => 2},],
     # Last field - no text after number
     ['field-4', '--field 4 --from=auto "Hello 40M World 90G"',
             {OUT=>"Hello 40M World 90000000000"}],
     # Last field - a delimiter after the number
     ['field-5', '--field 4 --from=auto "Hello 40M World 90G "',
             {OUT=>"Hello 40M World 90000000000 "}],

     # Mix Fields + Delimiters
     ['field-6', '--delimiter=: --field 2 --from=auto "Hello:40M:World:90G"',
             {OUT=>"Hello:40000000:World:90G"}],

     # not enough fields
     ['field-8', '--field 3 --to=si "Hello World"',
             {EXIT=>2},
             {ERR=>"$prog: input line is too short, no numbers found " .
                   "to convert in field 3\n"}],

     # Auto-consume white-space, setup auto-padding
     ['whitespace-1', '--to=si --field 2 "A    500 B"', {OUT=>"A    500 B"}],
     ['whitespace-2', '--to=si --field 2 "A   5000 B"', {OUT=>"A   5.0K B"}],
     ['whitespace-3', '--to=si "  500"', {OUT=>"  500"}],
     ['whitespace-4', '--to=si " 6500"', {OUT=>" 6.5K"}],
     # NOTE: auto-padding is not enabled if the value is on the first
     #       field and there's no white-space before it.
     ['whitespace-5', '--to=si "6000000"', {OUT=>"6.0M"}],
     # but if there is whitespace, assume auto-padding is desired.
     ['whitespace-6', '--to=si " 6000000"', {OUT=>"    6.0M"}],

     # auto-padding - lines have same padding-width
     #  (padding_buffer will be alloc'd just once)
     ['whitespace-7', '--to=si --field 2',
             {IN_PIPE=>"rootfs    100000\n" .
                       "udevxx   2000000\n"},
             {OUT    =>"rootfs      100K\n" .
                       "udevxx      2.0M"}],
     # auto-padding - second line requires a
     # larger padding (padding-buffer needs to be realloc'd)
     ['whitespace-8', '--to=si --field 2',
             {IN_PIPE=>"rootfs    100000\n" .
                       "udev         20000000\n"},
             {OUT    =>"rootfs      100K\n" .
                       "udev              20M"}],


     # Corner-cases:
     # weird mix of identical suffix,delimiters
     # The priority is:
     #   1. delimiters (and fields) are parsed (in process_line()
     #   2. optional custom suffix is removed (in process_suffixed_number())
     #   3. Remaining suffixes must be valid SI/IEC (in human_xstrtol())

     # custom suffix comes BEFORE SI/IEC suffix,
     #   so these are 40 of "M", not 40,000,000.
     ['mix-1', '--suffix=M --from=si 40M',     {OUT=>"40M"}],

     # These are fourty-million Ms .
     ['mix-2', '--suffix=M --from=si 40MM',     {OUT=>"40000000M"}],

     ['mix-3', '--suffix=M --from=auto 40MM',     {OUT=>"40000000M"}],
     ['mix-4', '--suffix=M --from=auto 40MiM',     {OUT=>"41943040M"}],
     ['mix-5', '--suffix=M --to=si --from=si 4MM',     {OUT=>"4.0MM"}],

     # This might be confusing to the user, but it's legit:
     # The M in the output is the custom suffix, not Mega.
     ['mix-6', '--suffix=M 40',     {OUT=>"40M"}],
     ['mix-7', '--suffix=M 4000000',     {OUT=>"4000000M"}],
     ['mix-8', '--suffix=M --to=si 4000000',     {OUT=>"4.0MM"}],

     # The output 'M' is the custom suffix.
     ['mix-10', '--delimiter=M --suffix=M 40',     {OUT=>"40M"}],

     # The INPUT 'M' is a delimiter (delimiters are top priority)
     # The output contains one M for custom suffix, and one 'M' delimiter.
     ['mix-11', '--delimiter=M --suffix=M 40M',     {OUT=>"40MM"}],

     # Same as above, the "M" is NOT treated as a mega SI prefix,
     ['mix-12', '--delimiter=M --from=si --suffix=M 40M',     {OUT=>"40MM"}],

     # The 'M' is treated as a delimiter, and so the input value is '4000'
     ['mix-13', '--delimiter=M --to=si --from=auto 4000M5000M9000',
             {OUT=>"4.0KM5000M9000"}],
     # 'M' is the delimiter, so the second input field is '5000'
     ['mix-14', '--delimiter=M --field 2 --from=auto --to=si 4000M5000M9000',
             {OUT=>"4000M5.0KM9000"}],



     ## Header testing

     # header - silently ignored with command line parameters
     ['header-1', '--header --to=iec 4096', {OUT=>"4.0K"}],

     # header warning with --debug
     ['header-2', '--debug --header --to=iec 4096', {OUT=>"4.0K"},
             {ERR=>"$prog: --header ignored with command-line input\n"}],

     ['header-3', '--header=A',
             {ERR=>"$prog: invalid header value 'A'\n"},
             {EXIT => 1},],
     ['header-4', '--header=0',
             {ERR=>"$prog: invalid header value '0'\n"},
             {EXIT => 1},],
     ['header-5', '--header=-6',
             {ERR=>"$prog: invalid header value '-6'\n"},
             {EXIT => 1},],
     ['header-6', '--debug --header --to=iec',
             {IN_PIPE=>"size\n5000\n90000\n"},
             {OUT=>"size\n4.9K\n88K"}],
     ['header-7', '--debug --header=3 --to=iec',
             {IN_PIPE=>"hello\nworld\nsize\n5000\n90000\n"},
             {OUT=>"hello\nworld\nsize\n4.9K\n88K"}],
     # header, but no actual content
     ['header-8', '--header=2 --to=iec',
             {IN_PIPE=>"hello\nworld\n"},
             {OUT=>"hello\nworld"}],
     # not enough header lines
     ['header-9', '--header=3 --to=iec',
             {IN_PIPE=>"hello\nworld\n"},
             {OUT=>"hello\nworld"}],


     ## human_strtod testing

     # NO_DIGITS_FOUND
     ['strtod-1', '--from=si "foo"',
             {ERR=>"$prog: invalid number: 'foo'\n"},
             {EXIT=> 2}],
     ['strtod-2', '--from=si ""',
             {ERR=>"$prog: invalid number: ''\n"},
             {EXIT=> 2}],

     # INTEGRAL_OVERFLOW
     ['strtod-3', '--from=si "1234567890123456789012345678901234567890'.
                  '1234567890123456789012345678901234567890"',
             {ERR=>"$prog: value too large to be converted: '" .
                     "1234567890123456789012345678901234567890" .
                     "1234567890123456789012345678901234567890'\n",
                     },
             {EXIT=> 2}],

     # FRACTION_NO_DIGITS_FOUND
     ['strtod-5', '--from=si 12.',
             {ERR=>"$prog: invalid number: '12.'\n"},
             {EXIT=>2}],
     ['strtod-6', '--from=si 12.K',
             {ERR=>"$prog: invalid number: '12.K'\n"},
             {EXIT=>2}],

     # whitespace is not allowed after decimal-point
     ['strtod-6.1', '--from=si --delimiter=, "12.  2"',
             {ERR=>"$prog: invalid number: '12.  2'\n"},
             {EXIT=>2}],

     # FRACTION_OVERFLOW
     ['strtod-7', '--from=si "12.1234567890123456789012345678901234567890'.
                  '1234567890123456789012345678901234567890"',
             {ERR=>"$prog: value too large to be converted: '" .
                     "12.1234567890123456789012345678901234567890" .
                     "1234567890123456789012345678901234567890'\n",
                     },
             {EXIT=> 2}],

     # INVALID_SUFFIX
     ['strtod-9', '--from=si 12.2Q',
             {ERR=>"$prog: invalid suffix in input: '12.2Q'\n"},
             {EXIT=>2}],

     # VALID_BUT_FORBIDDEN_SUFFIX
     ['strtod-10', '12M',
             {ERR => "$prog: rejecting suffix " .
                     "in input: '12M' (consider using --from)\n"},
             {EXIT=>2}],

     # MISSING_I_SUFFIX
     ['strtod-11', '--from=iec-i 12M',
             {ERR => "$prog: missing 'i' suffix in input: " .
                     "'12M' (e.g Ki/Mi/Gi)\n"},
             {EXIT=>2}],

     #
     # Test double_to_human()
     #

     # 1K and smaller
     ['dbl-to-human-1','--to=si 800',  {OUT=>"800"}],
     ['dbl-to-human-2','--to=si 0',  {OUT=>"0"}],
     ['dbl-to-human-2.1','--to=si 999',  {OUT=>"999"}],
     ['dbl-to-human-2.2','--to=si 1000',  {OUT=>"1.0K"}],
     #NOTE: the following are consistent with "ls -lh" output
     ['dbl-to-human-2.3','--to=iec 999',  {OUT=>"999"}],
     ['dbl-to-human-2.4','--to=iec 1023',  {OUT=>"1023"}],
     ['dbl-to-human-2.5','--to=iec 1024',  {OUT=>"1.0K"}],
     ['dbl-to-human-2.6','--to=iec 1025',  {OUT=>"1.1K"}],
     ['dbl-to-human-2.7','--to=iec 0',  {OUT=>"0"}],
     # no "i" suffix if output has no suffix
     ['dbl-to-human-2.8','--to=iec-i 0',  {OUT=>"0"}],

     # values resulting in "N.Nx" output
     ['dbl-to-human-3','--to=si 8000', {OUT=>"8.0K"}],
     ['dbl-to-human-3.1','--to=si 8001', {OUT=>"8.1K"}],
     ['dbl-to-human-4','--to=si --round=down 8001', {OUT=>"8.0K"}],

     ['dbl-to-human-5','--to=si --round=down 3500', {OUT=>"3.5K"}],
     ['dbl-to-human-6','--to=si --round=nearest 3500', {OUT=>"3.5K"}],
     ['dbl-to-human-7','--to=si --round=up 3500', {OUT=>"3.5K"}],

     ['dbl-to-human-8','--to=si --round=down    3501', {OUT=>"3.5K"}],
     ['dbl-to-human-9','--to=si --round=nearest  3501', {OUT=>"3.5K"}],
     ['dbl-to-human-10','--to=si --round=up 3501', {OUT=>"3.6K"}],

     ['dbl-to-human-11','--to=si --round=nearest  3550', {OUT=>"3.6K"}],
     ['dbl-to-human-12','--to=si --from=si 999.89K', {OUT=>"1.0M"}],
     ['dbl-to-human-13','--to=si --from=si 9.9K', {OUT=>"9.9K"}],
     ['dbl-to-human-14','--to=si 9900', {OUT=>"9.9K"}],
     ['dbl-to-human-15','--to=iec --from=si 3.3K', {OUT=>"3.3K"}],
     ['dbl-to-human-16','--to=iec --round=down --from=si 3.3K', {OUT=>"3.2K"}],

     # values resulting in 'NNx' output
     ['dbl-to-human-17','--to=si 9999', {OUT=>"10K"}],
     ['dbl-to-human-18','--to=si --round=down 35000', {OUT=>"35K"}],
     ['dbl-to-human-19','--to=iec 35000', {OUT=>"35K"}],
     ['dbl-to-human-20','--to=iec --round=down 35000', {OUT=>"34K"}],
     ['dbl-to-human-21','--to=iec 35000000', {OUT=>"34M"}],
     ['dbl-to-human-22','--to=iec --round=down 35000000', {OUT=>"33M"}],
     ['dbl-to-human-23','--to=si  35000001', {OUT=>"36M"}],
     ['dbl-to-human-24','--to=si --from=si  9.99M', {OUT=>"10M"}],
     ['dbl-to-human-25','--to=si --from=iec 9.99M', {OUT=>"11M"}],
     ['dbl-to-human-25.1','--to=iec 99999', {OUT=>"98K"}],

     # values resulting in 'NNNx' output
     ['dbl-to-human-26','--to=si 999000000000', {OUT=>"999G"}],
     ['dbl-to-human-27','--to=iec 999000000000', {OUT=>"931G"}],
     ['dbl-to-human-28','--to=si 123600000000000', {OUT=>"124T"}],
     ['dbl-to-human-29','--to=si 998123', {OUT=>"999K"}],
     ['dbl-to-human-30','--to=si --round=nearest 998123', {OUT=>"998K"}],
     ['dbl-to-human-31','--to=si 99999', {OUT=>"100K"}],
     ['dbl-to-human-32','--to=iec 102399', {OUT=>"100K"}],
     ['dbl-to-human-33','--to=iec-i 102399', {OUT=>"100Ki"}],


     # Default --round=from-zero
     ['round-1','--to-unit=1024 -- 6000 -6000',
             {OUT=>"6\n-6"}],
     ['round-2','--to-unit=1024 -- 6000.0 -6000.0',
             {OUT=>"5.9\n-5.9"}],
     ['round-3','--to-unit=1024 -- 6000.00 -6000.00',
             {OUT=>"5.86\n-5.86"}],
     ['round-4','--to-unit=1024 -- 6000.000 -6000.000',
             {OUT=>"5.860\n-5.860"}],
     ['round-5','--to-unit=1024 -- 6000.0000 -6000.0000',
             {OUT=>"5.8594\n-5.8594"}],
     # --round=up
     ['round-1-up','--round=up --to-unit=1024 -- 6000 -6000',
             {OUT=>"6\n-5"}],
     ['round-2-up','--round=up --to-unit=1024 -- 6000.0 -6000.0',
             {OUT=>"5.9\n-5.8"}],
     ['round-3-up','--round=up --to-unit=1024 -- 6000.00 -6000.00',
             {OUT=>"5.86\n-5.85"}],
     ['round-4-up','--round=up --to-unit=1024 -- 6000.000 -6000.000',
             {OUT=>"5.860\n-5.859"}],
     ['round-5-up','--round=up --to-unit=1024 -- 6000.0000 -6000.0000',
             {OUT=>"5.8594\n-5.8593"}],
     # --round=down
     ['round-1-down','--round=down --to-unit=1024 -- 6000 -6000',
             {OUT=>"5\n-6"}],
     ['round-2-down','--round=down --to-unit=1024 -- 6000.0 -6000.0',
             {OUT=>"5.8\n-5.9"}],
     ['round-3-down','--round=down --to-unit=1024 -- 6000.00 -6000.00',
             {OUT=>"5.85\n-5.86"}],
     ['round-4-down','--round=down --to-unit=1024 -- 6000.000 -6000.000',
             {OUT=>"5.859\n-5.860"}],
     ['round-5-down','--round=down --to-unit=1024 -- 6000.0000 -6000.0000',
             {OUT=>"5.8593\n-5.8594"}],
     # --round=towards-zero
     ['round-1-to-zero','--ro=towards-zero --to-u=1024 -- 6000 -6000',
             {OUT=>"5\n-5"}],
     ['round-2-to-zero','--ro=towards-zero --to-u=1024 -- 6000.0 -6000.0',
             {OUT=>"5.8\n-5.8"}],
     ['round-3-to-zero','--ro=towards-zero --to-u=1024 -- 6000.00 -6000.00',
             {OUT=>"5.85\n-5.85"}],
     ['round-4-to-zero','--ro=towards-zero --to-u=1024 -- 6000.000 -6000.000',
             {OUT=>"5.859\n-5.859"}],
     ['round-5-to-zero','--ro=towards-zero --to-u=1024 -- 6000.0000 -6000.0000',
             {OUT=>"5.8593\n-5.8593"}],
     # --round=nearest
     ['round-1-near','--ro=nearest --to-u=1024 -- 6000 -6000',
             {OUT=>"6\n-6"}],
     ['round-2-near','--ro=nearest --to-u=1024 -- 6000.0 -6000.0',
             {OUT=>"5.9\n-5.9"}],
     ['round-3-near','--ro=nearest --to-u=1024 -- 6000.00 -6000.00',
             {OUT=>"5.86\n-5.86"}],
     ['round-4-near','--ro=nearest --to-u=1024 -- 6000.000 -6000.000',
             {OUT=>"5.859\n-5.859"}],
     ['round-5-near','--ro=nearest --to-u=1024 -- 6000.0000 -6000.0000',
             {OUT=>"5.8594\n-5.8594"}],


     # Large Values
     ['large-1','1000000000000000', {OUT=>"1000000000000000"}],
     # 18 digits is OK
     ['large-2','1000000000000000000', {OUT=>"1000000000000000000"}],
     # 19 digits is too much (without output scaling)
     ['large-3','10000000000000000000',
             {ERR => "$prog: value too large to be printed: '1e+19' " .
                     "(consider using --to)\n"},
             {EXIT=>2}],

     # Test input:
     # Up to 27 digits is OK.
     ['large-3.1', '--to=si                           1', {OUT=>   "1"}],
     ['large-3.2', '--to=si                          10', {OUT=>  "10"}],
     ['large-3.3', '--to=si                         100', {OUT=> "100"}],
     ['large-3.4', '--to=si                        1000', {OUT=>"1.0K"}],
     ['large-3.5', '--to=si                       10000', {OUT=> "10K"}],
     ['large-3.6', '--to=si                      100000', {OUT=>"100K"}],
     ['large-3.7', '--to=si                     1000000', {OUT=>"1.0M"}],
     ['large-3.8', '--to=si                    10000000', {OUT=> "10M"}],
     ['large-3.9', '--to=si                   100000000', {OUT=>"100M"}],
     ['large-3.10','--to=si                  1000000000', {OUT=>"1.0G"}],
     ['large-3.11','--to=si                 10000000000', {OUT=> "10G"}],
     ['large-3.12','--to=si                100000000000', {OUT=>"100G"}],
     ['large-3.13','--to=si               1000000000000', {OUT=>"1.0T"}],
     ['large-3.14','--to=si              10000000000000', {OUT=> "10T"}],
     ['large-3.15','--to=si             100000000000000', {OUT=>"100T"}],
     ['large-3.16','--to=si            1000000000000000', {OUT=>"1.0P"}],
     ['large-3.17','--to=si           10000000000000000', {OUT=> "10P"}],
     ['large-3.18','--to=si          100000000000000000', {OUT=>"100P"}],
     ['large-3.19','--to=si         1000000000000000000', {OUT=>"1.0E"}],
     ['large-3.20','--to=si        10000000000000000000', {OUT=> "10E"}],
     ['large-3.21','--to=si       210000000000000000000', {OUT=>"210E"}],
     ['large-3.22','--to=si      3210000000000000000000', {OUT=>"3.3Z"}],
     ['large-3.23','--to=si     43210000000000000000000', {OUT=> "44Z"}],
     ['large-3.24','--to=si    543210000000000000000000', {OUT=>"544Z"}],
     ['large-3.25','--to=si   6543210000000000000000000', {OUT=>"6.6Y"}],
     ['large-3.26','--to=si  76543210000000000000000000', {OUT=> "77Y"}],
     ['large-3.27','--to=si 876543210000000000000000000', {OUT=>"877Y"}],

     # More than 27 digits is not OK
     ['large-3.28','--to=si 9876543210000000000000000000',
             {ERR => "$prog: value too large to be converted: " .
                     "'9876543210000000000000000000'\n"},
             {EXIT => 2}],

     # Test Output
     ['large-4.1', '--from=si  9.7M',               {OUT=>"9700000"}],
     ['large-4.2', '--from=si  10M',              {OUT =>"10000000"}],
     ['large-4.3', '--from=si  200M',            {OUT =>"200000000"}],
     ['large-4.4', '--from=si  3G',             {OUT =>"3000000000"}],
     ['large-4.5', '--from=si  40G',           {OUT =>"40000000000"}],
     ['large-4.6', '--from=si  500G',         {OUT =>"500000000000"}],
     ['large-4.7', '--from=si  6T',          {OUT =>"6000000000000"}],
     ['large-4.8', '--from=si  70T',        {OUT =>"70000000000000"}],
     ['large-4.9', '--from=si  800T',      {OUT =>"800000000000000"}],
     ['large-4.10','--from=si  9P',       {OUT =>"9000000000000000"}],
     ['large-4.11','--from=si  10P',     {OUT =>"10000000000000000"}],
     ['large-4.12','--from=si  200P',   {OUT =>"200000000000000000"}],
     ['large-4.13','--from=si  3E',    {OUT =>"3000000000000000000"}],

     # More than 18 digits of output without scaling - no good.
     ['large-4.14','--from=si  40E',
             {ERR => "$prog: value too large to be printed: '4e+19' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],
     ['large-4.15','--from=si  500E',
             {ERR => "$prog: value too large to be printed: '5e+20' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],
     ['large-4.16','--from=si  6Z',
             {ERR => "$prog: value too large to be printed: '6e+21' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],
     ['large-4.17','--from=si  70Z',
             {ERR => "$prog: value too large to be printed: '7e+22' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],
     ['large-4.18','--from=si  800Z',
             {ERR => "$prog: value too large to be printed: '8e+23' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],
     ['large-4.19','--from=si  9Y',
             {ERR => "$prog: value too large to be printed: '9e+24' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],
     ['large-4.20','--from=si  10Y',
             {ERR => "$prog: value too large to be printed: '1e+25' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],
     ['large-4.21','--from=si  200Y',
             {ERR => "$prog: value too large to be printed: '2e+26' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],

     ['large-5.1','--to=si 1000000000000000000', {OUT=>"1.0E"}],
     ['large-5','--from=si --to=si 2E', {OUT=>"2.0E"}],
     ['large-6','--from=si --to=si 3.4Z', {OUT=>"3.4Z"}],
     ['large-7','--from=si --to=si 80Y', {OUT=>"80Y"}],
     ['large-8','--from=si --to=si 9000Z', {OUT=>"9.0Y"}],

     ['large-10','--from=si --to=si 999Y', {OUT=>"999Y"}],
     ['large-11','--from=si --to=iec 999Y', {OUT=>"827Y"}],
     ['large-12','--from=si --round=down --to=iec 999Y', {OUT=>"826Y"}],

     # units can also affect the output
     ['large-13','--from=si --from-unit=1000000 9P',
             {ERR => "$prog: value too large to be printed: '9e+21' " .
                     "(consider using --to)\n"},
             {EXIT => 2}],
     ['large-13.1','--from=si --from-unit=1000000 --to=si 9P', {OUT=>"9.0Z"}],

     # Numbers>999Y are never acceptable, regardless of scaling
     ['large-14','--from=si --to=si 999Y', {OUT=>"999Y"}],
     ['large-14.1','--from=si --to=si 1000Y',
             {ERR => "$prog: value too large to be printed: '1e+27' " .
                     "(cannot handle values > 999Y)\n"},
             {EXIT => 2}],
     ['large-14.2','--from=si --to=si --from-unit=10000 1Y',
             {ERR => "$prog: value too large to be printed: '1e+28' " .
                     "(cannot handle values > 999Y)\n"},
             {EXIT => 2}],

     # debug warnings
     ['debug-1', '--debug 4096', {OUT=>"4096"},
             {ERR=>"$prog: no conversion option specified\n"}],
     # '--padding' is a valid conversion option - no warning should be printed
     ['debug-1.1', '--debug --padding 10 4096', {OUT=>"      4096"}],
     ['debug-2', '--debug --grouping --from=si 4.0K', {OUT=>"4000"},
             {ERR=>"$prog: grouping has no effect in this locale\n"}],
     ['debug-4', '--to=si --debug 12345678901234567890',
             {OUT=>"13E"},
             {ERR=>"$prog: large input value '12345678901234567890':" .
                   " possible precision loss\n"}],
     ['debug-5', '--to=si --from=si --debug 1.12345678901234567890Y',
             {OUT=>"1.2Y"},
             {ERR=>"$prog: large input value '1.12345678901234567890Y':" .
                   " possible precision loss\n"}],

     # dev-debug messages - the actual messages don't matter
     # just ensure the program works, and for code coverage testing.
     ['devdebug-1', '---debug --from=si 4.9K', {OUT=>"4900"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-2', '---debug 4900', {OUT=>"4900"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-3', '---debug --from=auto 4Mi', {OUT=>"4194304"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-4', '---debug --to=si 4000000', {OUT=>"4.0M"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-5', '---debug --to=si --padding=5 4000000', {OUT=>" 4.0M"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-6', '---debug --suffix=Foo 1234Foo', {OUT=>"1234Foo"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-7', '---debug --suffix=Foo 1234', {OUT=>"1234Foo"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-9', '---debug --grouping 10000', {OUT=>"10000"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-10', '---debug --format %f 10000', {OUT=>"10000"},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-11', '---debug --format "%\'-10f" 10000',{OUT=>"10000     "},
             {ERR=>""},
             {ERR_SUBST=>"s/.*//msg"}],
     ['devdebug-12', '---debug --field 2 A',{OUT=>""},
             {ERR=>""}, {EXIT=>2},
             {ERR_SUBST=>"s/.*//msg"}],

     # Invalid parameters
     ['help-1', '--foobar',
             {ERR=>"$prog: unrecognized option '--foobar'\n" .
                   "Try '$prog --help' for more information.\n"},
             {EXIT=>1}],

     ## Format string - check error detection
     ['fmt-err-1', '--format ""',
             {ERR=>"$prog: format '' has no % directive\n"},
             {EXIT=>1}],
     ['fmt-err-2', '--format "hello"',
             {ERR=>"$prog: format 'hello' has no % directive\n"},
             {EXIT=>1}],
     ['fmt-err-3', '--format "hello%"',
             {ERR=>"$prog: format 'hello%' ends in %\n"},
             {EXIT=>1}],
     ['fmt-err-4', '--format "%d"',
             {ERR=>"$prog: invalid format '%d', " .
                   "directive must be %['][-][N]f\n"},
             {EXIT=>1}],
     ['fmt-err-5', '--format "% -43 f"',
             {ERR=>"$prog: invalid format '% -43 f', " .
                   "directive must be %['][-][N]f\n"},
             {EXIT=>1}],
     ['fmt-err-6', '--format "%f %f"',
             {ERR=>"$prog: format '%f %f' has too many % directives\n"},
             {EXIT=>1}],
     ['fmt-err-7', '--format "%123456789012345678901234567890f"',
             {ERR=>"$prog: invalid format '%123456789012345678901234567890f'".
                   " (width overflow)\n"},
             {EXIT=>1}],
     ['fmt-err-8', '--format "%f" --padding 20',
             {ERR=>"$prog: --padding cannot be combined with --format\n"},
             {EXIT=>1}],
     ['fmt-err-9', '--format "%f" --grouping',
             {ERR=>"$prog: --grouping cannot be combined with --format\n"},
             {EXIT=>1}],
     ['fmt-err-10', '--format "%\'f" --to=si',
             {ERR=>"$prog: grouping cannot be combined with --to\n"},
             {EXIT=>1}],
     ['fmt-err-11', '--debug --format "%\'f" 5000', {OUT=>"5000"},
             {ERR=>"$prog: grouping has no effect in this locale\n"}],

     ## Format string - check some corner cases
     ['fmt-1', '--format "%% %f" 5000', {OUT=>"%%5000"}],
     ['fmt-2', '--format "%f %%" 5000', {OUT=>"5000 %%"}],

     ['fmt-3', '--format "--%f--" 5000000', {OUT=>"--5000000--"}],
     ['fmt-4', '--format "--%f--" --to=si 5000000', {OUT=>"--5.0M--"}],

     ['fmt-5', '--format "--%10f--" --to=si 5000000',{OUT=>"--      5.0M--"}],
     ['fmt-6', '--format "--%-10f--" --to=si 5000000',{OUT=>"--5.0M      --"}],
     ['fmt-7', '--format "--%10f--" 5000000',{OUT=>"--   5000000--"}],
     ['fmt-8', '--format "--%-10f--" 5000000',{OUT=>"--5000000   --"}],

     # too-short width
     ['fmt-9', '--format "--%5f--" 5000000',{OUT=>"--5000000--"}],

     # Format + Suffix
     ['fmt-10', '--format "--%10f--" --suffix Foo 50', {OUT=>"--     50Foo--"}],
     ['fmt-11', '--format "--%-10f--" --suffix Foo 50',{OUT=>"--50Foo     --"}],

     # Grouping in C locale - no grouping effect
     ['fmt-12', '--format "%\'f" 50000',{OUT=>"50000"}],
     ['fmt-13', '--format "%\'10f" 50000', {OUT=>"     50000"}],
     ['fmt-14', '--format "%\'-10f" 50000',{OUT=>"50000     "}],

     # Very large format strings
     ['fmt-15', '--format "--%100000f--" --to=si 4200',
                  {OUT=>"--" . " " x 99996 . "4.2K--" }],


     ## Check all errors again, this time with --invalid=fail
     ##  Input will be printed without conversion,
     ##  and exit code will be 2
     ['ign-err-1', '--invalid=fail 4Q',
             {ERR => "$prog: invalid suffix in input: '4Q'\n"},
             {OUT => "4Q\n"},
             {EXIT => 2}],
     ['ign-err-2', '--invalid=fail 4M',
             {ERR => "$prog: rejecting suffix " .
             "in input: '4M' (consider using --from)\n"},
             {OUT => "4M\n"},
             {EXIT => 2}],
     ['ign-err-3', '--invalid=fail --from=si 4MQ',
             {ERR => "$prog: invalid suffix in input '4MQ': 'Q'\n"},
             {OUT => "4MQ\n"},
             {EXIT => 2}],
     ['ign-err-4', '--invalid=fail --suffix=Foo --to=si   7000FooF',
              {ERR => "$prog: invalid suffix in input: '7000FooF'\n"},
              {OUT => "7000FooF\n"},
              {EXIT => 2}],
     ['ign-err-5','--invalid=fail --field 3 --from=auto "Hello 40M World 90G"',
             {ERR => "$prog: invalid number: 'World'\n"},
             {OUT => "Hello 40M World 90G\n"},
             {EXIT => 2}],
     ['ign-err-6', '--invalid=fail --field 3 --to=si "Hello World"',
             {ERR => "$prog: input line is too short, no numbers found " .
                     "to convert in field 3\n"},
             {OUT => "Hello World\n"},
             {EXIT => 2}],
     ['ign-err-7', '--invalid=fail --from=si "foo"',
             {ERR => "$prog: invalid number: 'foo'\n"},
             {OUT => "foo\n"},
             {EXIT=> 2}],
     ['ign-err-8', '--invalid=fail 12M',
             {ERR => "$prog: rejecting suffix " .
                     "in input: '12M' (consider using --from)\n"},
             {OUT => "12M\n"},
             {EXIT => 2}],
     ['ign-err-9', '--invalid=fail --from=iec-i 12M',
             {ERR => "$prog: missing 'i' suffix in input: " .
                     "'12M' (e.g Ki/Mi/Gi)\n"},
             {OUT => "12M\n"},
             {EXIT=>2}],
     ['ign-err-10','--invalid=fail 10000000000000000000',
             {ERR => "$prog: value too large to be printed: '1e+19' " .
                     "(consider using --to)\n"},
             {OUT => "10000000000000000000\n"},
             {EXIT=>2}],
     ['ign-err-11','--invalid=fail --to=si 9876543210000000000000000000',
             {ERR => "$prog: value too large to be converted: " .
                     "'9876543210000000000000000000'\n"},
             {OUT => "9876543210000000000000000000\n"},
             {EXIT => 2}],

     ## Ignore Errors with multiple conversions
     ['ign-err-m1', '--invalid=ignore --to=si 1000 2000 bad 3000',
             {OUT => "1.0K\n2.0K\nbad\n3.0K"},
             {EXIT => 0}],
     ['ign-err-m1.1', '--invalid=ignore --to=si',
             {IN_PIPE => "1000\n2000\nbad\n3000\n"},
             {OUT => "1.0K\n2.0K\nbad\n3.0K"},
             {EXIT => 0}],
     ['ign-err-m1.3', '--invalid=fail --debug --to=si 1000 2000 3000',
             {OUT => "1.0K\n2.0K\n3.0K"},
             {EXIT => 0}],
     ['ign-err-m2', '--invalid=fail --to=si 1000 Foo 3000',
             {OUT => "1.0K\nFoo\n3.0K\n"},
             {ERR => "$prog: invalid number: 'Foo'\n"},
             {EXIT => 2}],
     ['ign-err-m2.1', '--invalid=warn --to=si',
             {IN_PIPE => "1000\nFoo\n3000\n"},
             {OUT => "1.0K\nFoo\n3.0K"},
             {ERR => "$prog: invalid number: 'Foo'\n"},
             {EXIT => 0}],

     # --debug will trigger a final warning at EOF
     ['ign-err-m2.2', '--invalid=fail --debug --to=si 1000 Foo 3000',
             {OUT => "1.0K\nFoo\n3.0K\n"},
             {ERR => "$prog: invalid number: 'Foo'\n" .
                     "$prog: failed to convert some of the input numbers\n"},
             {EXIT => 2}],

     ['ign-err-m3', '--invalid=fail --field 2 --from=si --to=iec',
             {IN_PIPE => "A 1K x\nB 2M y\nC 3G z\n"},
             {OUT => "A 1000 x\nB 2.0M y\nC 2.8G z"},
             {EXIT => 0}],
     # invalid input on one of the fields
     ['ign-err-m3.1', '--invalid=fail --field 2 --from=si --to=iec',
             {IN_PIPE => "A 1K x\nB Foo y\nC 3G z\n"},
             {OUT => "A 1000 x\nB Foo y\nC 2.8G z\n"},
             {ERR => "$prog: invalid number: 'Foo'\n"},
             {EXIT => 2}],
     # one of the lines is too short
     ['ign-err-m3.2', '--invalid=fail --field 2 --from=si --to=iec',
             {IN_PIPE => "A 1K x\nB\nC 3G z\n"},
             {OUT => "A 1000 x\nB\nC 2.8G z\n"},
             {ERR => "$prog: input line is too short, no numbers found " .
                     "to convert in field 2\n"},
             {EXIT => 2}],
    );

my @Locale_Tests =
  (
     # Locale that supports grouping, but without '--grouping' parameter
     ['lcl-grp-1', '--from=si 7M',   {OUT=>"7000000"},
             {ENV=>"LC_ALL=$locale"}],

     # Locale with grouping
     ['lcl-grp-2', '--from=si --grouping 7M',   {OUT=>"7 000 000"},
             {ENV=>"LC_ALL=$locale"}],

     # Locale with grouping and debug - no debug warning message
     ['lcl-grp-3', '--from=si --debug --grouping 7M',   {OUT=>"7 000 000"},
             {ENV=>"LC_ALL=$locale"}],

     # Input with locale'd decimal-point
     ['lcl-stdtod-1', '--from=si 12,2K', {OUT=>"12200"},
             {ENV=>"LC_ALL=$locale"}],

     ['lcl-dbl-to-human-1', '--to=si 1100', {OUT=>"1,1K"},
             {ENV=>"LC_ALL=$locale"}],

     # Format + Grouping
     ['lcl-fmt-1', '--format "%\'f" 50000',{OUT=>"50 000"},
             {ENV=>"LC_ALL=$locale"}],
     ['lcl-fmt-2', '--format "--%\'10f--" 50000', {OUT=>"--    50 000--"},
             {ENV=>"LC_ALL=$locale"}],
     ['lcl-fmt-3', '--format "--%\'-10f--" 50000',{OUT=>"--50 000    --"},
             {ENV=>"LC_ALL=$locale"}],
     ['lcl-fmt-4', '--format "--%-10f--" --to=si 5000000',
             {OUT=>"--5,0M      --"},
             {ENV=>"LC_ALL=$locale"}],

  );
if ($locale ne 'C')
  {
    # Reset locale to 'C' if LOCALE_FR_UTF8 doesn't output as expected
    # as determined by the separate printf program.
    open(LOC_NUM, "env LC_ALL=$locale printf \"%'d\" 1234|")
      or die "Can't fork command: $!";
    my $loc_num = <LOC_NUM>;
    close(LOC_NUM) || die "Failed to read grouped number from printf";
    if ($loc_num ne '1 234')
      {
        warn "skipping locale grouping tests as 1234 groups like $loc_num\n";
        $locale = 'C';
      }
  }
push @Tests, @Locale_Tests if $locale ne 'C';

## Check all valid/invalid suffixes
foreach my $suf ( 'A' .. 'Z', 'a' .. 'z' ) {
  if ( $suf =~ /^[KMGTPEZY]$/ )
    {
      push @Tests, ["auto-suf-si-$suf","--from=si --to=si 1$suf",
              {OUT=>"1.0$suf"}];
      push @Tests, ["auto-suf-iec-$suf","--from=iec --to=iec 1$suf",
              {OUT=>"1.0$suf"}];
      push @Tests, ["auto-suf-auto-$suf","--from=auto --to=iec 1${suf}i",
              {OUT=>"1.0$suf"}];
      push @Tests, ["auto-suf-iec-to-ieci-$suf","--from=iec --to=iec-i 1${suf}",
              {OUT=>"1.0${suf}i"}];
      push @Tests, ["auto-suf-ieci-to-iec-$suf",
              "--from=iec-i --to=iec 1${suf}i",{OUT=>"1.0${suf}"}];
    }
  else
    {
      push @Tests, ["auto-suf-si-$suf","--from=si --to=si 1$suf",
              {ERR=>"$prog: invalid suffix in input: '1${suf}'\n"},
              {EXIT=>2}];
    }
}

# Prepend the command line argument and append a newline to end
# of each expected 'OUT' string.
my $t;

Test:
foreach $t (@Tests)
  {
    # Don't fiddle with expected OUT string if there's a nonzero exit status.
    foreach my $e (@$t)
      {
        ref $e eq 'HASH' && exists $e->{EXIT} && $e->{EXIT}
          and next Test;
      }

    foreach my $e (@$t)
      {
        ref $e eq 'HASH' && exists $e->{OUT}
          and $e->{OUT} .= "\n"
      }
  }

my $save_temps = $ENV{SAVE_TEMPS};
my $verbose = $ENV{VERBOSE};

my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose);
exit $fail;