lib/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 => 58;
   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       TAP::Base
  16       TAP::Formatter::Color
  17       TAP::Formatter::Console::ParallelSession
  18       TAP::Formatter::Console::Session
  19       TAP::Formatter::Console
  20       TAP::Harness
  21       TAP::Parser::Aggregator
  22       TAP::Parser::Grammar
  23       TAP::Parser::Iterator::Array
  24       TAP::Parser::Iterator::Process
  25       TAP::Parser::Iterator::Stream
  26       TAP::Parser::Iterator
  27       TAP::Parser::Multiplexer
  28       TAP::Parser::Result::Bailout
  29       TAP::Parser::Result::Comment
  30       TAP::Parser::Result::Plan
  31       TAP::Parser::Result::Test
  32       TAP::Parser::Result::Unknown
  33       TAP::Parser::Result::Version
  34       TAP::Parser::Result::YAML
  35       TAP::Parser::Result
  36       TAP::Parser::Source::Perl
  37       TAP::Parser::Source
  38       TAP::Parser::YAMLish::Reader
  39       TAP::Parser::YAMLish::Writer
  40       Test::Harness
  41     );
  42
  43     foreach my $class (@classes) {
  44         use_ok $class or BAIL_OUT("Could not load $class");
  45         is $class->VERSION, TAP::Parser->VERSION,
  46           "... and $class should have the correct version";
  47     }
  48     diag("Testing Test::Harness $Test::Harness::VERSION, Perl $], $^X");
  49 }