← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libtk-gbarr-perl/trusty

« back to all changes in this revision

Viewing changes to t/0basic.t

  • Committer: Bazaar Package Importer
  • Author(s): Rene Mayorga
  • Date: 2008-10-07 16:55:37 UTC
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20081007165537-1x1i3an86zoongvx
Tags: upstream-2.08
Import upstream version 2.08

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/0basic.t
33
33
        TFrame
34
34
      );
35
35
 
36
 
   plan test => (10*@class+3);
37
 
 
38
36
  };
39
37
 
40
 
eval { require Tk; };
41
 
ok($@, "", "loading Tk module");
42
 
 
43
38
my $mw;
44
 
eval {$mw = Tk::MainWindow->new();};
45
 
ok($@, "", "can't create MainWindow");
46
 
ok(Tk::Exists($mw), 1, "MainWindow creation failed");
 
39
BEGIN {
 
40
    if (!eval {
 
41
        require Tk;
 
42
        $mw = Tk::MainWindow->new();
 
43
        Tk::Exists($mw);
 
44
    }) {
 
45
        print "1..0 # skip cannot open DISPLAY\n";
 
46
        CORE::exit;
 
47
    }
 
48
}
 
49
 
 
50
plan test => 10*@class;
47
51
 
48
52
my $w;
49
53
foreach my $class (@class)