9
unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) {
10
plan skip_all => 'Needs DISPLAY';
17
# Search for Padre version
19
ok( $Padre::VERSION, 'Check Padre module version' );
21
my $ext_vers = `$^X script/padre --version`;
22
like( $ext_vers, qr/Perl Application Development and Refactoring Environment/, 'Version string text' );
23
like( $ext_vers, qr/$Padre::VERSION/, 'Version number' );