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