"/Users/nick/perl5/perlbrew/perls/perl-5.40.1/bin/perl" "-I../t" "-MTkTest" "-e" "checked_test_harness('../xt', 0, '../blib/lib', '../blib/arch')" t/*.t

t/basic.t .. 1/5

##</code><code>##

Test Summary Report
-------------------
t/listbox.t                (Wstat: 0 Tests: 537 Failed: 0)
  TODO passed:   320-322, 328, 502
t/photo.t                  (Wstat: 11 (Signal: SEGV) Tests: 1 Failed: 0)
  Non-zero wait status: 11
  Parse errors: Bad plan.  You planned 111 tests but ran 1.
t/text.t                   (Wstat: 0 Tests: 415 Failed: 0)
  TODO passed:   121
t/wm-tcl.t                 (Wstat: 0 Tests: 315 Failed: 0)
  TODO passed:   64, 86-87, 154-159, 164-165, 171-178, 221-224
                237-239, 264-267, 275-276, 280-283, 300
t/zzScrolled.t             (Wstat: 0 Tests: 94 Failed: 0)
  TODO passed:   52, 66, 80, 94
Files=76, Tests=4257, 62 wallclock secs ( 0.32 usr  0.16 sys +  9.52 cusr  1.97 csys = 11.97 CPU)
Result: FAIL
Failed 1/76 test programs. 0/4257 subtests failed.
make: *** [test_dynamic] Error 255

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = MainWindow->new; $mw->title("Hello World"); $mw->Button(-text => "Done", -command => sub { exit })->pack;
MainLoop;