1#!/usr/bin/perl -w 2# vim: set ft=perl: 3 4use strict; 5 6use Test::More; 7use Shell::Base; 8 9my %args = ( 10 ONE => 1, 11 TWO => 2, 12 THREE => 3, 13 FOUR => 4, 14 FIVE => 5, 15 SIX => 6, 16 SEVEN => 7, 17 EIGHT => 8, 18 NINE => 9, 19 TEN => 10, 20); 21my $args = \%args; 22 23my $sh = Shell::Base->new(\%args); 24 25plan tests => scalar(keys(%args)) * 2 + 1; 26 27is($args, sprintf("%s", $sh->args), '$self->args returns original hash'); 28 29for my $key (keys %args) { 30 my $lckey = lc $key; 31 is($sh->args($key), $args{$key}, "Got correct data for $key"); 32 is($sh->args($lckey), $args{$key}, "Got correct data for $lckey"); 33} 34