use strict;
use warnings;
use Test::More;
use Woothee::DataSet;
subtest 'const' => sub {
is (Woothee::DataSet->const('ATTRIBUTE_NAME'), 'name');
};
subtest 'const list' => sub {
is_deeply (Woothee::DataSet->const('ATTRIBUTE_LIST'), ['name','category','os','vendor','version']);
is_deeply (Woothee::DataSet->const('CATEGORY_LIST'), ['pc','smartphone','mobilephone','crawler','appliance','misc','UNKNOWN'])
};
subtest 'dataset' => sub {
my $set = Woothee::DataSet::dataset('GoogleBot');
is ($set->{name}, 'Googlebot');
};
done_testing;