1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl -w
# basic testing of SDL::Console
use Test::More tests => 2;
use strict;
use vars qw/@INC/;
BEGIN
{
unshift @INC, ('../blib/lib');
unshift @INC, ('../blib/arch');
chdir 't' if -d 't';
use_ok( 'SDL::Console' );
}
can_ok ('SDL::Console', qw/
new draw topmost AddCommand Event print alpha background
list_commands resize position CommandDispatch
/);
# some basic tests:
# this does not work, complains about missing ConsoleInit.al - maybe because
# I don't have sdl_console installed?
#use SDL::Surface;
#my $console =
# SDL::Console->new( -surface => SDL::Surface->new( -name => '', ) );
#is (ref($console), 'SDL::Console', 'new was ok');
|
