From: Marius Gavrilescu <marius@ieval.ro>
Date: Wed, 8 Jul 2015 22:13:30 +0000 (+0300)
Subject: Improve tests by also testing reverse conversions
X-Git-Tag: 0.002001~3
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=5fe5621619cabcccaccc1b2de34654f32d1dc475;p=convert-color-hsluv.git

Improve tests by also testing reverse conversions
---

diff --git a/t/Convert-Color-HUSL.t b/t/Convert-Color-HUSL.t
index e5e1673..3474d3c 100644
--- a/t/Convert-Color-HUSL.t
+++ b/t/Convert-Color-HUSL.t
@@ -4,35 +4,45 @@ use strict;
 use warnings;
 
 use Convert::Color::RGB8;
-use JSON::PP qw/decode_json/;
-use Test::More tests => 5 * 4096;
+use Test::More tests => 7 * ($ENV{RELEASE_TESTING} ? 4096 : 512);
 
 use constant EPSILON => $ENV{RELEASE_TESTING} ? 1e-11 : 2e-4;
 my @spaces = qw/XYZ LUV LCh HUSL HUSLp/;
 
 sub isf {
-	my ($x, $y, $name) = @_;
-	ok !grep({ abs ($_ - shift @$y) > EPSILON } @$x), $name;
+	my ($xx, $yy, $name) = @_;
+	for (0 .. 2) {
+		my ($x, $y) = ($xx->[$_], $yy->[$_]);
+		do { diag "$x != $y"; return fail $name } if abs ($x - $y) > EPSILON;
+	}
+	pass $name;
 }
 
+my @tests;
+
 if ($ENV{RELEASE_TESTING}) {
 	require JSON::MaybeXS;
 	open my $fh, '<', 't/snapshot-rev4.json';
 	my $snapshot = join '', <$fh>;
 
 	my %tests = %{JSON::MaybeXS::decode_json $snapshot};
-
-	for my $color (sort keys %tests) {
-		my $col = Convert::Color::RGB8->new(substr $color, 1);
-		isf $col->convert_to(lc), $tests{$color}{lc()}, "convert $color to $_" for @spaces;
-	}
+	@tests = map { [$_, $tests{$_}] } sort keys %tests;
 } else {
 	open my $fh, '<', 't/snapshot-rev4.csv';
 	<$fh>;
 
 	while (<$fh>) {
 		my ($color, @good) = split ',';
-		my $col = Convert::Color::RGB8->new($color);
-		isf $col->convert_to(lc), \@good, "convert $color to $_" for @spaces
+		my %test;
+		$test{rgb} = [Convert::Color::RGB8->new($color)->rgb];
+		$test{lc $spaces[$_]} = [@good[$_ * 3 .. $_ * 3 + 2]] for 0 .. $#spaces;
+		push @tests, ["#$color", \%test]
 	}
 }
+
+for my $test (@tests) {
+	my ($color, $data) = @$test;
+	my $col = Convert::Color::RGB8->new(substr $color, 1);
+	isf $col->convert_to(lc), $data->{lc()}, "convert $color to $_" for @spaces;
+	isf [$col->convert_to(lc)->rgb], $data->{rgb}, "convert $color to $_ and back" for qw/HUSL HUSLp/;
+}