74 lines
1.7 KiB
Perl
74 lines
1.7 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Test script for Test::MockClass::MyClass
|
||
|
|
# $Id: 00_MyClass.t,v 1.1 2005/02/18 21:16:20 phaedrus Exp $
|
||
|
|
#
|
||
|
|
# Before `make install' is performed this script should be runnable with
|
||
|
|
# `make test'. After `make install' it should work as `perl test.pl'
|
||
|
|
#
|
||
|
|
# Please do not commit any changes you make to the module without a
|
||
|
|
# successful 'make test'!
|
||
|
|
#
|
||
|
|
|
||
|
|
# always use these:
|
||
|
|
use strict;
|
||
|
|
use warnings qw{all};
|
||
|
|
|
||
|
|
use Test::SimpleUnit qw{:functions};
|
||
|
|
|
||
|
|
Test::SimpleUnit::AutoskipFailedSetup(1);
|
||
|
|
|
||
|
|
# this is actually the very first test, the one to see if the package compile-checks:
|
||
|
|
{
|
||
|
|
no warnings; # for some reason I get:
|
||
|
|
# Use of uninitialized value in eval "string"
|
||
|
|
eval { use Test::MockClass::MyClass; };
|
||
|
|
}
|
||
|
|
my $evalError = $@;
|
||
|
|
|
||
|
|
# create all objects and variables that will be set up later:
|
||
|
|
my $mainObject = undef;
|
||
|
|
my $result = '';
|
||
|
|
my @results = ();
|
||
|
|
|
||
|
|
my @testSuite = (
|
||
|
|
# the setup function:
|
||
|
|
{
|
||
|
|
name => 'setup',
|
||
|
|
func => sub {
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
# the teardown function:
|
||
|
|
{
|
||
|
|
name => 'teardown',
|
||
|
|
func => sub {
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
{
|
||
|
|
name => 'File Loading',
|
||
|
|
test => sub {
|
||
|
|
assertNot( $evalError );
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
{
|
||
|
|
name => 'Object Creation',
|
||
|
|
test => sub {
|
||
|
|
# do assertions knowing that stuff has been set up
|
||
|
|
assertNoException( sub {
|
||
|
|
$mainObject = Test::MockClass::MyClass->new;
|
||
|
|
});
|
||
|
|
assertInstanceOf( 'Test::MockClass::MyClass', $mainObject );
|
||
|
|
assert($mainObject->can( 'foo' ) );
|
||
|
|
assert($mainObject->can( 'bar' ) );
|
||
|
|
assert($mainObject->can( 'bas' ) );
|
||
|
|
assertNot($mainObject->can( 'baz' ) );
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
|
||
|
|
);
|
||
|
|
runTests(@testSuite);
|