# Copyright (c) 2002-2005 Cunningham & Cunningham, Inc.
# Released under the terms of the GNU General Public License version 2 or later.
#
# Perl translation by Tony Byrne <fit4perl@byrnehq.com>

package Test::C2FIT::fat::FixtureLoadFixture;
use base 'Test::C2FIT::ColumnFixture';

use strict;

use Error qw( :try );
#use Test::C2FIT::Parse;
use Test::C2FIT::Fixture;

sub LoadResult
{
	my $self = shift;
	$self->loadFixture();
	return "loaded";	# we'll get an exception if it didn't load
}

sub loadFixture
{
	my $self = shift;
	my $fixture = new Test::C2FIT::Fixture();
	$fixture->loadFixture($self->{'FixtureName'});
}

sub ErrorMessage
{
	my $self = shift;
	my $message;
	try
	{
		$self->loadFixture();
		$message = "(none)";
	}
	otherwise
	{
		my $e = shift;
		$message = $e->getMessage();
	};
	return $message;
}

1;

__END__

package fat;

import fit.*;

public class FixtureLoadFixture extends ColumnFixture {
	public String FixtureName;
	
	public String LoadResult() throws Exception {
        loadFixture();
		return "loaded";    // we'll get an exception if it didn't load
	}

    private void loadFixture()
        throws InstantiationException, IllegalAccessException, ClassNotFoundException {
        Fixture fixture = new Fixture();
        fixture.loadFixture(FixtureName);
    }
	
	public String ErrorMessage() {
		try {
			loadFixture();
			return "(none)";
		}
		catch (Exception e) {
			return e.getMessage();
		}
	}
}