libtest-simpleunit-perl/t/20_emptysuite.t

41 lines
772 B
Perl
Raw Permalink Normal View History

2017-09-15 16:12:49 +02:00
#!/usr/bin/perl
#
# Test script for Test::SimpleUnit
# $Id: 20_emptysuite.t,v 1.1 2002/04/23 22:01:34 deveiant Exp $
#
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 08_emptysuite.t'
#
# Please do not commit any changes you make to the module without a
# successful 'make test'!
#
package main;
use strict;
BEGIN { $| = 1; }
### Load up the test framework
use Test::SimpleUnit qw{:functions};
### Test an empty test suite -- used to fail because the setup and teardown
### tests are spliced out. Should now just skip gracefully.
my @testSuite = (
{
name => 'setup',
func => sub {
},
},
{
name => 'teardown',
func => sub {
},
},
);
runTests( @testSuite );