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