Blame t/version.t

Packit 6427f8
#!/usr/bin/perl -w
Packit 6427f8
use strict;
Packit 6427f8
use Test::More;
Packit 6427f8
Packit 6427f8
if (not $ENV{RELEASE_TESTING}) {
Packit 6427f8
    plan( skip_all => 'Release test.  Set $ENV{RELEASE_TESTING} to true to run.');
Packit 6427f8
}
Packit 6427f8
plan tests => 8;
Packit 6427f8
Packit 6427f8
# For the moment, we'd like all our versions to be the same.
Packit 6427f8
# In order to play nicely with some code scanners, they need to be
Packit 6427f8
# hard-coded into the files, rather than just nicking the version
Packit 6427f8
# from autodie::exception at run-time.
Packit 6427f8
Packit 6427f8
require Fatal;
Packit 6427f8
require autodie;
Packit 6427f8
require autodie::hints;
Packit 6427f8
require autodie::exception;
Packit 6427f8
require autodie::exception::system;
Packit 6427f8
Packit 6427f8
ok(defined($autodie::VERSION), 'autodie has a version');
Packit 6427f8
ok(defined($autodie::exception::VERSION), 'autodie::exception has a version');
Packit 6427f8
ok(defined($autodie::hints::VERSION), 'autodie::hints has a version');
Packit 6427f8
ok(defined($Fatal::VERSION), 'Fatal has a version');
Packit 6427f8
is($Fatal::VERSION, $autodie::VERSION);
Packit 6427f8
is($autodie::VERSION, $autodie::exception::VERSION);
Packit 6427f8
is($autodie::exception::VERSION, $autodie::exception::system::VERSION);
Packit 6427f8
is($Fatal::VERSION, $autodie::hints::VERSION);