select $fh;
my %tests = %{decode_json read_file 't/snapshot-rev4.json'};
-my @colors = qw/xyz luv lch husl huslp/;
+my @colors = qw/xyz luv lch hsluv hpluv/;
-say join ',', qw/rgb8 xyz_x xyz_y xyz_z luv_l luv_u luv_v lch_l lch_c lch_h husl_h husl_s husl_l huslp_h husl_s husl_l/;
+say join ',', qw/rgb8 xyz_x xyz_y xyz_z luv_l luv_u luv_v lch_l lch_c lch_h hsluv_h hsluv_s hsluv_l hpluv_h hsluv_s hsluv_l/;
for my $rgb8 (sort keys %tests) {
next if $rgb8 =~ m/[13579bde]/i;
my @cols = map { @{$tests{$rgb8}{$_}} } @colors;