3820b9fde8
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Graphics-Color?expand=0&rev=3
25 lines
987 B
Diff
25 lines
987 B
Diff
--- t/01-rgb.t.orig 2010-03-27 15:46:26.000000000 +0100
|
|
+++ t/01-rgb.t 2010-07-25 18:09:54.000000000 +0200
|
|
@@ -1,4 +1,4 @@
|
|
-use Test::More tests => 44;
|
|
+use Test::More tests => 42;
|
|
|
|
use Test::Number::Delta within => 1e-3;
|
|
|
|
@@ -33,8 +33,6 @@
|
|
|
|
cmp_ok($color->as_integer_string, 'eq', '255, 102, 127, 0.00', 'integer string');
|
|
cmp_ok($color->as_hex_string, 'eq', 'ff667f', 'hex string');
|
|
-cmp_ok($color->as_hex_string('#'), '#ff667f', 'hex string with prepend');
|
|
-cmp_ok($color->as_css_hex, '#ff667f', 'hex string with prepend');
|
|
cmp_ok($color->as_percent_string, 'eq', '100%, 40%, 50%, 0.00', 'percent string');
|
|
{
|
|
my $color_z = Graphics::Color::RGB->new(
|
|
@@ -93,4 +91,4 @@
|
|
my $h_wtf = Graphics::Color::RGB->from_hex_string('#f0aacd');
|
|
delta_ok($h_wtf->r, 0.941, 'from_hex_string red');
|
|
delta_ok($h_wtf->g, 0.666, 'from_hex_string green');
|
|
-delta_ok($h_wtf->b, 0.803, 'from_hex_string blue');
|
|
\ No newline at end of file
|
|
+delta_ok($h_wtf->b, 0.803, 'from_hex_string blue');
|