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