01ui.t #2

#!/usr/local/bin/perl -w

=head1 NAME

00ui.t - testing of VCP::UI

=cut

use strict ;

use Carp ;
use Test ;
use VCP::UI;

my $ui;

my @tests = (
sub { 
    $ui = VCP::UI->new;
    ok 1;
},

sub { 
    ok ! defined eval { VCP::UI->new( UI => "NOT::A::REAL::MODULE" )->run };
},

) ;

plan tests => scalar( @tests ) ;

$_->() for @tests ;