#!/usr/bin/env perl
use strict;
use warnings;
use rlib '../lib';
use Test::More;
note( "Testing Devel::Trepan::CmdProcessor::Validate" );
BEGIN {
use_ok( 'Devel::Trepan::CmdProcessor::Validate' );
}
import Devel::Trepan::CmdProcessor;
note 'Test get onoff';
for my $pair (['1', 1],  ['on',  1],
              ['0', 0],  ['off', 0]) {
    my ($arg, $expected) = ($pair->[0], $pair->[1]);
    is(Devel::Trepan::CmdProcessor::get_onoff('bogus', $arg), $expected, 
        "onoff of \"$arg\" should be $expected");
}
     
note 'Test get_int_noerr';
for my $pair (['1',     1],  ['on',  undef],
              ['+0',    0],  ['1024', 1024],
              ['12  ', 12],  ['ab12', undef],
              ['1+2',   3], 
    ) {
    my ($arg, $expected) = ($pair->[0], $pair->[1]);
    my $print_val = defined $expected ? $expected : 'undef';
    is(Devel::Trepan::CmdProcessor::get_int_noerr('bogus', $arg), $expected, 
        "get_int_noerr of \"$arg\" should be $print_val");
}
require Devel::Trepan::CmdProcessor;
my $cmdproc = Devel::Trepan::CmdProcessor->new;
note 'Test get_an_int';
is($cmdproc->get_an_int(72, 
                        {min_value => 10, 
                         max_value => undef}), 72,
    "No limit on max value");
     
done_testing();