[prev] [thread] [next] [Date index for 2004/12/08]
--GvXjxJ+pjyke8COw Content-Type: text/plain; charset=us-ascii Content-Disposition: inline I had a quick look at the development version 0.96_50 that Tony posted to the list a while ago. I've run some of my code and tests against it, and noticed no regressions. I noticed a small error in the documentation, which I have fixed and added a few tests for. Tom --GvXjxJ+pjyke8COw Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="cdbi.patch" diff -ruN Class-DBI-0.96_50.orig/lib/Class/DBI/SearchGenerator.pm Class-DBI-0.96_50/lib/Class/DBI/SearchGenerator.pm --- Class-DBI-0.96_50.orig/lib/Class/DBI/SearchGenerator.pm Sun Oct 24 13:50:30 2004 +++ Class-DBI-0.96_50/lib/Class/DBI/SearchGenerator.pm Fri Dec 3 16:16:11 2004 @@ -43,9 +43,11 @@ =head2 results my @objects = $generator->results; - my @iterator = $generator->results; + my $iterator = $generator->results; This will return the objects resulting from running the search. +In list context, this returns a list of objects. In scalar +context, this returns a L<Class::DBI::Iterator> object. =cut diff -ruN Class-DBI-0.96_50.orig/t/10-mysql.t Class-DBI-0.96_50/t/10-mysql.t --- Class-DBI-0.96_50.orig/t/10-mysql.t Sun Oct 24 13:50:30 2004 +++ Class-DBI-0.96_50/t/10-mysql.t Wed Dec 8 11:58:36 2004 @@ -9,7 +9,7 @@ eval { require 't/testlib/MyFoo.pm' }; plan skip_all => "Need MySQL for this test" if $@; -plan tests => 67; +plan tests => 70; package main; @@ -198,5 +198,14 @@ my @films = MyFilm->search_like(title => "%", { limit => 5 }); is @films, 3, "Or 5 (but get 3)"; } + + { + my $films = MyFilm->search_like(title => "%"); + isa_ok $films, 'Class::DBI::Iterator'; + my $count; + $count++ while $films->next; + is $count, 3, "Iterator search_like"; + isa_ok $films->first, 'MyFilm', 'Iterator returns films'; + } } --GvXjxJ+pjyke8COw--
Documentation fix and tests for 0.96_50
|
Generated at 13:38 on 10 Dec 2004 by mariachi v0.52