sub _gen_type {
return {
- tinyint => \&_gen_int,
+ tinyint => \&_gen_bool,
smallint => \&_gen_int,
mediumint => \&_gen_int,
integer => \&_gen_int,
};
};
+sub _gen_bool {
+ my ($self, $params) = @_;
+ return int( rand(2) );
+}
+
sub _gen_int {
my ($self, $params) = @_;
my $data_type = $params->{info}->{data_type};