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} 8 9if( $ENV{AUTOMATED_TESTING} ) { 10 plan( skip_all => 'This test requires dzil and that is not supported on github actions'); 11} 12 13plan tests => 8; 14 15# For the moment, we'd like all our versions to be the same. 16# In order to play nicely with some code scanners, they need to be 17# hard-coded into the files, rather than just nicking the version 18# from autodie::exception at run-time. 19 20require Fatal; 21require autodie; 22require autodie::hints; 23require autodie::exception; 24require autodie::exception::system; 25 26diag(explain(\%ENV)); 27 28ok(defined($autodie::VERSION), 'autodie has a version'); 29ok(defined($autodie::exception::VERSION), 'autodie::exception has a version'); 30ok(defined($autodie::hints::VERSION), 'autodie::hints has a version'); 31ok(defined($Fatal::VERSION), 'Fatal has a version'); 32is($Fatal::VERSION, $autodie::VERSION); 33is($autodie::VERSION, $autodie::exception::VERSION); 34is($autodie::exception::VERSION, $autodie::exception::system::VERSION); 35is($Fatal::VERSION, $autodie::hints::VERSION); 36