#!/usr/bin/perl -w
use strict;

use Test::Simple tests => 3;

systest( 0, ("who") );
systest( 0, ("who", "am", "i") );
systest( 1, ("bash", "-c", "exit 1") );

sub systest {
	my $expected = shift;
	my @cmd = @_;
	system @cmd;
	my $sysres = $? >> 8;
	ok( $sysres == $expected, "'@cmd' returned $sysres" );
}