diff options
author | Guillaume Rousse <guillomovitch@mageia.org> | 2012-05-24 16:45:10 +0000 |
---|---|---|
committer | Guillaume Rousse <guillomovitch@mageia.org> | 2012-05-24 16:45:10 +0000 |
commit | 92f2b024a4a59e820ca379c002b15f827476cdbc (patch) | |
tree | 16b484dbd22b727aae7e38f39c9f5fd0c3c9ab24 /t | |
parent | 22ca463cdd9f6d3402defe15348bbb5dd1f4668b (diff) | |
download | perl-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
Diffstat (limited to 't')
-rw-r--r-- | t/test.t | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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" ); |