1#!/usr/bin/perl -w 2use strict; 3use Test::More; 4 5if (not $ENV{RELEASE_TESTING}) { 6 plan( skip_all => 'Release test. Set $ENV{RELEASE_TESTING} to true to run.'); 7} 8plan tests => 8; 9 10# For the moment, we'd like all our versions to be the same. 11# In order to play nicely with some code scanners, they need to be 12# hard-coded into the files, rather than just nicking the version 13# from autodie::exception at run-time. 14 15require Fatal; 16require autodie; 17require autodie::hints; 18require autodie::exception; 19require autodie::exception::system; 20 21ok(defined($autodie::VERSION), 'autodie has a version'); 22ok(defined($autodie::exception::VERSION), 'autodie::exception has a version'); 23ok(defined($autodie::hints::VERSION), 'autodie::hints has a version'); 24ok(defined($Fatal::VERSION), 'Fatal has a version'); 25is($Fatal::VERSION, $autodie::VERSION); 26is($autodie::VERSION, $autodie::exception::VERSION); 27is($autodie::exception::VERSION, $autodie::exception::system::VERSION); 28is($Fatal::VERSION, $autodie::hints::VERSION); 29