#!/usr/bin/perl

# Testing support methods of various types

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 5;
use CPANTS::Weight 0.02;

my $cpants = CPANTS::Weight->new;
isa_ok( $cpants, 'CPANTS::Weight' );

my $source_weight = $cpants->source_weight;
isa_ok( $source_weight, 'Algorithm::Dependency::Source::DBI' );

my $source_volatility = $cpants->source_volatility;
isa_ok( $source_volatility, 'Algorithm::Dependency::Source::Invert' );

my $algorithm_weight = $cpants->algorithm_weight;
isa_ok( $algorithm_weight, 'Algorithm::Dependency::Weight' );

my $algorithm_volatility = $cpants->algorithm_volatility;
isa_ok( $algorithm_volatility, 'Algorithm::Dependency::Weight' );