1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!perl
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use Test::Deep;
use Test::Exception;
use List::Util 'first';
use TestSchema;
use B;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;
# stolen from JSON::PP
sub is_numeric {
my $value = shift;
my $b_obj = B::svref_2object(\$value);
my $flags = $b_obj->FLAGS;
return ( $flags & B::SVf_IOK or $flags & B::SVp_IOK
or $flags & B::SVf_NOK or $flags & B::SVp_NOK
) and !($flags & B::SVf_POK )
}
ok(is_numeric($schema->resultset('Foo')->first->bar_id),"bar_id has been 'numified' w/o is_numeric set");
for (map $_->id, $schema->resultset('Foo')->all) {
ok(is_numeric($_), "id $_ has been 'numified'");
}
for (map +{$_->get_columns}, $schema->resultset('Foo')->all) {
ok(is_numeric($_->{id}), "id $_->{id} has been 'numified'");
}
for (map +{$_->get_inflated_columns}, $schema->resultset('Foo')->all) {
ok(is_numeric($_->{id}), "id $_->{id} has been 'numified'");
}
for (map +{$_->get_inflated_columns}, $schema->resultset('Foo')->all) {
ok(is_numeric($_->{id}), "id $_->{id} has been 'numified'");
}
for ($schema->resultset('Foo')->search(undef, {
columns => { lol => 'id' },
})->all) {
lives_ok { $_->get_column('lol') } "doesn't break when using columns";
}
done_testing;
|
