1#!/usr/bin/perl -w 2# vim: set ft=perl: 3 4use strict; 5 6use Test::More; 7use Shell::Base; 8 9plan tests => 5; 10 11use_ok("Shell::Base"); 12 13my $sh = Shell::Base->new; 14my @comps = $sh->completions(); 15my %comps = map { ($_ => 1) } @comps; 16 17is(scalar @comps, 3, "Found 3 completions"); 18 19ok(defined $comps{'help'}, "Found help"); 20ok(defined $comps{'version'}, "Found do_version"); 21ok(defined $comps{'warranty'}, "Found do_warranty"); 22