cpan/Test-Harness/t/000-load.t

   1 #!/usr/bin/perl -wT
   2
   3 use strict;
   4 use lib 't/lib';
   5
   6 use Test::More tests => 78;
   7
   8 BEGIN {
   9
  10     # TAP::Parser must come first
  11     my @classes = qw(
  12       TAP::Parser
  13       App::Prove
  14       App::Prove::State
  15       App::Prove::State::Result
  16       App::Prove::State::Result::Test
  17       TAP::Base
  18       TAP::Formatter::Color
  19       TAP::Formatter::Console::ParallelSession
  20       TAP::Formatter::Console::Session
  21       TAP::Formatter::Console
  22       TAP::Harness
  23       TAP::Parser::Aggregator
  24       TAP::Parser::Grammar
  25       TAP::Parser::Iterator
  26       TAP::Parser::Iterator::Array
  27       TAP::Parser::Iterator::Process
  28       TAP::Parser::Iterator::Stream
  29       TAP::Parser::IteratorFactory
  30       TAP::Parser::Multiplexer
  31       TAP::Parser::Result
  32       TAP::Parser::ResultFactory
  33       TAP::Parser::Result::Bailout
  34       TAP::Parser::Result::Comment
  35       TAP::Parser::Result::Plan
  36       TAP::Parser::Result::Pragma
  37       TAP::Parser::Result::Test
  38       TAP::Parser::Result::Unknown
  39       TAP::Parser::Result::Version
  40       TAP::Parser::Result::YAML
  41       TAP::Parser::Result
  42       TAP::Parser::Scheduler
  43       TAP::Parser::Scheduler::Job
  44       TAP::Parser::Scheduler::Spinner
  45       TAP::Parser::Source::Perl
  46       TAP::Parser::Source
  47       TAP::Parser::YAMLish::Reader
  48       TAP::Parser::YAMLish::Writer
  49       TAP::Parser::Utils
  50       Test::Harness
  51     );
  52
  53     foreach my $class (@classes) {
  54         use_ok $class or BAIL_OUT("Could not load $class");
  55         is $class->VERSION, TAP::Parser->VERSION,
  56           "... and $class should have the correct version";
  57     }
  58
  59     diag("Testing Test::Harness $Test::Harness::VERSION, Perl $], $^X")
  60       unless $ENV{PERL_CORE};
  61 }