Changeset 1000

Show
Ignore:
Timestamp:
02/14/04 12:35:14
Author:
miyagawa
Message:

0.05

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Class-DBI-View/trunk/Changes

    r998 r1000  
    11Revision history for Perl extension Class::DBI::View 
     2 
     30.05  Sat Feb 14 12:33:30 JST 2004 
     4        * Added retrieve_from_sql support in TemporaryTable 
     5          (Thanks to Yoshimune Kitta again) 
     6        - Added test suite for retrieve_from_sql 
    27 
    380.04  Sat Feb 14 00:06:35 JST 2004 
  • Class-DBI-View/trunk/MANIFEST

    r857 r1000  
    1515t/lib/CD/Tester.pm 
    1616t/lib/CD/mysql.pm 
     17META.yml                                 Module meta-data (added by MakeMaker) 
  • Class-DBI-View/trunk/lib/Class/DBI/View.pm

    r999 r1000  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.04
     5$VERSION = 0.05
    66 
    77use UNIVERSAL::require; 
  • Class-DBI-View/trunk/lib/Class/DBI/View/Having.pm

    r999 r1000  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.04
     5$VERSION = 0.05
    66 
    77sub setup_view { 
  • Class-DBI-View/trunk/lib/Class/DBI/View/SubQuery.pm

    r999 r1000  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.04
     5$VERSION = 0.05
    66 
    77sub setup_view { 
  • Class-DBI-View/trunk/lib/Class/DBI/View/TemporaryTable.pm

    r999 r1000  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.04
     5$VERSION = 0.05
    66 
    77sub setup_view { 
    88    my($class, $sql, %args) = @_; 
    9     for my $method (qw(retrieve_all retrieve search search_like)) { 
     9    for my $method (qw(sql_Retrieve sql_RetrieveAll)) { 
    1010        _set_temporary_table($class, $method, $sql, %args); 
    1111    } 
  • Class-DBI-View/trunk/t/01_temptable.t

    r861 r1000  
    99 
    1010BEGIN { 
    11     plan check_mysql() ? (tests => 11) : (skip_all => 'no mysql'); 
     11    plan check_mysql() ? (tests => 12) : (skip_all => 'no mysql'); 
    1212} 
    1313 
  • Class-DBI-View/trunk/t/02_subquery.t

    r861 r1000  
    99 
    1010BEGIN { 
    11     plan check_sqlite() ? (tests => 11) : (skip_all => 'no sqlite'); 
     11    plan check_sqlite() ? (tests => 12) : (skip_all => 'no sqlite'); 
    1212} 
    1313 
  • Class-DBI-View/trunk/t/03_having.t

    r861 r1000  
    99 
    1010BEGIN { 
    11     plan check_mysql() ? (tests => 11) : (skip_all => 'no mysql'); 
     11    plan check_mysql() ? (tests => 12) : (skip_all => 'no mysql'); 
    1212} 
    1313 
  • Class-DBI-View/trunk/t/lib/CD/Tester.pm

    r998 r1000  
    3434        [ 'SLIPKNOT', 'IOWA', 'roadrunner' ], 
    3535        [ 'Aerosmith', 'Just Push Play', 'Columbia' ], 
    36         [ 'No Use For A Name', 'UIVE IN A DIVE', 'FAT' ], 
     36        [ 'No Use For A Name', 'LIVE IN A DIVE', 'FAT' ], 
    3737        [ 'SLAYER', 'GOD HATES US ALL', 'american' ], 
    3838    ); 
     
    7777    } 
    7878 
     79    { 
     80        # test retrieve_from_sql 
     81        my $iter = CD::Music::Sony->retrieve_from_sql('title = ?', 'No More Tears'); 
     82        $tester->is_num($iter->count, 1, "1 No More Tears"); 
     83    } 
     84 
    7985    # GROUP BY 
    8086    package CD::Music::NumberOfRecords;