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