1*5759b3d2Safresh1#!/usr/bin/perl -w 2*5759b3d2Safresh1# HARNESS-NO-PRELOAD 3*5759b3d2Safresh1 4*5759b3d2Safresh1# Make sure all the modules have the same version 5*5759b3d2Safresh1# 6*5759b3d2Safresh1# TBT has its own version system. 7*5759b3d2Safresh1 8*5759b3d2Safresh1use strict; 9*5759b3d2Safresh1use Test::More; 10*5759b3d2Safresh1 11*5759b3d2Safresh1require Test::Builder; 12*5759b3d2Safresh1require Test::Builder::Module; 13*5759b3d2Safresh1require Test::Simple; 14*5759b3d2Safresh1 15*5759b3d2Safresh1my $dist_version = Test::More->VERSION; 16*5759b3d2Safresh1 17*5759b3d2Safresh1like( $dist_version, qr/^ \d+ \. \d+ $/x ); 18*5759b3d2Safresh1 19*5759b3d2Safresh1my @modules = qw( 20*5759b3d2Safresh1 Test::Simple 21*5759b3d2Safresh1 Test::Builder 22*5759b3d2Safresh1 Test::Builder::Module 23*5759b3d2Safresh1); 24*5759b3d2Safresh1 25*5759b3d2Safresh1for my $module (@modules) { 26*5759b3d2Safresh1 is( $dist_version, $module->VERSION, $module ); 27*5759b3d2Safresh1} 28*5759b3d2Safresh1 29*5759b3d2Safresh1done_testing(4); 30