diff options
Diffstat (limited to 'tests/seq/basic')
-rwxr-xr-x | tests/seq/basic | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/seq/basic b/tests/seq/basic index 95e563a07..d1002bf38 100755 --- a/tests/seq/basic +++ b/tests/seq/basic @@ -31,6 +31,17 @@ my @Tests = ['neg-2', qw(-.1 .1 .1), {OUT => [qw(-0.1 0 0.1)]}], ['neg-3', qw(1 -1 0), {OUT => [qw(1 0)]}], ['neg-4', qw(1 -1 -1), {OUT => [qw(1 0 -1)]}], + + ['int-1', qw(--format=%d 1 -1 -1), {OUT => [qw(1 0 -1)]}], + ['int-2', qw(--format=%02d 1 -1 -1), {OUT => [qw(01 00 -1)]}], + ['int-3', qw(--format=%03d 1 -1 -1), {OUT => [qw(001 000 -01)]}], + + # this will fail on systems where `int' != 32 bits + ['hex-1', qw(--format=%x 1 -1 -1), {OUT => [qw(1 0 ffffffff)]}], + + ['hex-2', qw(--format=%x 32 36), {OUT => [qw(20 21 22 23 24)]}], + + ['oct-1', qw(--format=%o 32 36), {OUT => [qw(40 41 42 43 44)]}], ); # Append a newline to each entry in the OUT array. |