aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Rousse <guillomovitch@mageia.org>2012-05-24 16:45:10 +0000
committerGuillaume Rousse <guillomovitch@mageia.org>2012-05-24 16:45:10 +0000
commit92f2b024a4a59e820ca379c002b15f827476cdbc (patch)
tree16b484dbd22b727aae7e38f39c9f5fd0c3c9ab24
parent22ca463cdd9f6d3402defe15348bbb5dd1f4668b (diff)
downloadperl-Parse-EDID-92f2b024a4a59e820ca379c002b15f827476cdbc.tar
perl-Parse-EDID-92f2b024a4a59e820ca379c002b15f827476cdbc.tar.gz
perl-Parse-EDID-92f2b024a4a59e820ca379c002b15f827476cdbc.tar.bz2
perl-Parse-EDID-92f2b024a4a59e820ca379c002b15f827476cdbc.tar.xz
perl-Parse-EDID-92f2b024a4a59e820ca379c002b15f827476cdbc.zip
factorize conversion
-rw-r--r--t/test.t8
1 files changed, 4 insertions, 4 deletions
diff --git a/t/test.t b/t/test.t
index eba3ed7..37e9bae 100644
--- a/t/test.t
+++ b/t/test.t
@@ -14,7 +14,7 @@ use Test::More;
my %tests = (
sample1 => [
[
- binary('00ffffffffffff0006af14a10000000001120103901a10780a50c59858528e2725505400000001010101010101010101010101010101ea1a007e502010303020360005a31000001aea1a007e502010303020360005a31000001a000000fe00593734374480423132314557300000000000000000000000000001010a202000a5')
+ '00ffffffffffff0006af14a10000000001120103901a10780a50c59858528e2725505400000001010101010101010101010101010101ea1a007e502010303020360005a31000001aea1a007e502010303020360005a31000001a000000fe00593734374480423132314557300000000000000000000000000001010a202000a5'
],
[
[
@@ -117,8 +117,8 @@ my %tests = (
],
sample2 => [
[
- binary('00ffffffffffff0006af14a10000000001120103901a10780a50c59858528e2725505400000001010101010101010101010101010101ea1a007e502010303020360005a31000001aea1a007e502010303020360005a31000001a000000fe00593734374480423132314557300000000000000000000000000001010a202000a5'),
- binary('00ffffffffffff0022f0f62601010101181401036e362378eece50a3544c99260f5054a56b8081408180a900a940b300d10001010101283c80a070b023403020360022602100001a000000fc004850204c5032343735770a2020000000fd0030551e5e15000a202020202020000000ff00434e43303234303343500a20200085')
+ '00ffffffffffff0006af14a10000000001120103901a10780a50c59858528e2725505400000001010101010101010101010101010101ea1a007e502010303020360005a31000001aea1a007e502010303020360005a31000001a000000fe00593734374480423132314557300000000000000000000000000001010a202000a5',
+ '00ffffffffffff0022f0f62601010101181401036e362378eece50a3544c99260f5054a56b8081408180a900a940b300d10001010101283c80a070b023403020360022602100001a000000fc004850204c5032343735770a2020000000fd0030551e5e15000a202020202020000000ff00434e43303234303343500a20200085'
],
[
[
@@ -403,7 +403,7 @@ foreach my $test (keys %tests) {
my @edids = find_edid_in_string($string);
is_deeply(
\@edids,
- $tests{$test}->[0],
+ [ map { binary($_) } @{$tests{$test}->[0]} ],
"file $test: edids extraction"
);