1#!/usr/bin/perl -w
2# vim: set ft=perl:
3
4use strict;
5
6use Test::More;
7use Shell::Base;
8
9plan tests => 2;
10
11use_ok("Shell::Base");
12
13package Silly;
14use base qw(Shell::Base);
15
16$Silly::Outro = "I like cake";
17
18sub outro { $Silly::Outro }
19
20package main;
21
22my $sh = Silly->new;
23
24is($sh->outro, $Silly::Outro,  "outro works ok: '$Silly::Outro'");
25