#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 4;
use Test::Output;

stderr_is { qx{perl -c pm_script_testing.pl} }
            "pm_script_testing.pl syntax OK\n", 'Test Syntax';

stderr_is { qx{pm_script_testing.pl} }
            "Argument required!\n", 'Test Zero Arguments';
            
is(qx{pm_script_testing.pl 123}, "1: 123\n", 'Test One Argument');

stdout_is { system qw{pm_script_testing.pl 123 qwe} }
            "2: 123 qwe\n", 'Test Two Arguments';