The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#!/usr/bin/perl
use strict;
use FindBin qw/$Bin/;
use_ok('Git::Workflow');
use_ok('Git::Workflow::Pom');
use_ok('Git::Workflow::Repository');
my $perl = File::Spec->rel2abs($^X);
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-branch-clean"), "bin/git-branch-clean compiles");
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-branch-grep" ), "bin/git-branch-grep compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-committers" ), "bin/git-committers compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-cows" ), "bin/git-cows compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-feature" ), "bin/git-feature compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-files" ), "bin/git-files compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-hook-setup" ), "bin/git-hook-setup compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-jira" ), "bin/git-jira compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-pom" ), "bin/git-pom compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-tag-grep" ), "bin/git-tag-grep compiles" );
ok( !(system $perl, "-I $Bin/../lib", '-c', "$Bin/../bin/git-up-to-date" ), "bin/git-up-to-date compiles" );
diag( "Testing git-workflow-tools, Perl $], $^X" );
done_testing();