Subversion Repositories DevTools

#!/usr/bin/env perl -w

use diagnostics;

use warnings;

use strict;

use Switch;

use Test::More;

use File::Path;

use FindBin;

use lib "$FindBin::Bin/../Lib";

plan( tests => 1474 );

# Using require as the file to be tested is not a module

# Imports all subroutines into the current namespace

require_ok('UtfFilter_ant');   

ok (UtfFilter_ant::containsClosingTag("/>"), "Detected default closing tag");

ok (UtfFilter_ant::containsClosingTag("</testcase>"), "Detected closing tag");

my @filename = UtfFilter_ant::findAntResultsFile();

my $ant_results_file1 = File::Spec->rel2abs("$FindBin::Bin/Test-one.xml");

my $ant_results_file0 = File::Spec->rel2abs("$FindBin::Bin/TEST-com.erggroup.buildtool.utf.AllTests.xml");

is( $#filename, 1, "Correct number of files found");

# Sorted in alphabetical order

is( $filename[0], $ant_results_file0, "First file is correct");

is( $filename[1], $ant_results_file1, "Second file is correct");

$ENV{GBE_RM_LOCATION}='jdbc:oracle:thin:@auperaprm01:1521:RELEASEM';

$ENV{GBE_RM_USERNAME}='RM_READONLY';

$ENV{GBE_RM_PASSWORD}='RM_READONLY';

my ($name, $duration, $outcome) = UtfFilter_ant::getDetails('<testcase classname="junit.framework.JUnit4TestCaseFacade" name="unknown" time="0.01"></testcase>');

is($name, 'junit.framework.JUnit4TestCaseFacade::unknown', 'Test name ok'); 

is($duration, 0.01, 'Test duration is ok'); 

is($outcome, 'PASS', 'Test passed');

($name, $duration, $outcome) = UtfFilter_ant::getDetails('<testcase classname="junit.framework.JUnit4TestCaseFacade" name="unknown" time="0.01">');

is($name, 'junit.framework.JUnit4TestCaseFacade::unknown', 'Test name ok'); 

is($duration, 0.01, 'Test duration is ok'); 

ok(!defined($outcome), 'Test outcome unknown');

my $message;

($message) = UtfFilter_ant::parseMessage( qw/error/, 

    '<error message="Unexpected exception, expected&lt;com.erggroup.sls.card.InvalidDateRangeException&gt; but was&lt;java.lang.NullPointerException&gt;" type="java.lang.Exception">My error message',

    ( 'My second line', 'My third line', '</error>' ));

is($message, 'My error messageMy second lineMy third line', 'Message correct'); 

($message) = UtfFilter_ant::parseMessage( qw/failure/, 

    '<failure message="Unexpected exception, expected&lt;com.erggroup.sls.card.InvalidDateRangeException&gt; but was&lt;java.lang.NullPointerException&gt;" type="java.lang.Exception">My error message',

    ( 'My second line', 'My third line', '</failure>' ));

is($message, 'My error messageMy second lineMy third line', 'Message correct'); 

my %test;

%test = UtfFilter_ant::parseTestCase('qwerty', (

    '<testcase classname="junit.framework.JUnit4TestCaseFacade" name="unknown" time="0.01"></testcase>'

    )); 

is($test{NAME}, 'junit.framework.JUnit4TestCaseFacade::unknown', 'Test name ok'); 

is($test{DURATION}, 0.01, 'Test duration is ok'); 

is($test{OUTCOME}, 'PASS', 'Test passed'); 

ok(!defined($test{MESSAGE}), 'Message undefined'); 

is($test{TARGET_PLATFORM}, 'qwerty', 'Correct target for qwerty'); 

%test = UtfFilter_ant::parseTestCase('wertyu', (

    '<testcase classname="junit.framework.JUnit4TestCaseFacade" name="unknown" time="0.01">',

        '<error message="Unexpected exception, expected&lt;com.erggroup.sls.card.InvalidDateRangeException&gt; but was&lt;java.lang.NullPointerException&gt;" type="java.lang.Exception">My error message',

        '</error>',

    '</testcase>'

    )); 

is($test{NAME}, 'junit.framework.JUnit4TestCaseFacade::unknown', 'Test name ok'); 

is($test{DURATION}, 0.01, 'Test duration is ok'); 

is($test{OUTCOME}, 'ERROR', 'Test errored'); 

is($test{MESSAGE}, 'My error message', 'Message correct'); 

is($test{TARGET_PLATFORM}, 'wertyu', 'Correct target for wertyu'); 

%test = UtfFilter_ant::parseTestCase('ertyu', (

    '<testcase classname="junit.framework.JUnit4TestCaseFacade" name="unknown" time="0.01">',

        '<failure message="Unexpected exception, expected&lt;com.erggroup.sls.card.InvalidDateRangeException&gt; but was&lt;java.lang.NullPointerException&gt;" type="java.lang.Exception">My error message',

        '</failure>',

    '</testcase>'

    )); 

is($test{NAME}, 'junit.framework.JUnit4TestCaseFacade::unknown', 'Test name ok'); 

is($test{DURATION}, 0.01, 'Test duration is ok'); 

is($test{OUTCOME}, 'FAILURE', 'Test failed'); 

is($test{MESSAGE}, 'My error message', 'Message correct'); 

is($test{TARGET_PLATFORM}, 'ertyu', 'Correct target for ertyu'); 

my ($passed, @instance) = UtfFilter_ant::createBuildInstance('dummyTarget');

is ($passed, 0, "Some tests failed at ".__LINE__);

is (@instance, 248, "Has correct number of results") || BAIL_OUT('Incorrect number of tests');

rmtree('reports') if -d 'reports';

ok(! -d 'reports', "Deleted reports folder");

mkdir 'reports' if ! -d 'reports';

ok(-d 'reports', "Created reports folder");

my $out_filename = "reports/Win32-1.xml";

UtfFilter_ant::outputJatsXmlFile($out_filename, @instance);

ok(-e $out_filename, "File exists");

is(-s $out_filename, 52430, "File is correct size");  # this is very brittle

my %params = ( OUTDIR => 'reports', OUTFILE => 'filename', TARGET => 'Ubuntu12' );

$passed = UtfFilter_ant->processUtf(\%params);

is ($passed, 0, "Some tests failed at ".__LINE__);

my @test_results;

($passed, @test_results) = UtfFilter_ant::parseTestRun('dummy2Target', ($ant_results_file1, $ant_results_file0));

is($passed, 0, "Some tests failed");

is (@test_results, 248, 'Found results') || BAIL_OUT('Incorrect number of tests');

SKIP: {

    skip "Don't want output if failed", 1176 if anyTestsFailed();

    my $count = 0;

    # $test is a ref to a hash

    foreach my $test (@test_results) {

        # print "-$count-\n";

        ok (defined $test, "Test found");

        if ($count < 196) {

            # tests above this number have unique test names

            is($test->{NAME}, 'junit.framework.JUnit4TestCaseFacade::unknown', 'Test name ok');

        }

        is ($test->{TARGET_PLATFORM}, 'dummy2Target', 'Build target is \'dummy2Target\''); 

        isnt($test->{DURATION}, 0, 'Test duration is ok');

        switch ($count) {

            case [8..16,152] {

                is($test->{OUTCOME}, 'ERROR', "Found a failed test");

                ok(length($test->{MESSAGE}) > 0, "Message exists");

            }

            else {

                is($test->{OUTCOME}, 'PASS', "Found a passed test");

                isnt(defined($test->{MESSAGE}), 0, "Message exists");

            }

        }

        $count++;

    }

}

sub anyTestsFailed {

    my $builder = Test::More->builder;

    for my $detail ($builder->details) {

        if (!$detail->{ok}) {

            return 1;

        }

    }

    return 0;

}