# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'

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

use Test::More tests => 8;
BEGIN { use_ok('Script::Toolbox') };

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

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

$OP = {file => {'mod'=>'=s',
                'desc'=>'the input file',
                'mand' => 1,
                'default'=>'/bin/cat'
               }};

$OP2 = {dir => {'mod'=>'=s',
                'desc'=>'the input directory',
                'mand' => 1,
                'default'=>'/bin'
               }};

##############################################################################
$op = Script::Toolbox->new( $OP );
is( ref($op), 'Script::Toolbox', 'New' );

($new,$old) = $op->SetOpsDef($OP2);
is( ref($new), 'Script::Toolbox::Util::Opt',	'SetOpsDef 1' );
is( ref($old), 'Script::Toolbox::Util::Opt',	'SetOpsDef 2' );
is( $old->get('file'), '/bin/cat',	'SetOpsDef 3' );
is( $new->get('dir'),  '/bin',		'SetOpsDef 4' );

is( $op->SetOpt('dir', '/usr'), '/bin', 'SetOpt 1' );
is( $op->GetOpt('dir'),'/usr',  'SetOpt 2' );

unlink "/tmp/05_GetSet.log";