package tes;

use strict;
use Data::Dumper;
use status;

sub new{
	my($class, $name, $sample, $data) = @_;
	
	my $this = {
			'sample'=>$sample,
			'test_id'=>$name,
			'status'=>[],
		} ;
		
	bless($this, $class);
	$sample->add_test($this);
	return $this;
}

sub test_id{
	my($this) = @_;
	return $this->{'test_id'}
}

sub status{
	my($this, $status, $owner) = @_;

	if(! defined $status){
		return pop @{$this->{'status'}};
	}
	else{
		my $stat = new status($status, $owner);
		push @{$this->{'status'}}, $stat;
		$this->{'sample'}->add_status($this);
	}
	
	return 1;
}

sub current_status{
	my($this) = @_;
	
	my $status = $this->status();
	return $status->status();
}

1;