Commit | Line | Data |
8fde61e3 |
1 | #!/usr/bin/perl -w |
2 | # |
3 | # Copyright (C) 2003 Tels |
4 | # Copyright (C) 2004 David J. Goehrig |
5 | # |
6 | # basic testing of SDL |
7 | |
8 | BEGIN { |
9 | unshift @INC, 'blib/lib','blib/arch'; |
10 | } |
11 | |
12 | use strict; |
13 | use SDL::Config; |
14 | |
15 | use Test::More; |
16 | |
17 | plan ( tests => 9 ); |
18 | |
19 | use_ok( 'SDL' ); |
20 | |
21 | can_ok ('SDL', qw/in verify/); |
22 | |
23 | is (SDL::in('foo','bar'), 0, "foo isn't in ('bar')"); |
24 | is (SDL::in('foo','foo'), 1, "foo is in ('foo')"); |
25 | is (SDL::in('foo','foo','bar'), 1, "foo is in ('foo','bar')"); |
26 | is (SDL::in('foo','foo','bar','foo'), 1, "foo is once in ('foo','bar','foo')"); |
27 | is (SDL::in('foo','fab','bar'), 0, "foo isn't in ('fab','bar')"); |
28 | is (SDL::in('foo','fab',undef,'bar'), 0, "foo isn't in ('fab',undef,'bar')"); |
29 | is (SDL::in('foo','fab',undef,'foo'), 1, "foo is in ('fab',undef,'foo')"); |
30 | |