|
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);
|