The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use 5.010;
use strict;
use warnings;
use Test::More tests => 9;
use Test::Exception;

# These are here because they don't build storage and can turn up odd
# errors during DEMOLISH

use Hailo;
use Hailo::Command;

dies_ok { Hailo->new( order => undef ) } "undef order";
dies_ok { Hailo->new( order => "foo" ) } "Str order";

for (my $i = 1; $i <= 10e2; $i += $i * 2) {
    cmp_ok( Hailo->new( order => $i )->order, '==', $i, "The order is what we put in ($i)" );
}