#!/usr/bin/perl # Load test the Test::SubCalls module use strict; BEGIN { $| = 1; $^W = 1; } # Does everything load? use Test::More tests => 6; ok( $] >= 5.006, 'Your perl is new enough' ); use_ok( 'Test::SubCalls' ); # Did it import what we expect? ok( defined(&sub_track), 'Imported sub_track' ); ok( defined(&sub_calls), 'Imported sub_calls' ); ok( defined(&sub_reset), 'Imported sub_reset' ); ok( defined(&sub_reset_all), 'Imported sub_reset_all' );