1*256a93a4Safresh1#!perl 2*256a93a4Safresh1#=============================================================================== 3*256a93a4Safresh1# 4*256a93a4Safresh1# t/94_changes.t 5*256a93a4Safresh1# 6*256a93a4Safresh1# DESCRIPTION 7*256a93a4Safresh1# Test script to check CPAN::Changes conformance. 8*256a93a4Safresh1# 9*256a93a4Safresh1# COPYRIGHT 10*256a93a4Safresh1# Copyright (C) 2015 Steve Hay. All rights reserved. 11*256a93a4Safresh1# 12*256a93a4Safresh1# LICENCE 13*256a93a4Safresh1# This script is free software; you can redistribute it and/or modify it under 14*256a93a4Safresh1# the same terms as Perl itself, i.e. under the terms of either the GNU 15*256a93a4Safresh1# General Public License or the Artistic License, as specified in the LICENCE 16*256a93a4Safresh1# file. 17*256a93a4Safresh1# 18*256a93a4Safresh1#=============================================================================== 19*256a93a4Safresh1 20*256a93a4Safresh1use 5.008001; 21*256a93a4Safresh1 22*256a93a4Safresh1use strict; 23*256a93a4Safresh1use warnings; 24*256a93a4Safresh1 25*256a93a4Safresh1use Test::More; 26*256a93a4Safresh1 27*256a93a4Safresh1#=============================================================================== 28*256a93a4Safresh1# MAIN PROGRAM 29*256a93a4Safresh1#=============================================================================== 30*256a93a4Safresh1 31*256a93a4Safresh1MAIN: { 32*256a93a4Safresh1 plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING}; 33*256a93a4Safresh1 34*256a93a4Safresh1 my $ok = eval { 35*256a93a4Safresh1 require Test::CPAN::Changes; 36*256a93a4Safresh1 Test::CPAN::Changes->import(); 37*256a93a4Safresh1 1; 38*256a93a4Safresh1 }; 39*256a93a4Safresh1 40*256a93a4Safresh1 if (not $ok) { 41*256a93a4Safresh1 plan skip_all => 'Test::CPAN::Changes required to test Changes'; 42*256a93a4Safresh1 } 43*256a93a4Safresh1 else { 44*256a93a4Safresh1 changes_ok(); 45*256a93a4Safresh1 } 46*256a93a4Safresh1} 47*256a93a4Safresh1 48*256a93a4Safresh1#=============================================================================== 49