use strict;
use warnings;
use Tk;
use Tk::JPEG;
my($main_window);
$main_window = MainWindow->new();
$main_window->Photo(-format => 'jpeg', -file => 'test.jpg')->pack;
MainLoop;
####
'wrong # args: should be "pack option arg ?arg ...?" at tk.pl line 9.'
####
'bad option "image1": must be configure, forget, info, propagate or slaves at tk.pl line 9'