diff options
author | mertz | 2004-05-12 12:33:33 +0000 |
---|---|---|
committer | mertz | 2004-05-12 12:33:33 +0000 |
commit | 7da79391a8345c441a5de145689404f9ac129a97 (patch) | |
tree | 32d39144c40c2e26efc0f14ab0ce9bd4c6ccdac6 /Perl/t/Images.t | |
parent | 2aaadb4c1860d5b90fb39608a40a5c6bfcfa77c7 (diff) | |
download | tkzinc-7da79391a8345c441a5de145689404f9ac129a97.zip tkzinc-7da79391a8345c441a5de145689404f9ac129a97.tar.gz tkzinc-7da79391a8345c441a5de145689404f9ac129a97.tar.bz2 tkzinc-7da79391a8345c441a5de145689404f9ac129a97.tar.xz |
modifying some test to take into account differences in $zinc->get(-tile) returned
values between perl-tk 800 and perl-tk 804
Diffstat (limited to 'Perl/t/Images.t')
-rw-r--r-- | Perl/t/Images.t | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/Perl/t/Images.t b/Perl/t/Images.t index 85b9714..99111c5 100644 --- a/Perl/t/Images.t +++ b/Perl/t/Images.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: Images.t,v 1.4 2004-05-07 13:52:01 mertz Exp $ +# $Id: Images.t,v 1.5 2004-05-12 12:33:33 mertz Exp $ # Author: Christophe Mertz # @@ -60,11 +60,20 @@ like ($xpm, qr/^Tk::Photo=HASH/ , "creating a Tk::Photo with a .xpm"); #### tiling Tk::Zinc $zinc->configure(-tile => $xpm); -is ($zinc->cget(-tile), "QuitPB.xpm", "verifying Tk::Zinc -tile option value"); +if ($Tk::VERSION < 804) { + is ($zinc->cget(-tile), "QuitPB.xpm", "verifying Tk::Zinc -tile option value"); +} else { + is ($zinc->cget(-tile), $xpm, "verifying Tk::Zinc -tile option value"); +} + &wait ("-tile of Tk::Zinc with QuitPB.xpm"); $zinc->configure(-tile => $photoMickey); -is ($zinc->cget(-tile), "mickey.gif", "verifying Tk::Zinc -tile option value"); +if ($Tk::VERSION < 804) { + is ($zinc->cget(-tile), "mickey.gif", "verifying Tk::Zinc -tile option value"); +} else { + is ($zinc->cget(-tile), $photoMickey, "verifying Tk::Zinc -tile option value"); +} &wait ("-tile of Tk::Zinc with mickey.gif"); # modifying the Tk::Photo to see if the Tk::Zinc -tile changes @@ -75,7 +84,11 @@ $photoMickey->read( Tk->findINC("demos/images/mickey.gif") ); &wait ("-tile of Tk::Zinc should display mickey again VISUAL INSPECTION!"); sleep 1; $zinc->configure(-tile => ""); -is ($zinc->cget(-tile), "", "removing Tk::Zinc -tile"); +if ($Tk::VERSION < 804) { + is ($zinc->cget(-tile), "", "removing Tk::Zinc -tile"); +} else { + is ($zinc->cget(-tile), undef, "removing Tk::Zinc -tile"); +} &wait ("-tile of Tk::Zinc with nothing"); |