+
+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/;
+}