-#!/usr/bin/perl
-
use strict;
-use warnings;
+use warnings FATAL => 'all';
-use Test::Most tests => 5;
+use Test::More tests => 6;
+use Test::NoWarnings 1.04 ':early';
{
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');
}
+