view release on metacpan or  search on metacpan

t/20attributes.t  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;

use Test::More tests => 58;
use App::Maisha;
use App::Maisha::Shell;

# App::Maisha attributes

{
    ok( my $obj = App::Maisha->new(config => 'examples/config.pl'), "got object" );

    for my $k ( qw/
        shell
        config
    / ){
      my $label = "[$k]";
      SKIP: {
        ok( $obj->can($k), "$label can" )
        or skip "'$k' attribute missing", 3;
        isnt( $obj->$k(), undef, "$label has default" );
        is( $obj->$k(123), 123, "$label set" );
        is( $obj->$k, 123, "$label get" );
      };
    }
}

# App::Maisha::Shell attributes

{
    ok( my $obj = App::Maisha::Shell->new(), "got object" );

    for my $k ( qw/
        networks
        prompt_str
        tag_str
        order
        limit
        services
        pager
        format
        chars
        history
        debug
        error
    / ){
      my $label = "[$k]";
      SKIP: {
        ok( $obj->can($k), "$label can" )
        or skip "'$k' attribute missing", 3;
        eval { is( $obj->$k(), undef, "$label has no default" ) };
        eval { is( $obj->$k(123), undef, "$label set" ) };
        eval { is( $obj->$k, 123, "$label get" ) };
      };
    }
}