my $mw = eval { MainWindow->new(
    -title => q{Tk::ROSyntaxText: 01.instantiate.t},
); };

if ($mw) {
    plan tests => 3;
}
else {
    plan skip_all => q{No display detected.};
}