1 

     2 use Test::More;

     3 

     4 BEGIN

     5 {

     6     if ( $^O !~ /^freebsd$/i ) {

     7         plan skip_all => 'Module only usable under FreeBSD operating system';

     8     }

     9     else {

    10         if ( $< ) {

    11             plan skip_all => 'Must be root to run tests';

    12         }

    13         else {

    14             plan tests => 7;

    15             use_ok('BSD::Jail::Object');

    16         }

    17     }

    18 }

    19 

    20 # jail identifier we'll do our tests on

    21 my $jid;

    22 

    23 # all methods, public and private

    24 can_ok( 'BSD::Jail::Object', qw/

    25     new _init 

    26     jid ip hostname path

    27     attach jids

    28 

    29     sysctl_len _find_jail

    30     _find_jids _attach _create

    31 /);

    32 

    33 # create

    34 my $j = BSD::Jail::Object->new({

    35         path => '/tmp',

    36         hostname => 'bsd-jail-object-tester',

    37         ip => '127.0.0.1'

    38 });

    39 

    40 is( ref $j, 'BSD::Jail::Object', 'Object namespace' );

    41 is( $j->path, '/tmp', "path verify" );

    42 is( $j->ip, '127.0.0.1', "ip verify" );

    43 is( $j->hostname, 'bsd-jail-object-tester', "hostname verify" );

    44 like( $j->jid, qr/^\d+$/, 'jid is integer (' . $j->jid . ')' );

    45 

    46 # can't easily test attach()

    47         

    48 # end of tests

    49 

    50 

    51 

    52