main( @ARGV ) unless caller( );

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 5;
use Test::Exception;

ok( require( 'pluck4gl' ), 'loaded file okay' ) or exit;

my @ARGV = ('-files=S2008-10-22_13:01.failed.lis','-output=doodad.4gl','/data/mola/sap/daily4gl/S2008-10-22_13:01.4gl');

throws_ok (sub {main ( @ARGV )}, qr/Usage:/, 'main () should give a usage error without any arguments');

throws_ok (sub {main( 'bad command' ) }, qr/Unknown command 'bad command'/,
        '... or with a bad command given');

##</code><code>##

1..5
ok 1 - loaded file okay
parameter `files' not set
parameter `output' not set
# Looks like you planned 5 tests but only ran 1.
# Looks like your test died just after 1.