view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

#####################################################################

# This package used from package main to emulate user
# as well as cache output from Term::Interact.
package TestINOUT;
use Carp;

use strict;
sub TIEHANDLE {
    my $class = shift;
    bless [] => $class;
}

sub PRINT {
    my $self = shift;
    my $frog = join '' => @_;
    # let's remove any line formatting introduced by Text::Autoformat
    $frog =~ s/\n//g;
    $frog =~ s/\s+//g;
    unshift @$self, $frog;
}

sub READLINE {
    my $self = shift;
    pop @$self;
}


#####################################################################

# Before `make install' is performed this script should be
# runnable with `make test'. After `make install' it should
# work as `perl test.pl'
package main;
use strict;
use Test;
use Date::Manip;

BEGIN {
    my $plan_tests;

    eval { require DBI };
    if ($@) {
        print STDERR "Could not require DBI...   will skip sql check tests\n";
        $plan_tests = 38;
    } else {
        $plan_tests = 43;
    }
    plan tests => $plan_tests;
 };

use Term::Interact;
ok(1); # ok so far...

# set up object
my $ti = Term::Interact->new(
    date_format_display  =>  '%d-%b-%Y',
    date_format_return   =>  '%d-%b-%Y',
    FH_IN                =>  \*STDIN,
    FH_OUT               =>  \*STDOUT,
);
ok( ref $ti ? 1 : 0 );


### test parameters method
# get a href of all parm info
my $parm = $ti->parameters;
ok( ref $parm eq 'HASH' ? 1 : 0 );

# get list or parm names
my @parameters = $ti->parameters;