#!/usr/bin/env perl use strict; use warnings; use Test::More; plan tests => 2; isnt system($ENV{SEQ_COMMAND}), 0, 'no argumant'; isnt system("$ENV{SEQ_COMMAND} 1 1 1 1"), 0, '4 argumants';