#!/usr/bin/perl 
use strict;
use warnings;
use Mymodule qw( values );
use Test::More qw(no_plan);

BEGIN { use_ok('Mymodule', qw( values )) };

my $pig = 3;
my $cow = 4;

my ($animals1, $animals2) = values($pig, $cow);
is ($animals1,  3, "Checking animals1");
is ($animals2,  4, "Checking animals2");