37 lines
945 B
Perl
37 lines
945 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Test script for Test::SimpleUnit (import skip functions)
|
||
|
|
# $Id: 04_importSkips.t,v 1.2 2002/03/29 23:41:49 deveiant Exp $
|
||
|
|
#
|
||
|
|
# Before `make install' is performed this script should be runnable with
|
||
|
|
# `make test'. After `make install' it should work as `perl t/01_import.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{:skips};
|
||
|
|
|
||
|
|
sub genTest {
|
||
|
|
my $functionName = shift;
|
||
|
|
return {
|
||
|
|
name => $functionName,
|
||
|
|
test => sub {
|
||
|
|
no strict 'refs';
|
||
|
|
die "$functionName() was not imported" unless defined *{"main::${functionName}"}{CODE};
|
||
|
|
},
|
||
|
|
};
|
||
|
|
}
|
||
|
|
|
||
|
|
### Generate a test suite out of the list of exported functions for the
|
||
|
|
### 'functions' tag
|
||
|
|
my @testSuite = map { s{^&}{}; genTest $_ } @{$Test::SimpleUnit::EXPORT_TAGS{skips}};
|
||
|
|
Test::SimpleUnit::runTests( @testSuite );
|
||
|
|
|
||
|
|
|