t/xmlfile_default.t

   1 #!/usr/bin/perl
   2
   3 # This test tests whether TAP::Harness::JUnit can be
   4 # instantialized without a xmlfile argument (rt#42069)
   5
   6 use strict;
   7 use warnings;
   8
   9 use TAP::Harness::JUnit;
  10 use Test::More;
  11
  12 plan tests => 3;
  13
  14 my $harness;
  15 close STDERR;
  16 eval { $harness = TAP::Harness::JUnit->new };
  17
  18 ok( !$@ );
  19 ok( $harness );
  20 isa_ok( $harness, 'TAP::Harness::JUnit');