package tes;

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

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

	return $this;
}

sub add_to_sample{
	my($this, $sample) = @_;
	
	$this->{'sample'} = $sample;
}
sub test_id{
	my($this, $test_id) = @_;
	
	if(defined $test_id){
		$this->{'test_id'}=$test_id;
	}
	else{
		return $this->{'test_id'}
	}
}
sub status{
	my($this, $status, $owner) = @_;

	if(! defined $status){
		return pop @{$this->{'status'}};
	}
	else{
		my $stat = new status();
		$stat->initiate($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;