view release on metacpan or  search on metacpan

t/02-fish_farm.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use Test::More;

use Acme::FishFarm ":all";


my ($feeder, $oxygen, $water_monitor, $water_level, $water_filter ) = install_all_systems;

is( ref($feeder), "Acme::FishFarm::Feeder", "Correct feeder" );
is( ref($oxygen), "Acme::FishFarm::OxygenMaintainer", "Correct oxygem maintainer" );
is( ref($water_monitor), "Acme::FishFarm::WaterConditionMonitor", "Correct water condition monitor" );
is( ref($water_level), "Acme::FishFarm::WaterLevelMaintainer", "Correct water level monitor" );
is( ref($water_filter), "Acme::FishFarm::WaterFiltration", "Correct water filter" );

is( reduce_precision(3.14159), 3.141, "reduce_precision is working correctly" );
{
    local $@;
    eval { reduce_precision(3); };
    like( $@, qr/Please pass in a decimal value/, "reduce_precision can't process integers" );
}
is( reduce_precision(-12.53345), -12.533, "reduce_precision can work with negative decimal" );

ok( consume_oxygen( $oxygen, 2.5 ), "consume_oxygen is working correctly");
ok( consume_oxygen( $oxygen, 2 ), "consume_oxygen is working correctly");

ok( check_DO( $oxygen, 5 ), "check_DO is working correctly" );
ok( check_pH( $water_monitor, 5 ), "check_pH is working correctly" );
ok( check_temperature( $water_monitor, 25 ), "check_temperature is working correctly" );
ok( check_turbidity( $water_monitor, 250 ), "check_turbidity is working correctly" );

ok( check_water_filter( $water_filter, 250 ), "check_water_filter is working correctly" );
ok( check_water_level( $water_level, 1 ), "check_water_level is working correctly");

ok( check_feeder( $feeder ), "check_feeder is working correctly");
ok( check_feeder( $feeder, 1 ), "check_feeder with verbose is working correctly");

ok( render_leds( $water_monitor), "render_leds is working correctly" );
ok( render_buzzer( $water_monitor ), "render_buzzer is working correctly" );

done_testing;

# besiyata d'shmaya