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