view release on metacpan or  search on metacpan

t/Extendable.t  view on Meta::CPAN

isa_ok($measurement, q[Bio::MAGE::Extendable]);


# create a subclass
my $featureinformation = Bio::MAGE::DesignElement::FeatureInformation->new();

# testing subclass FeatureInformation
isa_ok($featureinformation, q[Bio::MAGE::DesignElement::FeatureInformation]);
isa_ok($featureinformation, q[Bio::MAGE::Extendable]);


# create a subclass
my $unit = Bio::MAGE::Measurement::Unit->new();

# testing subclass Unit
isa_ok($unit, q[Bio::MAGE::Measurement::Unit]);
isa_ok($unit, q[Bio::MAGE::Extendable]);


# create a subclass
my $bioassaymapping = Bio::MAGE::BioAssayData::BioAssayMapping->new();

# testing subclass BioAssayMapping
isa_ok($bioassaymapping, q[Bio::MAGE::BioAssayData::BioAssayMapping]);
isa_ok($bioassaymapping, q[Bio::MAGE::Extendable]);


# create a subclass
my $bioassaydatum = Bio::MAGE::BioAssayData::BioAssayDatum->new();

# testing subclass BioAssayDatum
isa_ok($bioassaydatum, q[Bio::MAGE::BioAssayData::BioAssayDatum]);
isa_ok($bioassaydatum, q[Bio::MAGE::Extendable]);


# create a subclass
my $describable = Bio::MAGE::Describable->new();

# testing subclass Describable
isa_ok($describable, q[Bio::MAGE::Describable]);
isa_ok($describable, q[Bio::MAGE::Extendable]);


# create a subclass
my $quantitationtypemapping = Bio::MAGE::BioAssayData::QuantitationTypeMapping->new();

# testing subclass QuantitationTypeMapping
isa_ok($quantitationtypemapping, q[Bio::MAGE::BioAssayData::QuantitationTypeMapping]);
isa_ok($quantitationtypemapping, q[Bio::MAGE::Extendable]);


# create a subclass
my $designelementmapping = Bio::MAGE::BioAssayData::DesignElementMapping->new();

# testing subclass DesignElementMapping
isa_ok($designelementmapping, q[Bio::MAGE::BioAssayData::DesignElementMapping]);
isa_ok($designelementmapping, q[Bio::MAGE::Extendable]);


# create a subclass
my $featurelocation = Bio::MAGE::DesignElement::FeatureLocation->new();

# testing subclass FeatureLocation
isa_ok($featurelocation, q[Bio::MAGE::DesignElement::FeatureLocation]);
isa_ok($featurelocation, q[Bio::MAGE::Extendable]);


# create a subclass
my $featuredefect = Bio::MAGE::Array::FeatureDefect->new();

# testing subclass FeatureDefect
isa_ok($featuredefect, q[Bio::MAGE::Array::FeatureDefect]);
isa_ok($featuredefect, q[Bio::MAGE::Extendable]);


# create a subclass
my $biodatavalues = Bio::MAGE::BioAssayData::BioDataValues->new();

# testing subclass BioDataValues
isa_ok($biodatavalues, q[Bio::MAGE::BioAssayData::BioDataValues]);
isa_ok($biodatavalues, q[Bio::MAGE::Extendable]);


# create a subclass
my $arraymanufacturedeviation = Bio::MAGE::Array::ArrayManufactureDeviation->new();

# testing subclass ArrayManufactureDeviation
isa_ok($arraymanufacturedeviation, q[Bio::MAGE::Array::ArrayManufactureDeviation]);
isa_ok($arraymanufacturedeviation, q[Bio::MAGE::Extendable]);


# create a subclass
my $positiondelta = Bio::MAGE::Array::PositionDelta->new();

# testing subclass PositionDelta
isa_ok($positiondelta, q[Bio::MAGE::Array::PositionDelta]);
isa_ok($positiondelta, q[Bio::MAGE::Extendable]);


# create a subclass
my $zonedefect = Bio::MAGE::Array::ZoneDefect->new();

# testing subclass ZoneDefect
isa_ok($zonedefect, q[Bio::MAGE::Array::ZoneDefect]);
isa_ok($zonedefect, q[Bio::MAGE::Extendable]);


# create a subclass
my $parametervalue = Bio::MAGE::Protocol::ParameterValue->new();

# testing subclass ParameterValue
isa_ok($parametervalue, q[Bio::MAGE::Protocol::ParameterValue]);
isa_ok($parametervalue, q[Bio::MAGE::Extendable]);


# create a subclass
my $seqfeaturelocation = Bio::MAGE::BioSequence::SeqFeatureLocation->new();

# testing subclass SeqFeatureLocation
isa_ok($seqfeaturelocation, q[Bio::MAGE::BioSequence::SeqFeatureLocation]);
isa_ok($seqfeaturelocation, q[Bio::MAGE::Extendable]);


# create a subclass
my $compoundmeasurement = Bio::MAGE::BioMaterial::CompoundMeasurement->new();

# testing subclass CompoundMeasurement
isa_ok($compoundmeasurement, q[Bio::MAGE::BioMaterial::CompoundMeasurement]);
isa_ok($compoundmeasurement, q[Bio::MAGE::Extendable]);


# create a subclass
my $biomaterialmeasurement = Bio::MAGE::BioMaterial::BioMaterialMeasurement->new();

# testing subclass BioMaterialMeasurement
isa_ok($biomaterialmeasurement, q[Bio::MAGE::BioMaterial::BioMaterialMeasurement]);
isa_ok($biomaterialmeasurement, q[Bio::MAGE::Extendable]);


# create a subclass
my $sequenceposition = Bio::MAGE::BioSequence::SequencePosition->new();

# testing subclass SequencePosition
isa_ok($sequenceposition, q[Bio::MAGE::BioSequence::SequencePosition]);
isa_ok($sequenceposition, q[Bio::MAGE::Extendable]);