X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi-t%2F01-columns.t;h=0841e1e4db681783efe4377ea77b92a81e7552ce;hb=9bc6db133eae500322e0e3670d5509d27d208f9e;hp=6b3346c67175b4d1f7ecae4032deeea18e7e8bd2;hpb=d592ebf85d05a541b899a3d6ef0da3b465f8ba0e;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/cdbi-t/01-columns.t b/t/cdbi-t/01-columns.t index 6b3346c..0841e1e 100644 --- a/t/cdbi-t/01-columns.t +++ b/t/cdbi-t/01-columns.t @@ -37,7 +37,7 @@ use base 'DBIx::Class'; City->table('City'); City->columns(All => qw/Name State Population/); -#City->has_a(State => 'State'); +City->has_a(State => 'State'); #------------------------------------------------------------------------- @@ -95,12 +95,12 @@ ok(!State->find_column('HGLAGAGlAG'), '!find_column HGLAGAGlAG'); my @grps = sort State->__grouper->groups_for(State->_find_columns(qw/rain capital/)); is @grps, 2, "Rain and Capital = 2 groups"; - @grps = sort @grps; # Because DBIx::Class is hash-based + @grps = sort @grps; # Because the underlying API is hash-based is $grps[0], 'Other', " - Other"; is $grps[1], 'Weather', " - Weather"; } -SKIP: { +{ local $SIG{__WARN__} = sub { }; eval { DBIx::Class->retrieve(1) }; like $@, qr/Can't retrieve unless primary columns are defined/, "Need primary key for retrieve";