diff options
Diffstat (limited to 'libtests/qtest')
-rw-r--r-- | libtests/qtest/dct.test | 66 | ||||
-rw-r--r-- | libtests/qtest/dct/rawdata | bin | 0 -> 102400 bytes |
2 files changed, 66 insertions, 0 deletions
diff --git a/libtests/qtest/dct.test b/libtests/qtest/dct.test new file mode 100644 index 00000000..f3b28581 --- /dev/null +++ b/libtests/qtest/dct.test @@ -0,0 +1,66 @@ +#!/usr/bin/env perl +require 5.008; +use warnings; +use strict; + +chdir("dct") or die "chdir testdir failed: $!\n"; + +require TestDriver; + +# This test suite does light verification of DCT by running some data +# through a round trip with one encoding system. The +# examples/pdf-create program also exercises DCT but does so more +# fully. + +my $td = new TestDriver('dct'); + +cleanup(); + +$td->runtest("compress", + {$td->COMMAND => "dct_compress rawdata a.jpg 400 256 gray"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}); +$td->runtest("decompress", + {$td->COMMAND => "dct_uncompress a.jpg out"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}); +# Compare +my @raw = get_data('rawdata'); +my @processed = get_data('out'); +my $checked_data = 0; +if ($td->runtest("bytes in data", + {$td->STRING => scalar(@processed)}, + {$td->STRING => scalar(@raw)})) +{ + my $mismatch = 0; + for (my $i = 0; $i < scalar(@raw); ++$i) + { + $checked_data = 1; + my $delta = abs(ord($raw[$i]) - ord($processed[$i])); + if ($delta > 10) + { + ++$mismatch; + } + } + $td->runtest("data is close enough", + {$td->STRING => $mismatch}, + {$td->STRING => '0'}); +} + +cleanup(); + +$td->report(3 + $checked_data); + +sub cleanup +{ + system("rm -f a.jpg out"); +} + +sub get_data +{ + my $file = shift; + local $/ = undef; + open(F, "<$file") || die; + binmode(F); + my $data = <F>; + close(F); + split('', $data); +} diff --git a/libtests/qtest/dct/rawdata b/libtests/qtest/dct/rawdata Binary files differnew file mode 100644 index 00000000..a3594098 --- /dev/null +++ b/libtests/qtest/dct/rawdata |