#!/usr/bin/perl -w # basic testing of SDL::Shell use Test::More tests => 1; use strict; use vars qw/@INC/; BEGIN { unshift @INC, ('../blib/lib'); unshift @INC, ('../blib/arch'); chdir 't' if -d 't'; # does not work, since it complains about missing AddCommand in Console # use_ok( 'SDL::Shell' ); } # #can_ok ('SDL::Shell', qw/ # new # process # /); is (1,1)