Blame t/09_system.t

Packit 164714
#!/usr/bin/perl -w
Packit 164714
use strict;
Packit 164714
use Test::More tests => 24;
Packit 164714
use Config;
Packit 164714
Packit 164714
# We want to invoke our sub-commands using Perl.
Packit 164714
Packit 164714
my $perl_path = $Config{perlpath};
Packit 164714
Packit 164714
if ($^O ne 'VMS') {
Packit 164714
	$perl_path .= $Config{_exe}
Packit 164714
		unless $perl_path =~ m/$Config{_exe}$/i;
Packit 164714
}
Packit 164714
Packit 164714
use IPC::System::Simple qw(system);
Packit 164714
chdir("t");	# Ignore return, since we may already be in t/
Packit 164714
Packit 164714
system($perl_path,"exiter.pl",0);
Packit 164714
ok(1,"Multi-arg system");
Packit 164714
Packit 164714
system("$perl_path exiter.pl 0");
Packit 164714
ok(1,"Single-arg system success");
Packit 164714
Packit 164714
foreach (1..5,250..255) {
Packit 164714
Packit 164714
	eval {
Packit 164714
		system($perl_path,"exiter.pl",$_);
Packit 164714
	};
Packit 164714
Packit 164714
	like($@, qr/unexpectedly returned exit value $_/, "Multi-arg system fail");
Packit 164714
}
Packit 164714
Packit 164714
# Single arg tests
Packit 164714
Packit 164714
Packit 164714
foreach (1..5,250..255) {
Packit 164714
Packit 164714
	eval {
Packit 164714
		system("$perl_path exiter.pl $_");
Packit 164714
	};
Packit 164714
Packit 164714
	like($@, qr/unexpectedly returned exit value $_/, "Single-arg system fail" );
Packit 164714
}
Packit 164714