Diff of /t/106.photos.t [df1d7b] .. [32bf97]  Maximize  Restore

Switch to unified view

a/t/106.photos.t b/t/106.photos.t
...
...
51
is ((join ':', @{$speeds}), '2:1/2:1/4');
51
is ((join ':', @{$speeds}), '2:1/2:1/4');
52
ok ($photos->Bracketed == 1);
52
ok ($photos->Bracketed == 1);
53
ok ($photos->Layered == 0);
53
ok ($photos->Layered == 0);
54
54
55
# http://www.cpantesters.org/cpan/report/6a000430-b5c0-11df-af27-ffdf23310e15
55
# http://www.cpantesters.org/cpan/report/6a000430-b5c0-11df-af27-ffdf23310e15
56
ok (Panotools::Photos::_longer ('2', '1/4'), '_longer');
56
is (Panotools::Photos::_normalise ('2'), 2, '_normalise');
57
ok (Panotools::Photos::_longer ('1/2', '1/4'), '_longer');
57
is (Panotools::Photos::_normalise ('1/2'), 0.5, '_normalise');
58
ok (Panotools::Photos::_longer ('2', '1/2'), '_longer');
58
is (Panotools::Photos::_normalise ('1/4'), 0.25, '_normalise');
59
59
60
# sequences have to be in strict order
60
# sequences have to be in strict order
61
$photos->[6] = {path => 'IMG_0007.JPG', exif => {ExposureTime => '1/4'}};
61
$photos->[6] = {path => 'IMG_0007.JPG', exif => {ExposureTime => '1/4'}};
62
$photos->[7] = {path => 'IMG_0008.JPG', exif => {ExposureTime => '1/2'}};
62
$photos->[7] = {path => 'IMG_0008.JPG', exif => {ExposureTime => '1/2'}};
63
63
...
...
75
delete $photos->[8];
75
delete $photos->[8];
76
ok ($photos->Bracketed == 0);
76
ok ($photos->Bracketed == 0);
77
ok ($photos->Layered == 1);
77
ok ($photos->Layered == 1);
78
is ((join ':', @{$photos->Speeds}), '2:1/2:1/4');
78
is ((join ':', @{$photos->Speeds}), '2:1/2:1/4');
79
79
80
ok (Panotools::Photos::_longer (4, 2));
81
ok (Panotools::Photos::_longer (40, 5));
82
ok (Panotools::Photos::_longer (4, '1/2'));
83
ok (Panotools::Photos::_longer ('1/4', '1/200'));
84
ok (Panotools::Photos::_longer (4, 0));
85
ok (Panotools::Photos::_longer ('1/4', 0));
86
87
is ((join ':', $photos->AverageRGB), '1:1:1');
80
is ((join ':', $photos->AverageRGB), '1:1:1');
88
81
89
$photos->[0]->{exif}->{RedBalance} = 2;
82
$photos->[0]->{exif}->{RedBalance} = 2;
90
$photos->[1]->{exif}->{RedBalance} = 4;
83
$photos->[1]->{exif}->{RedBalance} = 4;
91
is ((join ':', $photos->AverageRGB), '1:1:1');
84
is ((join ':', $photos->AverageRGB), '1:1:1');

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks