Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
is($r->[1][0], $binary, "packed jpeg in varbinary column");
is($r->[1][1], $binary, "packed jpeg in image column");
done_testing;

Select or download this

# 
# Perl 5.12.4
...
ok 3 - packed jpeg in varbinary column
ok 4 - packed jpeg in image column
1..4