use strict;
use warnings;
-use Test::Most tests => 5;
+use Test::More;
{
package example;
other => 'test',
});
isa_ok($example, 'example');
- explain($example->results);
- cmp_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
+ is_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
}
# With MooseX::Getopt
my $example = example->new_with_options;
isa_ok($example, 'example');
- explain($example->results);
is($example->other,'test');
- cmp_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
+ is_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
}
+
+done_testing;
+