diff options
author | cvs2svn | 2005-01-24 15:46:33 +0000 |
---|---|---|
committer | cvs2svn | 2005-01-24 15:46:33 +0000 |
commit | e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf (patch) | |
tree | 7061a2d781348fa7d5965b7d7dd5d7ef6b27a7b0 /Perl/t/Text.t | |
parent | e1ed2c6d78bb616e24166c13126adba1b95ea4ea (diff) | |
download | tkzinc-POSTSCRIPT.zip tkzinc-POSTSCRIPT.tar.gz tkzinc-POSTSCRIPT.tar.bz2 tkzinc-POSTSCRIPT.tar.xz |
This commit was manufactured by cvs2svn to create branch 'POSTSCRIPT'.POSTSCRIPT
Diffstat (limited to 'Perl/t/Text.t')
-rw-r--r-- | Perl/t/Text.t | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/Perl/t/Text.t b/Perl/t/Text.t deleted file mode 100644 index bd43a4b..0000000 --- a/Perl/t/Text.t +++ /dev/null @@ -1,58 +0,0 @@ -#!/usr/bin/perl -w - -# -# $Id: Text.t,v 1.2 2004-04-02 12:01:49 mertz Exp $ -# Author: Christophe Mertz -# - -# testing all the import - -BEGIN { - if (!eval q{ -# use Test::More qw(no_plan); - use Test::More tests => 5; - 1; - }) { - print "# tests only work properly with installed Test::More module\n"; - print "1..1\n"; - print "ok 1\n"; - exit; - } - if (!eval q{ - use Tk::Zinc; - 1; - }) { - print "unable to load Tk::Zinc"; - print "1..1\n"; - print "ok 1\n"; - exit; - } - if (!eval q{ - MainWindow->new(); - 1; - }) { - print "# tests only work properly when it is possible to create a mainwindow in your env\n"; - print "1..1\n"; - print "ok 1\n"; - exit; - } -} - - -$mw = MainWindow->new(); -$zinc = $mw->Zinc(-width => 100, -height => 100); - -like ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created"); - -# following a mail in zinc@tls.cena.fr (23 sept 2003) by A. Lemort -# we verify that the -width attribute of text items is converted as an integer -my $text = $zinc->add('text', 1, -position => [10,10], -text => "text"); - -&ok ($zinc->itemconfigure($text, -width => 10.1) or 1, "setting width to 10.1"); -&is ($zinc->itemcget($text, -width), 10, "width attribute was converted to an integer"); -&ok ($zinc->itemconfigure($text, -width => 9.9) or 1, "setting width to 10.9"); -&is ($zinc->itemcget($text, -width), 9, "width attribute was converted to lower integer"); - - - -diag("############## text items test"); |