From bf2fb239d7a39255fe122db50dd5d03f9baa25ae Mon Sep 17 00:00:00 2001 From: Jay Berkenbilt Date: Sat, 13 Jan 2018 14:32:39 -0500 Subject: Rename png_filter -> predictors --- libtests/qtest/png_filter.test | 95 ------------------------------------------ 1 file changed, 95 deletions(-) delete mode 100644 libtests/qtest/png_filter.test (limited to 'libtests/qtest/png_filter.test') diff --git a/libtests/qtest/png_filter.test b/libtests/qtest/png_filter.test deleted file mode 100644 index ff3cef54..00000000 --- a/libtests/qtest/png_filter.test +++ /dev/null @@ -1,95 +0,0 @@ -#!/usr/bin/env perl -require 5.008; -BEGIN { $^W = 1; } -use strict; -use File::Copy; -use Digest::MD5; - -chdir("png_filter") or die "chdir testdir failed: $!\n"; - -require TestDriver; - -my $td = new TestDriver('png_filter'); - -cleanup(); - -$td->runtest("decode columns = 4", - {$td->COMMAND => "png_filter decode in1 4 1 8"}, - {$td->STRING => "done\n", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); - -$td->runtest("check output", - {$td->FILE => "out"}, - {$td->FILE => "out1"}); - -$td->runtest("decode columns = 5", - {$td->COMMAND => "png_filter decode in2 5 1 8"}, - {$td->STRING => "done\n", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); - -$td->runtest("check output", - {$td->FILE => "out"}, - {$td->FILE => "out2"}); - -$td->runtest("encode columns = 4", - {$td->COMMAND => "png_filter encode out1 4 1 8"}, - {$td->STRING => "done\n", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); - -$td->runtest("check output", - {$td->FILE => "out"}, - {$td->FILE => "in1"}); - -$td->runtest("encode columns = 5", - {$td->COMMAND => "png_filter encode out2 5 1 8"}, - {$td->STRING => "done\n", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); - -$td->runtest("check output", - {$td->FILE => "out"}, - {$td->FILE => "in2"}); - -my @other = ( - '01--32-3-16', - '02--32-1-8', - '03--32-3-8', - '04--32-1-8', - '05--32-3-8', - '06--32-1-8', - '07--32-3-8', - '08--32-1-8', - '09--32-3-8', - '10--32-1-8', - '11--32-3-8', - '12--32-1-4', - ); - -foreach my $i (@other) -{ - $i =~ m/^.*?--(\d+)-(\d+)-(\d+)$/ or die; - my $columns = $1; - my $samples_per_pixel = $2; - my $bits_per_sample = $3; - $td->runtest("decode $i", - {$td->COMMAND => "png_filter decode $i.data" . - " $columns $samples_per_pixel $bits_per_sample"}, - {$td->STRING => "done\n", - $td->EXIT_STATUS => 0}, - $td->NORMALIZE_NEWLINES); - $td->runtest("check output for $i", - {$td->FILE => "out"}, - {$td->FILE => "$i.decoded"}); -} - -cleanup(); - -$td->report(8 + (2 * scalar(@other))); - -sub cleanup -{ - unlink "out"; -} -- cgit v1.2.3-70-g09d2